mirror of
https://github.com/dashr9230/SA-MP.git
synced 2024-12-22 22:47:29 +08:00
[exgui] Add event stubs
This commit is contained in:
RD42
parent
b1ca75bf85
commit
a0699811fe
@ -8,6 +8,11 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmAbout = class(TForm)
|
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
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +26,29 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
375
exgui/Main.pas
375
exgui/Main.pas
@ -9,6 +9,76 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmMain = class(TForm)
|
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
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -22,4 +92,309 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -8,6 +8,9 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmRcon = class(TForm)
|
TfmRcon = class(TForm)
|
||||||
|
procedure edInputKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +24,19 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -8,6 +8,10 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmRconConfig = class(TForm)
|
TfmRconConfig = class(TForm)
|
||||||
|
procedure edHostKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure bnCancelClick(Sender: TObject);
|
||||||
|
procedure bnConnectClick(Sender: TObject);
|
||||||
|
procedure edPasswordChange(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +25,24 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -8,6 +8,11 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmServerProperties = class(TForm)
|
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
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +26,29 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -8,6 +8,10 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfmSettings = class(TForm)
|
TfmSettings = class(TForm)
|
||||||
|
procedure bnSaveClick(Sender: TObject);
|
||||||
|
procedure bnCancelClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure sbBrowseClick(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +25,24 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -8,6 +8,9 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
Twnd_webrunform = class(TForm)
|
Twnd_webrunform = class(TForm)
|
||||||
|
procedure BitBtn2Click(Sender: TObject);
|
||||||
|
procedure BitBtn3Click(Sender: TObject);
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
@ -21,4 +24,19 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user