Class TMainForm (unit MainFrm)

Inherits from

TForm

Constructors



Functions

procedure BaudRateRGClick(Sender: TObject);


procedure ClrDTRBtnClick(Sender: TObject);


procedure ClrInMemoClick(Sender: TObject);

Reconnect

procedure ClrOutMemoClick(Sender: TObject);


procedure ClrRTSBtnClick(Sender: TObject);


procedure CommPortDriverReceiveData(Sender: TObject; DataPtr: Pointer; DataSize: Integer);


procedure CommPortDriverReceivePacket(Sender: TObject; Packet: Pointer; DataSize: Integer);

New line - add it

procedure ComPortRGClick(Sender: TObject);

RTS/CTS + XON/XOFF

procedure ConnectBtnClick(Sender: TObject);

Commit data only when RETURN key is pressed

procedure DataBitsRGClick(Sender: TObject);


procedure DisconnectBtnClick(Sender: TObject);

Error !

procedure HandshakingRGClick(Sender: TObject);


procedure ParityRGClick(Sender: TObject);


procedure QuitBtnClick(Sender: TObject);


procedure SetDTRBtnClick(Sender: TObject);


procedure SetRTSBtnClick(Sender: TObject);


procedure TxMemoKeyPress(Sender: TObject; var Key: Char);


procedure ApplyCommSettings;

Apply com settings ApplyCommSettings;

Properties

Events

Variables

BaudRateRG : TRadioGroup;


ClrDTRBtn : TButton;


ClrInMemo : TButton;


ClrOutMemo : TButton;


ClrRTSBtn : TButton;


CommPortDriver : TCommPortDriver;


ComPortRG : TRadioGroup;


ConnectBtn : TButton;


DataBitsRG : TRadioGroup;


DisconnectBtn : TButton;


HandshakingRG : TRadioGroup;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


ParityRG : TRadioGroup;


QuitBtn : TButton;


RxMemo : TMemo;


SetDTRBtn : TButton;


SetRTSBtn : TButton;


StatusBar : TStatusBar;


TxMemo : TMemo;



Constructors


Functions


procedure BaudRateRGClick(Sender: TObject);


procedure ClrDTRBtnClick(Sender: TObject);


procedure ClrInMemoClick(Sender: TObject);

Reconnect


procedure ClrOutMemoClick(Sender: TObject);


procedure ClrRTSBtnClick(Sender: TObject);


procedure CommPortDriverReceiveData(Sender: TObject; DataPtr: Pointer; DataSize: Integer);


procedure CommPortDriverReceivePacket(Sender: TObject; Packet: Pointer; DataSize: Integer);

New line - add it


procedure ComPortRGClick(Sender: TObject);

RTS/CTS + XON/XOFF


procedure ConnectBtnClick(Sender: TObject);

Commit data only when RETURN key is pressed


procedure DataBitsRGClick(Sender: TObject);


procedure DisconnectBtnClick(Sender: TObject);

Error !


procedure HandshakingRGClick(Sender: TObject);


procedure ParityRGClick(Sender: TObject);


procedure QuitBtnClick(Sender: TObject);


procedure SetDTRBtnClick(Sender: TObject);


procedure SetRTSBtnClick(Sender: TObject);


procedure TxMemoKeyPress(Sender: TObject; var Key: Char);


procedure ApplyCommSettings;

Apply com settings ApplyCommSettings;


Properties


Events


Variables


BaudRateRG : TRadioGroup;


ClrDTRBtn : TButton;


ClrInMemo : TButton;


ClrOutMemo : TButton;


ClrRTSBtn : TButton;


CommPortDriver : TCommPortDriver;


ComPortRG : TRadioGroup;


ConnectBtn : TButton;


DataBitsRG : TRadioGroup;


DisconnectBtn : TButton;


HandshakingRG : TRadioGroup;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


ParityRG : TRadioGroup;


QuitBtn : TButton;


RxMemo : TMemo;


SetDTRBtn : TButton;


SetRTSBtn : TButton;


StatusBar : TStatusBar;


TxMemo : TMemo;