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

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;



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;