Backups/SA-MP
1
0
Fork 0
mirror of https://github.com/dashr9230/SA-MP.git synced 2024-12-22 22:47:29 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[exgui] Add class member variables

Browse Source
This commit is contained in:
RD42 2023-12-02 20:35:55 +08:00
parent a0699811fe
commit f02abb7c83
8 changed files with 150 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
exgui/ExportFavorites.pas
View File

@ -8,6 +8,8 @@ uses
type type
TfmExportFavorites = class(TForm) TfmExportFavorites = class(TForm)
cbIncludeSavedPasswords: TCheckBox;
bnOk: TButton;
private private
{ Private declarations } { Private declarations }
public public

3
exgui/ImportFavorites.pas
View File

@ -8,6 +8,9 @@ uses
type type
TfmImportFavorites = class(TForm) TfmImportFavorites = class(TForm)
rbAddToCurrent: TRadioButton;
rbReplaceCurrent: TRadioButton;
bnOk: TButton;
private private
{ Private declarations } { Private declarations }
public public

107
exgui/Main.pas
View File

@ -9,6 +9,113 @@ uses
type type
TfmMain = class(TForm) TfmMain = class(TForm)
sbMain: TStatusBar;
mmMain: TMainMenu;
miFile: TMenuItem;
miExportFavoritesList: TMenuItem;
N1: TMenuItem;
miExit: TMenuItem;
miServers: TMenuItem;
miAddServer: TMenuItem;
miHelp: TMenuItem;
miAbout: TMenuItem;
tbMain: TToolBar;
pmServers: TPopupMenu;
tsServerLists: TTabSet;
miTools: TMenuItem;
ilMain: TImageList;
tbSettings: TToolButton;
tbCopyServerInfo: TToolButton;
tbMasterServerUpdate: TToolButton;
tbAbout: TToolButton;
tbHelp: TToolButton;
tbConnect: TToolButton;
tbRefreshServer: TToolButton;
tbAddServer: TToolButton;
tbDeleteServer: TToolButton;
tbServerProperties: TToolButton;
XPManifest: TXPManifest;
pnBreakable: TPanel;
gbFilter: TGroupBox;
edFilterMode: TLabeledEdit;
edFilterMap: TLabeledEdit;
cbFilterEmpty: TCheckBox;
cbFilterPassworded: TCheckBox;
cbFilterFull: TCheckBox;
gbInfo: TGroupBox;
tbSpacer1: TToolButton;
tbSpacer2: TToolButton;
tbSpacer4: TToolButton;
tbSpacer5: TToolButton;
tbSpacer3: TToolButton;
miConnect: TMenuItem;
N2: TMenuItem;
miDeleteServer: TMenuItem;
miRefreshServer: TMenuItem;
N3: TMenuItem;
miMasterServerUpdate: TMenuItem;
N4: TMenuItem;
miCopyServerInfo: TMenuItem;
miServerProperties: TMenuItem;
miSettings: TMenuItem;
miHelpTopics: TMenuItem;
N6: TMenuItem;
miImportFavoritesList: TMenuItem;
piConnect: TMenuItem;
N7: TMenuItem;
piDeleteServer: TMenuItem;
piRefreshServer: TMenuItem;
N9: TMenuItem;
piCopyServerInfo: TMenuItem;
piServerProperties: TMenuItem;
pnLine: TPanel;
lbSIAddressLab: TLabel;
lbSIModeLab: TLabel;
lbSIMapLab: TLabel;
lbSIPlayersLab: TLabel;
lbSIPingLab: TLabel;
lbSIPing: TLabel;
lbSIPlayers: TLabel;
lbSIMap: TLabel;
lbSIMode: TLabel;
edSIAddress: TEdit;
pnSIDivider: TPanel;
chSIPingChart: TChart;
chSIPingLineChart: TFastLineSeries;
tmSIPingUpdate: TTimer;
miView: TMenuItem;
miFilterServerInfo: TMenuItem;
N10: TMenuItem;
miStatusBar: TMenuItem;
pmCopy: TPopupMenu;
piCopy: TMenuItem;
pnRight: TPanel;
pnPlayers: TPanel;
lbPlayers: TListBox;
hcPlayers: THeaderControl;
pnRules: TPanel;
lbRules: TListBox;
hcRules: THeaderControl;
pnMain: TPanel;
hcServers: THeaderControl;
lbServers: TListBox;
spRight: TSplitter;
Splitter1: TSplitter;
lblPlayerName: TLabel;
N11: TMenuItem;
miSamp: TMenuItem;
tmrQueryQueueProcess: TTimer;
edName: TEdit;
label_url: TLabel;
AddtoFavorites1: TMenuItem;
imLogo: TImage;
imPadlock: TImage;
imPadlocked: TImage;
imDownArrow: TImage;
imUpArrow: TImage;
tmrServerListUpdate: TTimer;
ToolButton1: TToolButton;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure lbServersDrawItem(Control: TWinControl; Index: Integer; procedure lbServersDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState); Rect: TRect; State: TOwnerDrawState);

2
exgui/MasterUpdate.pas
View File

@ -8,6 +8,8 @@ uses
type type
TfmMasterUpdate = class(TForm) TfmMasterUpdate = class(TForm)
lblPleaseWait: TLabel;
lblUpdating: TLabel;
private private
{ Private declarations } { Private declarations }
public public

2
exgui/Rcon.pas
View File

@ -8,6 +8,8 @@ uses
type type
TfmRcon = class(TForm) TfmRcon = class(TForm)
edInput: TEdit;
moOutput: TMemo;
procedure edInputKeyPress(Sender: TObject; var Key: Char); procedure edInputKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

6
exgui/RconConfig.pas
View File

@ -8,6 +8,12 @@ uses
type type
TfmRconConfig = class(TForm) TfmRconConfig = class(TForm)
edHost: TEdit;
lbHost: TLabel;
lbPassword: TLabel;
edPassword: TEdit;
bnConnect: TButton;
bnCancel: TButton;
procedure edHostKeyPress(Sender: TObject; var Key: Char); procedure edHostKeyPress(Sender: TObject; var Key: Char);
procedure bnCancelClick(Sender: TObject); procedure bnCancelClick(Sender: TObject);
procedure bnConnectClick(Sender: TObject); procedure bnConnectClick(Sender: TObject);

20
exgui/ServerProperties.pas
View File

@ -8,6 +8,26 @@ uses
type type
TfmServerProperties = class(TForm) TfmServerProperties = class(TForm)
lbAddressLab: TLabel;
lbPlayersLab: TLabel;
lbPingLab: TLabel;
lbModeLab: TLabel;
lbMapLab: TLabel;
lbMap: TLabel;
lbMode: TLabel;
lbPing: TLabel;
lbPlayers: TLabel;
edAddress: TEdit;
lbHostName: TLabel;
lbServerPassword: TLabel;
lbRconPassword: TLabel;
edServerPassword: TEdit;
edRconPassword: TEdit;
bnSave: TButton;
bnCancel: TButton;
bnConnect: TButton;
pmCopy: TPopupMenu;
piCopy: TMenuItem;
procedure bnSaveClick(Sender: TObject); procedure bnSaveClick(Sender: TObject);
procedure bnCancelClick(Sender: TObject); procedure bnCancelClick(Sender: TObject);
procedure bnConnectClick(Sender: TObject); procedure bnConnectClick(Sender: TObject);

8
exgui/Settings.pas
View File

@ -8,6 +8,14 @@ uses
type type
TfmSettings = class(TForm) TfmSettings = class(TForm)
bnSave: TButton;
bnCancel: TButton;
gbPasswords: TGroupBox;
cbSaveServerPasswords: TCheckBox;
cbSaveRconPasswords: TCheckBox;
edInstallLoc: TEdit;
Label1: TLabel;
sbBrowse: TSpeedButton;
procedure bnSaveClick(Sender: TObject); procedure bnSaveClick(Sender: TObject);
procedure bnCancelClick(Sender: TObject); procedure bnCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);