Class Tfm_VSync (unit fm_VSync1) |
Inherits from
TForm
PortTest program Vertical Sync Test form
Revisions
---------
98-06-01 GW Original
Copyright info: see main form unit
procedure bt_Disable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_Enable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_SetupClick(Sender: TObject);
********************************
{-----------------------------------}
procedure TXFVIRQMgr.
procedure bt_VSyncsClick(Sender: TObject);
----------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
function ResultOK(DriverResult: DWORD): Boolean;
---------------------------------
bt_Disable_Ports : TButton;
bt_Enable_Ports : TButton;
bt_Setup : TButton;
bt_VSyncs : TButton;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
lb_Result : TLabel;
MySW : TStopWatch;
Private declarations
procedure bt_Disable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_Enable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_SetupClick(Sender: TObject);
********************************
{-----------------------------------}
procedure TXFVIRQMgr.Slave8259MaskSave;
Begin
If SaveSlave8259Mask = 0 then
SaveSlave8259Mask := Port[PIC8259SlaveMaskReg];
end;
{-----------------------------------}
procedure TXFVIRQMgr.Slave8259MaskRestore;
Begin
Port[PIC8259SlaveMaskReg] := SaveSlave8259Mask;
SaveSlave8259Mask := 0;
end;
********************************) //----------------------------------------------
procedure bt_VSyncsClick(Sender: TObject);
----------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
function ResultOK(DriverResult: DWORD): Boolean;
---------------------------------
bt_Disable_Ports : TButton;
bt_Enable_Ports : TButton;
bt_Setup : TButton;
bt_VSyncs : TButton;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
lb_Result : TLabel;
MySW : TStopWatch;
Private declarations