Class Tfm_IOPM (unit fm_IOPM1) |
Inherits from
TForm
PortTest program IOPM form
Revisions
---------
98-06-01 GW Original
Copyright info: see main form unit
procedure bt_Activate_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_ClearClick(Sender: TObject);
============================================================ IOCTL IOPM functions ============================================================ ------------------------------------------------------------
procedure bt_Deactivate_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_GetIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_Query_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
procedure sg_IOPMEnter(Sender: TObject);
------------------------------------------------
procedure sg_IOPMExit(Sender: TObject);
------------------------------------------------
procedure sg_IOPMSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
--------------------------------------------------
function ByteFake: byte;
----------------------------------------------
procedure EditValueChangeCheck;
OldCol, OldRow------------------------------------------------------------
procedure EditValueChanged;
------------------------------------------------------------
procedure sg_Hex_Init(AIOPM: PIOPM);
----------------------------------------------
procedure sg_IOPM_EditClear;
------------------------------------------------
procedure sg_IOPM_EditCommit;
------------------------------------------------
procedure sg_IOPM_EditCommitCheck(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPM_Editing(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPM_Init;
----------------------------------------------
procedure UpdateBinFromHex(RowNum: integer);
----------------------------------------------
procedure UpdateHexFromBin(RowNum: integer);
----------------------------------------------
bt_Activate_KIOPM : TButton;
bt_Clear : TButton;
bt_Deactivate_KIOPM : TButton;
bt_GetIOPM : TButton;
bt_Query_KIOPM : TButton;
GroupBox3 : TGroupBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lb_Scratch : TLabel;
sg_Heads : TStringGrid;
sg_IOPM : TStringGrid;
sg_IOPM_EditCol : integer;
Private declarations
sg_IOPM_EditRow : integer;
sg_IOPM_EditValue : string;
procedure bt_Activate_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_ClearClick(Sender: TObject);
============================================================ IOCTL IOPM functions ============================================================ ------------------------------------------------------------
procedure bt_Deactivate_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_GetIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure bt_Query_KIOPMClick(Sender: TObject);
------------------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
procedure sg_IOPMEnter(Sender: TObject);
------------------------------------------------
procedure sg_IOPMExit(Sender: TObject);
------------------------------------------------
procedure sg_IOPMSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
--------------------------------------------------
function ByteFake: byte;
----------------------------------------------
procedure EditValueChangeCheck;
OldCol, OldRow
------------------------------------------------------------
procedure EditValueChanged;
------------------------------------------------------------
procedure sg_Hex_Init(AIOPM: PIOPM);
----------------------------------------------
procedure sg_IOPM_EditClear;
------------------------------------------------
procedure sg_IOPM_EditCommit;
------------------------------------------------
procedure sg_IOPM_EditCommitCheck(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPM_Editing(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPM_Init;
----------------------------------------------
procedure UpdateBinFromHex(RowNum: integer);
----------------------------------------------
procedure UpdateHexFromBin(RowNum: integer);
----------------------------------------------
bt_Activate_KIOPM : TButton;
bt_Clear : TButton;
bt_Deactivate_KIOPM : TButton;
bt_GetIOPM : TButton;
bt_Query_KIOPM : TButton;
GroupBox3 : TGroupBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lb_Scratch : TLabel;
sg_Heads : TStringGrid;
sg_IOPM : TStringGrid;
sg_IOPM_EditCol : integer;
Private declarations
sg_IOPM_EditRow : integer;
sg_IOPM_EditValue : string;