Class Tfm_IOPort (unit fm_IOPort1) |
Inherits from
TForm
PortTest program IO Port form
Revisions
---------
98-06-01 GW Original
Copyright info: see main form unit
procedure bt_ChangeClick(Sender: TObject);
--------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
procedure sg_IOPortEnter(Sender: TObject);
------------------------------------------------
procedure sg_IOPortExit(Sender: TObject);
------------------------------------------------
procedure sg_IOPortMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
--------------------------------------------------
procedure sg_IOPortSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
--------------------------------------------------
procedure sg_IOPort_EditClear;
------------------------------------------------
procedure sg_IOPort_EditCommit;
------------------------------------------------
procedure sg_IOPort_EditCommitCheck(NewCol, NewRow: integer; Leaving: Boolean);
------------------------------------------------
procedure sg_IOPort_Editing(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPort_Init;
----------------------------------------------
procedure UpdateBinFromHex(RowNum: integer; RW: char);
----------------------------------------------
procedure UpdateHexFromBin(RowNum: integer; RW: char);
----------------------------------------------
procedure WriteValueChangeCheck(RowNum: integer);
OldCol, OldRow------------------------------------------------------------
bt_Change : TButton;
Label1 : TLabel;
Label2 : TLabel;
lb_Scratch : TLabel;
Panel1 : TPanel;
sg_Heads : TStringGrid;
sg_IOPort : TStringGrid;
AddrBase : integer;
Private declarations
AddrCount : integer;
sg_IOPort_EditCol : integer;
sg_IOPort_EditRow : integer;
procedure bt_ChangeClick(Sender: TObject);
--------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------
procedure sg_IOPortEnter(Sender: TObject);
------------------------------------------------
procedure sg_IOPortExit(Sender: TObject);
------------------------------------------------
procedure sg_IOPortMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
--------------------------------------------------
procedure sg_IOPortSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
--------------------------------------------------
procedure sg_IOPort_EditClear;
------------------------------------------------
procedure sg_IOPort_EditCommit;
------------------------------------------------
procedure sg_IOPort_EditCommitCheck(NewCol, NewRow: integer; Leaving: Boolean);
------------------------------------------------
procedure sg_IOPort_Editing(NewCol, NewRow: integer);
------------------------------------------------
procedure sg_IOPort_Init;
----------------------------------------------
procedure UpdateBinFromHex(RowNum: integer; RW: char);
----------------------------------------------
procedure UpdateHexFromBin(RowNum: integer; RW: char);
----------------------------------------------
procedure WriteValueChangeCheck(RowNum: integer);
OldCol, OldRow
------------------------------------------------------------
bt_Change : TButton;
Label1 : TLabel;
Label2 : TLabel;
lb_Scratch : TLabel;
Panel1 : TPanel;
sg_Heads : TStringGrid;
sg_IOPort : TStringGrid;
AddrBase : integer;
Private declarations
AddrCount : integer;
sg_IOPort_EditCol : integer;
sg_IOPort_EditRow : integer;