[exgui] Add event stubs

This commit is contained in:
RD42 2023-12-02 19:57:04 +08:00
parent b1ca75bf85
commit a0699811fe
7 changed files with 519 additions and 0 deletions

View File

@ -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.

View File

@ -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.

View File

@ -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.

View File

@ -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.

View File

@ -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.

View File

@ -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.

View File

@ -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.