Backups/SA-MP
1
0
Fork 0
mirror of https://github.com/dashr9230/SA-MP.git synced 2024-12-22 22:47:29 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[exgui] Implementn Rcon procedures

Browse Source
This commit is contained in:
RD42 2023-12-16 23:27:29 +08:00
parent 118153f727
commit 23664f3362
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
exgui/Rcon.dfm
View File

Binary file not shown.

33
exgui/Rcon.pas
View File

@ -10,13 +10,16 @@ type
TfmRcon = class(TForm) TfmRcon = class(TForm)
edInput: TEdit; edInput: TEdit;
moOutput: TMemo; moOutput: TMemo;
procedure edInputKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure edInputKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
{ Public declarations } Host: String;
Password: String;
protected
procedure CreateParams(var Params: TCreateParams); override;
end; end;
var var
@ -26,19 +29,37 @@ implementation
{$R *.dfm} {$R *.dfm}
procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char); procedure Output(szOutput: PChar); stdcall;
begin begin
// TODO: TfmRcon.edInputKeyPress fmRcon.moOutput.Lines.Add(szOutput);
end;
procedure TfmRcon.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent:= GetDesktopWindow;
end; end;
procedure TfmRcon.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfmRcon.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
// TODO: TfmRcon.FormClose Destroy;
end;
procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
if edInput.Text <> '' then begin
moOutput.Lines.Add('> ' + edInput.Text);
edInput.Text:= '';
end;
Key:= #0;
end;
end; end;
procedure TfmRcon.FormShow(Sender: TObject); procedure TfmRcon.FormShow(Sender: TObject);
begin begin
// TODO: TfmRcon.FormShow Caption:= 'Remote Console - ' + Host;
end; end;
end. end.