From a0699811feacc912f4848ede521cda92377525a5 Mon Sep 17 00:00:00 2001
From: RD42 <42702181+dashr9230@users.noreply.github.com>
Date: Sat, 2 Dec 2023 19:57:04 +0800
Subject: [PATCH] [exgui] Add event stubs

---
 exgui/About.pas            |  30 +++
 exgui/Main.pas             | 375 +++++++++++++++++++++++++++++++++++++
 exgui/Rcon.pas             |  18 ++
 exgui/RconConfig.pas       |  24 +++
 exgui/ServerProperties.pas |  30 +++
 exgui/Settings.pas         |  24 +++
 exgui/unit_webrunform.pas  |  18 ++
 7 files changed, 519 insertions(+)

diff --git a/exgui/About.pas b/exgui/About.pas
index e198cce..0bdf1ab 100644
--- a/exgui/About.pas
+++ b/exgui/About.pas
@@ -8,6 +8,11 @@ uses
 
 type
   TfmAbout = class(TForm)
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +26,29 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmAbout.FormShow(Sender: TObject);
+begin
+  // TODO: TfmAbout.FormShow
+end;
+
+procedure TfmAbout.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  // TODO: TfmAbout.FormClose
+end;
+
+procedure TfmAbout.FormCreate(Sender: TObject);
+begin
+  // TODO: TfmAbout.FormCreate
+end;
+
+procedure TfmAbout.FormDestroy(Sender: TObject);
+begin
+  // TODO: TfmAbout.FormDestroy
+end;
+
+procedure TfmAbout.FormClick(Sender: TObject);
+begin
+  // TODO: TfmAbout.FormClick
+end;
+
 end.
diff --git a/exgui/Main.pas b/exgui/Main.pas
index 12caf7a..bc92f92 100644
--- a/exgui/Main.pas
+++ b/exgui/Main.pas
@@ -9,6 +9,76 @@ uses
 
 type
   TfmMain = class(TForm)
+    procedure FormCreate(Sender: TObject);
+    procedure lbServersDrawItem(Control: TWinControl; Index: Integer;
+      Rect: TRect; State: TOwnerDrawState);
+    procedure hcServersSectionResize(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure tbMainResize(Sender: TObject);
+    procedure hcServersSectionClick(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure pnBreakableResize(Sender: TObject);
+    procedure hcServersDrawSection(HeaderControl: THeaderControl;
+      Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
+    procedure tmrServerListUpdateTimer(Sender: TObject);
+    procedure tmSIPingUpdateTimer(Sender: TObject);
+    procedure lbServersClick(Sender: TObject);
+    procedure FilterChange(Sender: TObject);
+    procedure UpdateServers;
+    procedure lbServersContextPopup(Sender: TObject; MousePos: TPoint;
+      var Handled: Boolean);
+    procedure gbInfoContextPopup(Sender: TObject; MousePos: TPoint;
+      var Handled: Boolean);
+    procedure ImportFavoritesClick(Sender: TObject);
+    procedure ImportFavorites;
+    procedure ExportFavoritesClick(Sender: TObject);
+    procedure ExportFavorites;
+    procedure ExitClick(Sender: TObject);
+    procedure miViewClick(Sender: TObject);
+    procedure ToggleFilterServerInfo(Sender: TObject);
+    procedure ToggleStatusBar(Sender: TObject);
+    procedure ConnectClick(Sender: TObject);
+    procedure AddServerClick(Sender: TObject);
+    procedure AddServer;
+    procedure DeleteServerClick(Sender: TObject);
+    procedure RefreshServerClick(Sender: TObject);
+    procedure MasterServerUpdateClick(Sender: TObject);
+    procedure CopyServerInfoClick(Sender: TObject);
+    procedure ServerPropertiesClick(Sender: TObject);
+    procedure RemoteConsoleClick(Sender: TObject);
+    procedure SettingsClick(Sender: TObject);
+    procedure HelpTopicsClick(Sender: TObject);
+    procedure AboutClick(Sender: TObject);
+    procedure tsServerListsChange(Sender: TObject; NewTab: Integer;
+      var AllowChange: Boolean);
+    procedure QueryServerInfoParse;
+    procedure QueryServerInfoError;
+    procedure QueryServerInfo;
+    procedure ServerConnect;
+    procedure piCopyClick(Sender: TObject);
+    procedure pmCopyPopup(Sender: TObject);
+    procedure lbPlayersDrawItem(Control: TWinControl; Index: Integer;
+      Rect: TRect; State: TOwnerDrawState);
+    procedure hcPlayersSectionResize(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure lbRulesDrawItem(Control: TWinControl; Index: Integer;
+      Rect: TRect; State: TOwnerDrawState);
+    procedure hcRulesSectionResize(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure sbMainDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
+      const Rect: TRect);
+    procedure lbPlayersExit(Sender: TObject);
+    procedure lbRulesExit(Sender: TObject);
+    procedure WMRecv;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure BrowseForFolder;
+    procedure miSampClick(Sender: TObject);
+    procedure tmrQueryQueueProcessTimer(Sender: TObject);
+    procedure label_urlClick(Sender: TObject);
+    procedure CreateFASTDesktoplink1Click;
+    procedure FormResize(Sender: TObject);
+    procedure imLogoClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -22,4 +92,309 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmMain.FormCreate(Sender: TObject);
+begin
+  // TODO: TfmMain.FormCreate
+end;
+
+procedure TfmMain.lbServersDrawItem(Control: TWinControl; Index: Integer;
+  Rect: TRect; State: TOwnerDrawState);
+begin
+  // TODO: TfmMain.lbServersDrawItem
+end;
+
+procedure TfmMain.hcServersSectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  // TODO: TfmMain.hcServersSectionResize
+end;
+
+procedure TfmMain.tbMainResize(Sender: TObject);
+begin
+  // TODO: TfmMain.tbMainResize
+end;
+
+procedure TfmMain.hcServersSectionClick(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  // TODO: TfmMain.hcServersSectionClick
+end;
+
+procedure TfmMain.pnBreakableResize(Sender: TObject);
+begin
+  // TODO: TfmMain.pnBreakableResize
+end;
+
+procedure TfmMain.hcServersDrawSection(HeaderControl: THeaderControl;
+  Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
+begin
+  // TODO: TfmMain.hcServersDrawSection
+end;
+
+procedure TfmMain.tmrServerListUpdateTimer(Sender: TObject);
+begin
+  // TODO: TfmMain.tmrServerListUpdateTimer
+end;
+
+procedure TfmMain.tmSIPingUpdateTimer(Sender: TObject);
+begin
+  // TODO: TfmMain.tmSIPingUpdateTimer
+end;
+
+procedure TfmMain.lbServersClick(Sender: TObject);
+begin
+  // TODO: TfmMain.lbServersClick
+end;
+
+procedure TfmMain.FilterChange(Sender: TObject);
+begin
+  // TODO: TfmMain.FilterChange
+end;
+
+procedure TfmMain.UpdateServers;
+begin
+  // TODO: TfmMain.UpdateServers
+end;
+
+procedure TfmMain.lbServersContextPopup(Sender: TObject; MousePos: TPoint;
+  var Handled: Boolean);
+begin
+  // TODO: TfmMain.lbServersContextPopup
+end;
+
+procedure TfmMain.gbInfoContextPopup(Sender: TObject; MousePos: TPoint;
+  var Handled: Boolean);
+begin
+  // TODO: TfmMain.gbInfoContextPopup
+end;
+
+procedure TfmMain.ImportFavoritesClick(Sender: TObject);
+begin
+  // TODO: TfmMain.ImportFavoritesClick
+end;
+
+procedure TfmMain.ImportFavorites;
+begin
+  // TODO: TfmMain.ImportFavorites
+end;
+
+
+
+
+procedure TfmMain.ExportFavoritesClick(Sender: TObject);
+begin
+  // TODO: TfmMain.ExportFavoritesClick
+end;
+
+procedure TfmMain.ExportFavorites;
+begin
+  // TODO: TfmMain.ExportFavorites
+end;
+
+procedure TfmMain.ExitClick(Sender: TObject);
+begin
+  // TODO: TfmMain.ExitClick
+end;
+
+procedure TfmMain.miViewClick(Sender: TObject);
+begin
+  // TODO: TfmMain.miViewClick
+end;
+
+procedure TfmMain.ToggleFilterServerInfo(Sender: TObject);
+begin
+  // TODO: TfmMain.ToggleFilterServerInfo
+end;
+
+procedure TfmMain.ToggleStatusBar(Sender: TObject);
+begin
+  // TODO: TfmMain.ToggleStatusBar
+end;
+
+procedure TfmMain.ConnectClick(Sender: TObject);
+begin
+  // TODO: TfmMain.ConnectClick
+end;
+
+procedure TfmMain.AddServerClick(Sender: TObject);
+begin
+  // TODO: TfmMain.AddServerClick
+end;
+
+procedure TfmMain.AddServer;
+begin
+  // TODO: TfmMain.AddServer
+end;
+
+procedure TfmMain.DeleteServerClick(Sender: TObject);
+begin
+  // TODO: TfmMain.DeleteServerClick
+end;
+
+procedure TfmMain.RefreshServerClick(Sender: TObject);
+begin
+  // TODO: TfmMain.RefreshServerClick
+end;
+
+procedure TfmMain.MasterServerUpdateClick(Sender: TObject);
+begin
+  // TODO: TfmMain.MasterServerUpdateClick
+end;
+
+procedure TfmMain.CopyServerInfoClick(Sender: TObject);
+begin
+  // TODO: TfmMain.CopyServerInfoClick
+end;
+
+procedure TfmMain.ServerPropertiesClick(Sender: TObject);
+begin
+  // TODO: TfmMain.ServerPropertiesClick
+end;
+
+procedure TfmMain.RemoteConsoleClick(Sender: TObject);
+begin
+  // TODO: TfmMain.RemoteConsoleClick
+end;
+
+procedure TfmMain.SettingsClick(Sender: TObject);
+begin
+  // TODO: TfmMain.SettingsClick
+end;
+
+procedure TfmMain.HelpTopicsClick(Sender: TObject);
+begin
+  // TODO: TfmMain.HelpTopicsClick
+end;
+
+procedure TfmMain.AboutClick(Sender: TObject);
+begin
+  // TODO: TfmMain.AboutClick
+end;
+
+procedure TfmMain.tsServerListsChange(Sender: TObject; NewTab: Integer;
+  var AllowChange: Boolean);
+begin
+  // TODO: TfmMain.tsServerListsChange
+end;
+
+procedure TfmMain.QueryServerInfoParse;
+begin
+  // TODO: TfmMain.QueryServerInfoParse
+end;
+
+procedure TfmMain.QueryServerInfoError;
+begin
+  // TODO: TfmMain.QueryServerInfoError
+end;
+
+procedure TfmMain.QueryServerInfo;
+begin
+  // TODO: TfmMain.QueryServerInfo
+end;
+
+procedure TfmMain.ServerConnect;
+begin
+  // TODO: TfmMain.ServerConnect
+end;
+
+procedure TfmMain.piCopyClick(Sender: TObject);
+begin
+  // TODO: TfmMain.piCopyClick
+end;
+
+procedure TfmMain.pmCopyPopup(Sender: TObject);
+begin
+  // TODO: TfmMain.pmCopyPopup
+end;
+
+procedure TfmMain.lbPlayersDrawItem(Control: TWinControl; Index: Integer;
+  Rect: TRect; State: TOwnerDrawState);
+begin
+  // TODO: TfmMain.lbPlayersDrawItem
+end;
+
+procedure TfmMain.hcPlayersSectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  // TODO: TfmMain.hcPlayersSectionResize
+end;
+
+procedure TfmMain.lbRulesDrawItem(Control: TWinControl; Index: Integer;
+  Rect: TRect; State: TOwnerDrawState);
+begin
+  // TODO: TfmMain.lbRulesDrawItem
+end;
+
+procedure TfmMain.hcRulesSectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  // TODO: TfmMain.hcRulesSectionResize
+end;
+
+procedure TfmMain.sbMainDrawPanel(StatusBar: TStatusBar;
+  Panel: TStatusPanel; const Rect: TRect);
+begin
+  // TODO: TfmMain.sbMainDrawPanel
+end;
+
+procedure TfmMain.lbPlayersExit(Sender: TObject);
+begin
+  // TODO: TfmMain.lbPlayersExit
+end;
+
+procedure TfmMain.lbRulesExit(Sender: TObject);
+begin
+  // TODO: TfmMain.lbRulesExit
+end;
+
+procedure TfmMain.WMRecv;
+begin
+  // TODO: TfmMain.WMRecv
+end;
+
+procedure TfmMain.FormDestroy(Sender: TObject);
+begin
+  // TODO: TfmMain.FormDestroy
+end;
+
+procedure TfmMain.FormShow(Sender: TObject);
+begin
+  // TODO: TfmMain.FormShow
+end;
+
+procedure TfmMain.BrowseForFolder;
+begin
+  // TODO: TfmMain.BrowseForFolder
+end;
+
+procedure TfmMain.miSampClick(Sender: TObject);
+begin
+  // TODO: TfmMain.miSampClick
+end;
+
+procedure TfmMain.tmrQueryQueueProcessTimer(Sender: TObject);
+begin
+  // TODO: TfmMain.tmrQueryQueueProcessTimer
+end;
+
+procedure TfmMain.label_urlClick(Sender: TObject);
+begin
+  // TODO: TfmMain.label_urlClick
+end;
+
+procedure TfmMain.CreateFASTDesktoplink1Click;
+begin
+  // TODO: TfmMain.CreateFASTDesktoplink1Click
+end;
+
+procedure TfmMain.FormResize(Sender: TObject);
+begin
+  // TODO: TfmMain.FormResize
+end;
+
+procedure TfmMain.imLogoClick(Sender: TObject);
+begin
+  // TODO: TfmMain.imLogoClick
+end;
+
 end.
diff --git a/exgui/Rcon.pas b/exgui/Rcon.pas
index 7ff6e83..acefeca 100644
--- a/exgui/Rcon.pas
+++ b/exgui/Rcon.pas
@@ -8,6 +8,9 @@ uses
 
 type
   TfmRcon = class(TForm)
+    procedure edInputKeyPress(Sender: TObject; var Key: Char);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +24,19 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
+begin
+  // TODO: TfmRcon.edInputKeyPress
+end;
+
+procedure TfmRcon.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  // TODO: TfmRcon.FormClose
+end;
+
+procedure TfmRcon.FormShow(Sender: TObject);
+begin
+  // TODO: TfmRcon.FormShow
+end;
+
 end.
diff --git a/exgui/RconConfig.pas b/exgui/RconConfig.pas
index 6437acb..590fcbb 100644
--- a/exgui/RconConfig.pas
+++ b/exgui/RconConfig.pas
@@ -8,6 +8,10 @@ uses
 
 type
   TfmRconConfig = class(TForm)
+    procedure edHostKeyPress(Sender: TObject; var Key: Char);
+    procedure bnCancelClick(Sender: TObject);
+    procedure bnConnectClick(Sender: TObject);
+    procedure edPasswordChange(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +25,24 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmRconConfig.edHostKeyPress(Sender: TObject; var Key: Char);
+begin
+  // TODO: TfmRconConfig.edHostKeyPress
+end;
+
+procedure TfmRconConfig.bnCancelClick(Sender: TObject);
+begin
+  // TODO: TfmRconConfig.bnCancelClick
+end;
+
+procedure TfmRconConfig.bnConnectClick(Sender: TObject);
+begin
+  // TODO: TfmRconConfig.bnConnectClick
+end;
+
+procedure TfmRconConfig.edPasswordChange(Sender: TObject);
+begin
+  // TODO: TfmRconConfig.edPasswordChange
+end;
+
 end.
diff --git a/exgui/ServerProperties.pas b/exgui/ServerProperties.pas
index 22b2110..17957d1 100644
--- a/exgui/ServerProperties.pas
+++ b/exgui/ServerProperties.pas
@@ -8,6 +8,11 @@ uses
 
 type
   TfmServerProperties = class(TForm)
+    procedure bnSaveClick(Sender: TObject);
+    procedure bnCancelClick(Sender: TObject);
+    procedure bnConnectClick(Sender: TObject);
+    procedure pmCopyPopup(Sender: TObject);
+    procedure piCopyClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +26,29 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmServerProperties.bnSaveClick(Sender: TObject);
+begin
+  // TODO: TfmServerProperties.bnSaveClick
+end;
+
+procedure TfmServerProperties.bnCancelClick(Sender: TObject);
+begin
+  // TODO: TfmServerProperties.bnCancelClick
+end;
+
+procedure TfmServerProperties.bnConnectClick(Sender: TObject);
+begin
+  // TODO: TfmServerProperties.bnConnectClick
+end;
+
+procedure TfmServerProperties.pmCopyPopup(Sender: TObject);
+begin
+  // TODO: TfmServerProperties.pmCopyPopup
+end;
+
+procedure TfmServerProperties.piCopyClick(Sender: TObject);
+begin
+  // TODO: TfmServerProperties.piCopyClick
+end;
+
 end.
diff --git a/exgui/Settings.pas b/exgui/Settings.pas
index fad16ef..a6b05ee 100644
--- a/exgui/Settings.pas
+++ b/exgui/Settings.pas
@@ -8,6 +8,10 @@ uses
 
 type
   TfmSettings = class(TForm)
+    procedure bnSaveClick(Sender: TObject);
+    procedure bnCancelClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure sbBrowseClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +25,24 @@ implementation
 
 {$R *.dfm}
 
+procedure TfmSettings.bnSaveClick(Sender: TObject);
+begin
+  // TODO: TfmSettings.bnSaveClick
+end;
+
+procedure TfmSettings.bnCancelClick(Sender: TObject);
+begin
+  // TODO: TfmSettings.bnCancelClick
+end;
+
+procedure TfmSettings.FormCreate(Sender: TObject);
+begin
+  // TODO: TfmSettings.FormCreate
+end;
+
+procedure TfmSettings.sbBrowseClick(Sender: TObject);
+begin
+  // TODO: TfmSettings.sbBrowseClick
+end;
+
 end.
diff --git a/exgui/unit_webrunform.pas b/exgui/unit_webrunform.pas
index 34859e5..f3bdd6e 100644
--- a/exgui/unit_webrunform.pas
+++ b/exgui/unit_webrunform.pas
@@ -8,6 +8,9 @@ uses
 
 type
   Twnd_webrunform = class(TForm)
+    procedure BitBtn2Click(Sender: TObject);
+    procedure BitBtn3Click(Sender: TObject);
+    procedure BitBtn1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -21,4 +24,19 @@ implementation
 
 {$R *.dfm}
 
+procedure Twnd_webrunform.BitBtn2Click(Sender: TObject);
+begin
+  // TODO: Twnd_webrunform.BitBtn2Click
+end;
+
+procedure Twnd_webrunform.BitBtn3Click(Sender: TObject);
+begin
+  // TODO: Twnd_webrunform.BitBtn3Click
+end;
+
+procedure Twnd_webrunform.BitBtn1Click(Sender: TObject);
+begin
+  // TODO: Twnd_webrunform.BitBtn1Click
+end;
+
 end.