| Class Tfm_IOPort (unit fm_IOPort1) |
TForm
PortTest program IO Port form Revisions --------- 98-06-01 GW Original Copyright info: see main form unit
| Constructors |
| Functions |
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);------------------------------------------------------------
| Properties |
| Events |
| Variables |
bt_Change : TButton;
Label1 : TLabel;
Label2 : TLabel;
lb_Scratch : TLabel;
Panel1 : TPanel;
sg_Heads : TStringGrid;
sg_IOPort : TStringGrid;
AddrBase : integer;
AddrCount : integer;
sg_IOPort_EditCol : integer;
sg_IOPort_EditRow : integer;| Constructors |
| Functions |
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
------------------------------------------------------------
| Properties |
| Events |
| Variables |
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;