Class TMainFm (unit Main)

Inherits from

TForm

Constructors



Functions

procedure ChooseCOMClick(Sender: TObject);


procedure CloseItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

TMainFm

procedure FormDestroy(Sender: TObject);


procedure HideItemClick(Sender: TObject);


procedure MinimizeItemClick(Sender: TObject);


procedure StayOnTopItemClick(Sender: TObject);


procedure TimerTimer(Sender: TObject);


procedure ToggleLight(Sender: TObject);


procedure Paint;


procedure SetConnected(A: Boolean);


procedure SetLights(A: byte);


procedure SetPort(No: word);

Pen.

procedure SetRinging(A: Boolean);

Data Terminal Ready

procedure WMNcHitTest(var M: TMessage);


Properties

property BasePort : word


property Connected : Boolean


property Lights : byte


property Port : word


property Ringing : Boolean


Events

Variables

CloseItem : TMenuItem;


CtsItem : TMenuItem;


DcdItem : TMenuItem;


DsrItem : TMenuItem;


DtrItem : TMenuItem;


HideItem : TMenuItem;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


LightsMenu : TMenuItem;


MinimizeItem : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


PopupMenu : TPopupMenu;


RiItem : TMenuItem;


RtsItem : TMenuItem;


RxdItem : TMenuItem;


SetToCom1 : TMenuItem;


SetToCom2 : TMenuItem;


SetToCom3 : TMenuItem;


SetToCom4 : TMenuItem;


shpCts : TShape;


shpDcd : TShape;


shpDsr : TShape;


shpDtr : TShape;


shpRing : TShape;


shpRts : TShape;


shpRxd : TShape;


shpTxd : TShape;


StayOnTopItem : TMenuItem;


Timer : TTimer;


TxdItem : TMenuItem;


FBasePort : word;


FConnected : Boolean;


FLightItems : array[0..7] of TMenuItem;


FLights : byte;


FPort : word;


FPortItems : array[0..3] of TMenuItem;


FRinging : Boolean;


FRingTime : integer;



Constructors


Functions


procedure ChooseCOMClick(Sender: TObject);


procedure CloseItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

TMainFm


procedure FormDestroy(Sender: TObject);


procedure HideItemClick(Sender: TObject);


procedure MinimizeItemClick(Sender: TObject);


procedure StayOnTopItemClick(Sender: TObject);


procedure TimerTimer(Sender: TObject);


procedure ToggleLight(Sender: TObject);


procedure Paint;


procedure SetConnected(A: Boolean);


procedure SetLights(A: byte);


procedure SetPort(No: word);

Pen.Color := clBlack;


procedure SetRinging(A: Boolean);

Data Terminal Ready


procedure WMNcHitTest(var M: TMessage);


Properties


property BasePort : word


property Connected : Boolean


property Lights : byte


property Port : word


property Ringing : Boolean


Events


Variables


CloseItem : TMenuItem;


CtsItem : TMenuItem;


DcdItem : TMenuItem;


DsrItem : TMenuItem;


DtrItem : TMenuItem;


HideItem : TMenuItem;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


LightsMenu : TMenuItem;


MinimizeItem : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


PopupMenu : TPopupMenu;


RiItem : TMenuItem;


RtsItem : TMenuItem;


RxdItem : TMenuItem;


SetToCom1 : TMenuItem;


SetToCom2 : TMenuItem;


SetToCom3 : TMenuItem;


SetToCom4 : TMenuItem;


shpCts : TShape;


shpDcd : TShape;


shpDsr : TShape;


shpDtr : TShape;


shpRing : TShape;


shpRts : TShape;


shpRxd : TShape;


shpTxd : TShape;


StayOnTopItem : TMenuItem;


Timer : TTimer;


TxdItem : TMenuItem;


FBasePort : word;


FConnected : Boolean;


FLightItems : array[0..7] of TMenuItem;


FLights : byte;


FPort : word;


FPortItems : array[0..3] of TMenuItem;


FRinging : Boolean;


FRingTime : integer;