📄 gamecommand.pas
字号:
unit GameCommand;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmGameCmd=class(TForm)
PageControl: TPageControl;
TabSheet1: TTabSheet;
StringGridGameCmd: TStringGrid;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
EditUserCmdName: TEdit;
EditUserCmdPerMission: TSpinEdit;
Label6: TLabel;
EditUserCmdOK: TButton;
LabelUserCmdFunc: TLabel;
LabelUserCmdParam: TLabel;
Label2: TLabel;
Label3: TLabel;
EditUserCmdSave: TButton;
StringGridGameMasterCmd: TStringGrid;
GroupBox2: TGroupBox;
Label4: TLabel;
Label5: TLabel;
LabelGameMasterCmdFunc: TLabel;
LabelGameMasterCmdParam: TLabel;
Label7: TLabel;
Label8: TLabel;
EditGameMasterCmdName: TEdit;
EditGameMasterCmdPerMission: TSpinEdit;
EditGameMasterCmdOK: TButton;
EditGameMasterCmdSave: TButton;
StringGridGameDebugCmd: TStringGrid;
GroupBox3: TGroupBox;
Label9: TLabel;
Label10: TLabel;
LabelGameDebugCmdFunc: TLabel;
LabelGameDebugCmdParam: TLabel;
Label11: TLabel;
Label12: TLabel;
EditGameDebugCmdName: TEdit;
EditGameDebugCmdPerMission: TSpinEdit;
EditGameDebugCmdOK: TButton;
EditGameDebugCmdSave: TButton;
procedure FormCreate(Sender : TObject);
procedure StringGridGameCmdClick(Sender : TObject);
procedure EditUserCmdNameChange(Sender : TObject);
procedure EditUserCmdPerMissionChange(Sender : TObject);
procedure EditUserCmdOKClick(Sender : TObject);
procedure EditUserCmdSaveClick(Sender : TObject);
procedure StringGridGameMasterCmdClick(Sender : TObject);
procedure EditGameMasterCmdNameChange(Sender : TObject);
procedure EditGameMasterCmdPerMissionChange(Sender : TObject);
procedure EditGameMasterCmdOKClick(Sender : TObject);
procedure StringGridGameDebugCmdClick(Sender : TObject);
procedure EditGameDebugCmdNameChange(Sender : TObject);
procedure EditGameDebugCmdPerMissionChange(Sender : TObject);
procedure EditGameDebugCmdOKClick(Sender : TObject);
procedure EditGameMasterCmdSaveClick(Sender : TObject);
procedure EditGameDebugCmdSaveClick(Sender : TObject);
procedure _PROC_005601B1(Sender : TObject);
procedure _PROC_005601E0(Sender : TObject);
procedure _PROC_0056036D(Sender : TObject);
procedure _PROC_00561E19(Sender : TObject);
procedure _PROC_00561EA1(Sender : TObject);
procedure _PROC_00562225(Sender : TObject);
procedure _PROC_00562241(Sender : TObject);
procedure _PROC_00565E91(Sender : TObject);
procedure _PROC_0056601D(Sender : TObject);
procedure _PROC_00566B6C(Sender : TObject);
procedure _PROC_00568C71(Sender : TObject);
procedure _PROC_00568F34(Sender : TObject);
procedure _PROC_00568F64(Sender : TObject);
procedure _PROC_00568F6C(Sender : TObject);
procedure _PROC_00568FF6(Sender : TObject);
procedure _PROC_0056906A(Sender : TObject);
procedure _PROC_005691BB(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmGameCmd: TfrmGameCmd;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmGameCmd.FormCreate(Sender : TObject);
begin
(*
0055FFD8 55 push ebp
0055FFD9 8BEC mov ebp, esp
0055FFDB 83C4F8 add esp, -$08
0055FFDE 8955F8 mov [ebp-$08], edx
0055FFE1 8945FC mov [ebp-$04], eax
0055FFE4 33D2 xor edx, edx
0055FFE6 8B45FC mov eax, [ebp-$04]
0055FFE9 8B80F8020000 mov eax, [eax+$02F8]
* Reference to: ComCtrls.TPageControl.SetActivePageIndex(TPageControl;Integer);
| or: QComCtrls.TPageControl.SetActivePageIndex(TPageControl;Integer);
|
0055FFEF E848B4EEFF call 0044B43C
0055FFF4 BA32000000 mov edx, $00000032
0055FFF9 8B45FC mov eax, [ebp-$04]
0055FFFC 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
00560002 E88D4CFBFF call 00514C94
* Possible String Reference to: '游戏命令'
|
00560007 6868015600 push $00560168
0056000C 33C9 xor ecx, ecx
0056000E 33D2 xor edx, edx
00560010 8B45FC mov eax, [ebp-$04]
00560013 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560019 E84A6EFBFF call 00516E68
* Possible String Reference to: '所需权限'
|
0056001E 687C015600 push $0056017C
00560023 33C9 xor ecx, ecx
00560025 BA01000000 mov edx, $00000001
0056002A 8B45FC mov eax, [ebp-$04]
0056002D 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560033 E8306EFBFF call 00516E68
* Possible String Reference to: '命令格式'
|
00560038 6890015600 push $00560190
0056003D 33C9 xor ecx, ecx
0056003F BA02000000 mov edx, $00000002
00560044 8B45FC mov eax, [ebp-$04]
00560047 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0056004D E8166EFBFF call 00516E68
* Possible String Reference to: '命令说明'
|
00560052 68A4015600 push $005601A4
00560057 33C9 xor ecx, ecx
00560059 BA03000000 mov edx, $00000003
0056005E 8B45FC mov eax, [ebp-$04]
00560061 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560067 E8FC6DFBFF call 00516E68
0056006C BA69000000 mov edx, $00000069
00560071 8B45FC mov eax, [ebp-$04]
00560074 8B8038030000 mov eax, [eax+$0338]
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
0056007A E8154CFBFF call 00514C94
* Possible String Reference to: '游戏命令'
|
0056007F 6868015600 push $00560168
00560084 33C9 xor ecx, ecx
00560086 33D2 xor edx, edx
00560088 8B45FC mov eax, [ebp-$04]
0056008B 8B8038030000 mov eax, [eax+$0338]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560091 E8D26DFBFF call 00516E68
* Possible String Reference to: '所需权限'
|
00560096 687C015600 push $0056017C
0056009B 33C9 xor ecx, ecx
0056009D BA01000000 mov edx, $00000001
005600A2 8B45FC mov eax, [ebp-$04]
005600A5 8B8038030000 mov eax, [eax+$0338]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005600AB E8B86DFBFF call 00516E68
* Possible String Reference to: '命令格式'
|
005600B0 6890015600 push $00560190
005600B5 33C9 xor ecx, ecx
005600B7 BA02000000 mov edx, $00000002
005600BC 8B45FC mov eax, [ebp-$04]
005600BF 8B8038030000 mov eax, [eax+$0338]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005600C5 E89E6DFBFF call 00516E68
* Possible String Reference to: '命令说明'
|
005600CA 68A4015600 push $005601A4
005600CF 33C9 xor ecx, ecx
005600D1 BA03000000 mov edx, $00000003
005600D6 8B45FC mov eax, [ebp-$04]
005600D9 8B8038030000 mov eax, [eax+$0338]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005600DF E8846DFBFF call 00516E68
005600E4 BA29000000 mov edx, $00000029
005600E9 8B45FC mov eax, [ebp-$04]
005600EC 8B8068030000 mov eax, [eax+$0368]
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
005600F2 E89D4BFBFF call 00514C94
* Possible String Reference to: '游戏命令'
|
005600F7 6868015600 push $00560168
005600FC 33C9 xor ecx, ecx
005600FE 33D2 xor edx, edx
00560100 8B45FC mov eax, [ebp-$04]
00560103 8B8068030000 mov eax, [eax+$0368]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560109 E85A6DFBFF call 00516E68
* Possible String Reference to: '所需权限'
|
0056010E 687C015600 push $0056017C
00560113 33C9 xor ecx, ecx
00560115 BA01000000 mov edx, $00000001
0056011A 8B45FC mov eax, [ebp-$04]
0056011D 8B8068030000 mov eax, [eax+$0368]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560123 E8406DFBFF call 00516E68
* Possible String Reference to: '命令格式'
|
00560128 6890015600 push $00560190
0056012D 33C9 xor ecx, ecx
0056012F BA02000000 mov edx, $00000002
00560134 8B45FC mov eax, [ebp-$04]
00560137 8B8068030000 mov eax, [eax+$0368]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0056013D E8266DFBFF call 00516E68
* Possible String Reference to: '命令说明'
|
00560142 68A4015600 push $005601A4
00560147 33C9 xor ecx, ecx
00560149 BA03000000 mov edx, $00000003
0056014E 8B45FC mov eax, [ebp-$04]
00560151 8B8068030000 mov eax, [eax+$0368]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00560157 E80C6DFBFF call 00516E68
0056015C 59 pop ecx
0056015D 59 pop ecx
0056015E 5D pop ebp
0056015F C3 ret
*)
end;
procedure TfrmGameCmd.StringGridGameCmdClick(Sender : TObject);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -