From b3669410162d4b25ce11494a25250458b19e89dd Mon Sep 17 00:00:00 2001
From: RD42 <42702181+dashr9230@users.noreply.github.com>
Date: Tue, 7 Nov 2023 23:38:36 +0800
Subject: [PATCH] [exgui] Add Rcon form

---
 exgui/Rcon.dfm | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++
 exgui/Rcon.pas | 24 ++++++++++++++++++++
 exgui/samp.dpr |  3 ++-
 3 files changed, 86 insertions(+), 1 deletion(-)
 create mode 100644 exgui/Rcon.dfm
 create mode 100644 exgui/Rcon.pas

diff --git a/exgui/Rcon.dfm b/exgui/Rcon.dfm
new file mode 100644
index 0000000..f44f4a9
--- /dev/null
+++ b/exgui/Rcon.dfm
@@ -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
diff --git a/exgui/Rcon.pas b/exgui/Rcon.pas
new file mode 100644
index 0000000..7ff6e83
--- /dev/null
+++ b/exgui/Rcon.pas
@@ -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.
diff --git a/exgui/samp.dpr b/exgui/samp.dpr
index 68f864e..ac207ee 100644
--- a/exgui/samp.dpr
+++ b/exgui/samp.dpr
@@ -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}