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

Constructors



Functions

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;

---------------------------------

Properties

Events

Variables

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


Constructors


Functions


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;

---------------------------------


Properties


Events


Variables


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