Class TClientForm (unit ClientFrm)

Inherits from

TForm

Constructors



Functions

procedure ClickTimerTimer(Sender: TObject);


procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);

Log(Format('%15-s %d', ['Message', MsgNum]));

procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);


procedure ClientSocket1Lookup(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

Stat[0] := Format('Sent: %1.

procedure ColorClick(Sender: TObject);


procedure CommStat1Click(Sender: TObject);


procedure CompClick(Sender: TObject);


procedure Connect1Click(Sender: TObject);


procedure Disconnect1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure FocusServerWindow1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Image1Click(Sender: TObject);


procedure Image1DblClick(Sender: TObject);

Single

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Log1Click(Sender: TObject);


procedure PauseChange(Sender: TObject);


procedure PriorityClick(Sender: TObject);


procedure RefreshComplete1Click(Sender: TObject);


procedure ResponseTimerTimer(Sender: TObject);


procedure SendButClick(Sender: TObject);

This is a "drag" operation

procedure SendCRButClick(Sender: TObject);


procedure Shutdown1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure UpdateChanges1Click(Sender: TObject);


procedure ProcessMessage(const Msg: string; Socket: TCustomWinSocket);

WaitImage.

procedure SendMsg(MsgNum: integer; const MsgData: string; Socket: TCustomWinSocket);


procedure AddMove(x, y: integer);


function CanSendMenuMsg: boolean;


procedure ClearMoveList;


procedure EnableButs;


procedure EnableInput;


procedure Log(const s: string);


procedure ParseComLine;


procedure SendText(const Text: string);


procedure Send_Current_Settings;


procedure SetStat(i: integer; s: string);


procedure StartAnim;

Stat[2] := 'Not Waiting';

procedure StopAnim;

Options1.

procedure UpdateStats;


procedure WMSysCommand(var Message: TWMSysCommand);

Stat[2] := 'Waiting';

Properties

property Stat : string


Events

Variables

AboveNormal1 : TMenuItem;


BelowNormal1 : TMenuItem;


BitmapFormat1 : TMenuItem;


ClickTimer : TTimer;


ClientSocket1 : TClientSocket;


Color24 : TMenuItem;


Color4 : TMenuItem;


CommStat1 : TMenuItem;


CompressionLevel1 : TMenuItem;


Connect1 : TMenuItem;


Critical1 : TMenuItem;


Default1 : TMenuItem;


Disconnect1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


FocusServerWindow1 : TMenuItem;


FormSettings1 : TFormSettings;


Gray4 : TMenuItem;


Gray8 : TMenuItem;


Highest1 : TMenuItem;


HighSlow1 : TMenuItem;


Idle1 : TMenuItem;


Image1 : TImage;


Log1 : TMenuItem;


LogList : TListBox;


Lowest1 : TMenuItem;


LowFast1 : TMenuItem;


MainMenu1 : TMainMenu;


Medium1 : TMenuItem;


N005sec1 : TMenuItem;


N010sec1 : TMenuItem;


N050sec1 : TMenuItem;


N1 : TMenuItem;


N100sec1 : TMenuItem;


N2 : TMenuItem;


N200sec1 : TMenuItem;


N3 : TMenuItem;


N500sec1 : TMenuItem;


Normal1 : TMenuItem;


Options1 : TMenuItem;


RefreshComplete1 : TMenuItem;


ResponseTimer : TTimer;


ScrollBox1 : TScrollBox;


SendBut : TSpeedButton;


SendCRBut : TSpeedButton;


SendEdit : TEdit;


ServerPause1 : TMenuItem;


ServerPriority1 : TMenuItem;


Shutdown1 : TMenuItem;


Special1 : TMenuItem;


Splitter1 : TSplitter;


StatPanel : TPanel;


StatusBar1 : TStatusBar;


Timer1 : TTimer;


UpdateChanges1 : TMenuItem;


View1 : TMenuItem;


WaitImage : TImage;


Anim : integer;


but : integer;


CompMode : TCompressionLevel;


CurMsg : string;


LastRec : integer;


LastX : integer;


LastY : integer;


MoveList : TList;


NeedReply : integer;


NumClick : integer;


NumRec : double;


NumSend : double;


ServerDelay : integer;


SvrPriority : integer;


t1 : integer;


ViewMode : TViewMode;



Constructors


Functions


procedure ClickTimerTimer(Sender: TObject);


procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);

Log(Format('%15-s %d', ['Message', MsgNum]));


procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);


procedure ClientSocket1Lookup(Sender: TObject; Socket: TCustomWinSocket);


procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

Stat[0] := Format('Sent: %1.0n', [NumSend]); Stat[1] := Format('Recv: %1.0n', [NumRec]);


procedure ColorClick(Sender: TObject);


procedure CommStat1Click(Sender: TObject);


procedure CompClick(Sender: TObject);


procedure Connect1Click(Sender: TObject);


procedure Disconnect1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure FocusServerWindow1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Image1Click(Sender: TObject);


procedure Image1DblClick(Sender: TObject);

Single


procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Log1Click(Sender: TObject);


procedure PauseChange(Sender: TObject);


procedure PriorityClick(Sender: TObject);


procedure RefreshComplete1Click(Sender: TObject);


procedure ResponseTimerTimer(Sender: TObject);


procedure SendButClick(Sender: TObject);

This is a "drag" operation


procedure SendCRButClick(Sender: TObject);


procedure Shutdown1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure UpdateChanges1Click(Sender: TObject);


procedure ProcessMessage(const Msg: string; Socket: TCustomWinSocket);

WaitImage.Hint := 'Data Last Received:' + #13#10 + CurTime;


procedure SendMsg(MsgNum: integer; const MsgData: string; Socket: TCustomWinSocket);


procedure AddMove(x, y: integer);


function CanSendMenuMsg: boolean;


procedure ClearMoveList;


procedure EnableButs;


procedure EnableInput;


procedure Log(const s: string);


procedure ParseComLine;


procedure SendText(const Text: string);


procedure Send_Current_Settings;


procedure SetStat(i: integer; s: string);


procedure StartAnim;

Stat[2] := 'Not Waiting';


procedure StopAnim;

Options1.Enabled := b;


procedure UpdateStats;


procedure WMSysCommand(var Message: TWMSysCommand);

Stat[2] := 'Waiting';


Properties


property Stat : string


Events


Variables


AboveNormal1 : TMenuItem;


BelowNormal1 : TMenuItem;


BitmapFormat1 : TMenuItem;


ClickTimer : TTimer;


ClientSocket1 : TClientSocket;


Color24 : TMenuItem;


Color4 : TMenuItem;


CommStat1 : TMenuItem;


CompressionLevel1 : TMenuItem;


Connect1 : TMenuItem;


Critical1 : TMenuItem;


Default1 : TMenuItem;


Disconnect1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


FocusServerWindow1 : TMenuItem;


FormSettings1 : TFormSettings;


Gray4 : TMenuItem;


Gray8 : TMenuItem;


Highest1 : TMenuItem;


HighSlow1 : TMenuItem;


Idle1 : TMenuItem;


Image1 : TImage;


Log1 : TMenuItem;


LogList : TListBox;


Lowest1 : TMenuItem;


LowFast1 : TMenuItem;


MainMenu1 : TMainMenu;


Medium1 : TMenuItem;


N005sec1 : TMenuItem;


N010sec1 : TMenuItem;


N050sec1 : TMenuItem;


N1 : TMenuItem;


N100sec1 : TMenuItem;


N2 : TMenuItem;


N200sec1 : TMenuItem;


N3 : TMenuItem;


N500sec1 : TMenuItem;


Normal1 : TMenuItem;


Options1 : TMenuItem;


RefreshComplete1 : TMenuItem;


ResponseTimer : TTimer;


ScrollBox1 : TScrollBox;


SendBut : TSpeedButton;


SendCRBut : TSpeedButton;


SendEdit : TEdit;


ServerPause1 : TMenuItem;


ServerPriority1 : TMenuItem;


Shutdown1 : TMenuItem;


Special1 : TMenuItem;


Splitter1 : TSplitter;


StatPanel : TPanel;


StatusBar1 : TStatusBar;


Timer1 : TTimer;


UpdateChanges1 : TMenuItem;


View1 : TMenuItem;


WaitImage : TImage;


Anim : integer;


but : integer;


CompMode : TCompressionLevel;


CurMsg : string;


LastRec : integer;


LastX : integer;


LastY : integer;


MoveList : TList;


NeedReply : integer;


NumClick : integer;


NumRec : double;


NumSend : double;


ServerDelay : integer;


SvrPriority : integer;


t1 : integer;


ViewMode : TViewMode;