Class TClientForm (unit ClientFrm) |
Inherits from
TForm
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';
property Stat : string
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;
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';
property Stat : string
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;