| Class Tfm_IOPM (unit fm_IOPM1) |
TForm
PortTest program IOPM form Revisions --------- 98-06-01 GW Original Copyright info: see main form unit
| Constructors |
| Functions |
procedure bt_Activate_KIOPMClick(Sender: TObject);
procedure bt_ClearClick(Sender: TObject);
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;------------------------------------------------------------
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);| Properties |
| Events |
| Variables |
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;
sg_IOPM_EditRow : integer;
sg_IOPM_EditValue : string;| Constructors |
| Functions |
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);----------------------------------------------
| Properties |
| Events |
| Variables |
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;