📄 viewlevel.pas
字号:
unit ViewLevel;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmViewLevel=class(TForm)
GroupBox10: TGroupBox;
Label4: TLabel;
EditHumanLevel: TSpinEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
ComboBoxJob: TComboBox;
GridHumanInfo: TStringGrid;
ButtonClose: TButton;
procedure ButtonCloseClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure EditHumanLevelChange(Sender : TObject);
procedure ComboBoxJobChange(Sender : TObject);
procedure _PROC_0054445D(Sender : TObject);
procedure _PROC_00544494(Sender : TObject);
procedure _PROC_005449C0(Sender : TObject);
procedure _PROC_005449F0(Sender : TObject);
procedure _PROC_005449F8(Sender : TObject);
procedure _PROC_00544A82(Sender : TObject);
procedure _PROC_00544AF6(Sender : TObject);
procedure _PROC_00546725(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmViewLevel: TfrmViewLevel;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmViewLevel.ButtonCloseClick(Sender : TObject);
begin
(*
00544214 55 push ebp
00544215 8BEC mov ebp, esp
00544217 83C4F8 add esp, -$08
0054421A 8955F8 mov [ebp-$08], edx
0054421D 8945FC mov [ebp-$04], eax
00544220 8B45FC mov eax, [ebp-$04]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00544223 E8B815F4FF call 004857E0
00544228 59 pop ecx
00544229 59 pop ecx
0054422A 5D pop ebp
0054422B C3 ret
*)
end;
procedure TfrmViewLevel.FormCreate(Sender : TObject);
begin
(*
0054422C 55 push ebp
0054422D 8BEC mov ebp, esp
0054422F 83C4F8 add esp, -$08
00544232 8955F8 mov [ebp-$08], edx
00544235 8945FC mov [ebp-$04], eax
* Possible String Reference to: '属性'
|
00544238 6894435400 push $00544394
0054423D 33C9 xor ecx, ecx
0054423F 33D2 xor edx, edx
00544241 8B45FC mov eax, [ebp-$04]
00544244 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0054424A E8192CFDFF call 00516E68
* Possible String Reference to: '数值'
|
0054424F 68A4435400 push $005443A4
00544254 33C9 xor ecx, ecx
00544256 BA01000000 mov edx, $00000001
0054425B 8B45FC mov eax, [ebp-$04]
0054425E 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544264 E8FF2BFDFF call 00516E68
* Possible String Reference to: '经验值'
|
00544269 68B4435400 push $005443B4
0054426E B901000000 mov ecx, $00000001
00544273 33D2 xor edx, edx
00544275 8B45FC mov eax, [ebp-$04]
00544278 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0054427E E8E52BFDFF call 00516E68
* Possible String Reference to: '防御'
|
00544283 68C4435400 push $005443C4
00544288 B902000000 mov ecx, $00000002
0054428D 33D2 xor edx, edx
0054428F 8B45FC mov eax, [ebp-$04]
00544292 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544298 E8CB2BFDFF call 00516E68
* Possible String Reference to: '魔防'
|
0054429D 68D4435400 push $005443D4
005442A2 B903000000 mov ecx, $00000003
005442A7 33D2 xor edx, edx
005442A9 8B45FC mov eax, [ebp-$04]
005442AC 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005442B2 E8B12BFDFF call 00516E68
* Possible String Reference to: '攻击力'
|
005442B7 68E4435400 push $005443E4
005442BC B904000000 mov ecx, $00000004
005442C1 33D2 xor edx, edx
005442C3 8B45FC mov eax, [ebp-$04]
005442C6 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005442CC E8972BFDFF call 00516E68
* Possible String Reference to: '魔法'
|
005442D1 68F4435400 push $005443F4
005442D6 B905000000 mov ecx, $00000005
005442DB 33D2 xor edx, edx
005442DD 8B45FC mov eax, [ebp-$04]
005442E0 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
005442E6 E87D2BFDFF call 00516E68
* Possible String Reference to: '道术'
|
005442EB 6804445400 push $00544404
005442F0 B906000000 mov ecx, $00000006
005442F5 33D2 xor edx, edx
005442F7 8B45FC mov eax, [ebp-$04]
005442FA 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544300 E8632BFDFF call 00516E68
* Possible String Reference to: '生命值'
|
00544305 6814445400 push $00544414
0054430A B907000000 mov ecx, $00000007
0054430F 33D2 xor edx, edx
00544311 8B45FC mov eax, [ebp-$04]
00544314 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0054431A E8492BFDFF call 00516E68
* Possible String Reference to: '魔法值'
|
0054431F 6824445400 push $00544424
00544324 B908000000 mov ecx, $00000008
00544329 33D2 xor edx, edx
0054432B 8B45FC mov eax, [ebp-$04]
0054432E 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544334 E82F2BFDFF call 00516E68
* Possible String Reference to: '背包'
|
00544339 6834445400 push $00544434
0054433E B909000000 mov ecx, $00000009
00544343 33D2 xor edx, edx
00544345 8B45FC mov eax, [ebp-$04]
00544348 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0054434E E8152BFDFF call 00516E68
* Possible String Reference to: '负重'
|
00544353 6844445400 push $00544444
00544358 B90A000000 mov ecx, $0000000A
0054435D 33D2 xor edx, edx
0054435F 8B45FC mov eax, [ebp-$04]
00544362 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544368 E8FB2AFDFF call 00516E68
* Possible String Reference to: '腕力'
|
0054436D 6854445400 push $00544454
00544372 B90B000000 mov ecx, $0000000B
00544377 33D2 xor edx, edx
00544379 8B45FC mov eax, [ebp-$04]
0054437C 8B8010030000 mov eax, [eax+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00544382 E8E12AFDFF call 00516E68
00544387 59 pop ecx
00544388 59 pop ecx
00544389 5D pop ebp
0054438A C3 ret
*)
end;
procedure TfrmViewLevel.EditHumanLevelChange(Sender : TObject);
begin
(*
00544930 55 push ebp
00544931 8BEC mov ebp, esp
00544933 83C4F8 add esp, -$08
00544936 8955F8 mov [ebp-$08], edx
00544939 8945FC mov [ebp-$04], eax
0054493C 8B45FC mov eax, [ebp-$04]
0054493F 8B8000030000 mov eax, [eax+$0300]
* Reference to : TTimerSpeedButton._PROC_0051A158()
|
00544945 E80E58FDFF call 0051A158
0054494A 48 dec eax
0054494B 7D13 jnl 00544960
0054494D BA01000000 mov edx, $00000001
00544952 8B45FC mov eax, [ebp-$04]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -