mirror of
https://github.com/dashr9230/SA-MP.git
synced 2024-12-22 22:47:29 +08:00
508 lines
12 KiB
ObjectPascal
508 lines
12 KiB
ObjectPascal
unit Main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, XPMan, ImgList, Menus, ComCtrls, StdCtrls, TeEngine,
|
|
Series, TeeProcs, Chart, Tabs, ToolWin, GIFImage;
|
|
|
|
type
|
|
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 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
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fmMain: TfmMain;
|
|
|
|
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.
|