[exgui] Add Rcon form

This commit is contained in:
RD42 2023-11-07 23:38:36 +08:00
parent e79e0ab272
commit b366941016
3 changed files with 86 additions and 1 deletions

60
exgui/Rcon.dfm Normal file
View File

@ -0,0 +1,60 @@
object fmRcon: TfmRcon
Left = 279
Top = 107
BorderStyle = bsDialog
Caption = 'Remote Console'
ClientHeight = 387
ClientWidth = 844
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object edInput: TEdit
Left = 0
Top = 280
Width = 649
Height = 18
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'edInput'
OnKeyPress = edInputKeyPress
end
object moOutput: TMemo
Left = 0
Top = 0
Width = 649
Height = 281
TabStop = False
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = bsNone
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'SA:MP Remote Console Utility.'
'(C) Copyright 2006 SA:MP Team.')
ParentFont = False
ReadOnly = True
TabOrder = 1
end
end

24
exgui/Rcon.pas Normal file
View File

@ -0,0 +1,24 @@
unit Rcon;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfmRcon = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmRcon: TfmRcon;
implementation
{$R *.dfm}
end.

View File

@ -10,7 +10,8 @@ uses
RconConfig in 'RconConfig.pas' {Form6},
ServerProperties in 'ServerProperties.pas' {Form7},
Settings in 'Settings.pas' {Form8},
wnd_webrunform in 'wnd_webrunform.pas' {Form9};
wnd_webrunform in 'wnd_webrunform.pas' {Form9},
Rcon in 'Rcon.pas' {Form10};
{$R *.res}