| Class Tfm_VSync (unit fm_VSync1) |
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 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;| 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