| Class TMainFm (unit Main) |
TForm
| Constructors |
| Functions |
procedure ChooseCOMClick(Sender: TObject);
procedure CloseItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
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);
procedure SetRinging(A: Boolean);
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;