📄 ifdpzs.pas
字号:
unit IFDpZs;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmInfoDpZs=class(TForm)
mDPPaint: TPaintBox;
mTabSet: TTabSet;
mBigPanel: TPanel;
OFFS_02DC: N.A.;
OFFS_02F8: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure mDPPaintPaint(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure mTabSetChange(Sender : TObject);
procedure _PROC_00622020(Sender : TObject);
procedure _PROC_0062209C(Sender : TObject);
procedure _PROC_00622140(Sender : TObject);
procedure _PROC_0062229C(Sender : TObject);
procedure _PROC_006222A0(Sender : TObject);
procedure _PROC_00622515(Sender : TObject);
procedure _PROC_00623471(Sender : TObject);
procedure _PROC_00623475(Sender : TObject);
procedure _PROC_00623498(Sender : TObject);
procedure _PROC_0062358C(Sender : TObject);
procedure _PROC_006235A0(Sender : TObject);
procedure _PROC_006235E8(Sender : TObject);
procedure _PROC_00623618(Sender : TObject);
procedure Proc_00622514(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmInfoDpZs: TFrmInfoDpZs;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmInfoDpZs.FormCreate(Sender : TObject);
begin
(*
00621FA8 53 push ebx
00621FA9 56 push esi
00621FAA 8BD8 mov ebx, eax
* Reference to field TFrmInfoDpZs.OFFS_02DC : Byte
|
00621FAC C683DC02000000 mov byte ptr [ebx+$02DC], $00
00621FB3 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02D8
|
00621FB5 8983D8020000 mov [ebx+$02D8], eax
* Reference to field TFrmInfoDpZs.OFFS_02F8 : Byte
|
00621FBB C683F802000000 mov byte ptr [ebx+$02F8], $00
00621FC2 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02D0
|
00621FC4 8983D0020000 mov [ebx+$02D0], eax
00621FCA 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02EC
|
00621FCC 8983EC020000 mov [ebx+$02EC], eax
00621FD2 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02F0
|
00621FD4 8983F0020000 mov [ebx+$02F0], eax
00621FDA 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02F4
|
00621FDC 8983F4020000 mov [ebx+$02F4], eax
00621FE2 B201 mov dl, $01
* Reference to class TDZHBigTransList
|
00621FE4 A178AA6B00 mov eax, dword ptr [$006BAA78]
* Reference to: dzhlist.Proc_006BC8F4
|
00621FE9 E806A90900 call 006BC8F4
00621FEE 8BF0 mov esi, eax
* Reference to field TFrmInfoDpZs.OFFS_02FC
|
00621FF0 89B3FC020000 mov [ebx+$02FC], esi
00621FF6 BA12000000 mov edx, $00000012
00621FFB 8BC6 mov eax, esi
* Reference to: dzhlist.Proc_006BAC7C
|
00621FFD E87A8C0900 call 006BAC7C
* Reference to control TFrmInfoDpZs.mBigPanel : TPanel
|
00622002 8B93E8020000 mov edx, [ebx+$02E8]
* Reference to field TFrmInfoDpZs.OFFS_02FC
|
00622008 8B83FC020000 mov eax, [ebx+$02FC]
0062200E 8B08 mov ecx, [eax]
00622010 FF5110 call dword ptr [ecx+$10]
00622013 8BC3 mov eax, ebx
* Reference to : TFrmInfoDpZs._PROC_00622020()
|
00622015 E806000000 call 00622020
0062201A 5E pop esi
0062201B 5B pop ebx
0062201C C3 ret
*)
end;
procedure TFrmInfoDpZs.FormClose(Sender : TObject);
begin
(*
00622110 53 push ebx
00622111 56 push esi
00622112 8BF0 mov esi, eax
00622114 C60102 mov byte ptr [ecx], $02
* Reference to field TFrmInfoDpZs.OFFS_02D8
|
00622117 8B86D8020000 mov eax, [esi+$02D8]
0062211D 85C0 test eax, eax
0062211F 741A jz 0062213B
00622121 668B5004 mov dx, word ptr [eax+$04]
* Reference to pointer to GlobalVar_0078CF10
|
00622125 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0062212A 8B00 mov eax, [eax]
0062212C 33C9 xor ecx, ecx
0062212E 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
00622130 FF5304 call dword ptr [ebx+$04]
00622133 33C0 xor eax, eax
* Reference to field TFrmInfoDpZs.OFFS_02D8
|
00622135 8986D8020000 mov [esi+$02D8], eax
0062213B 5E pop esi
0062213C 5B pop ebx
0062213D C3 ret
*)
end;
procedure TFrmInfoDpZs.mDPPaintPaint(Sender : TObject);
begin
(*
* Reference to field TFrmInfoDpZs.Visible : Boolean
|
00622290 80784700 cmp byte ptr [eax+$47], $00
00622294 7405 jz 0062229B
* Reference to : TFrmInfoDpZs.Proc_00622514()
|
00622296 E879020000 call 00622514
0062229B C3 ret
*)
end;
procedure TFrmInfoDpZs.FormDestroy(Sender : TObject);
begin
(*
* Reference to field TFrmInfoDpZs.OFFS_02FC
|
00623448 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: system.TObject.Free(TObject);
|
0062344E E879FEDDFF call 004032CC
00623453 C3 ret
*)
end;
procedure TFrmInfoDpZs.mTabSetChange(Sender : TObject);
begin
(*
006234F4 55 push ebp
006234F5 8BEC mov ebp, esp
006234F7 53 push ebx
006234F8 8BD8 mov ebx, eax
006234FA 83E901 sub ecx, +$01
006234FD 7207 jb 00623506
006234FF 743B jz 0062353C
00623501 E981000000 jmp 00623587
00623506 33D2 xor edx, edx
* Reference to control TFrmInfoDpZs.mBigPanel : TPanel
|
00623508 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
0062350E E8295BE1FF call 0043903C
00623513 33D2 xor edx, edx
* Reference to control TFrmInfoDpZs.mBigPanel : TPanel
|
00623515 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
0062351B E84864E1FF call 00439968
00623520 B201 mov dl, $01
* Reference to control TFrmInfoDpZs.mDPPaint : TPaintBox
|
00623522 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00623528 E83B64E1FF call 00439968
0062352D B205 mov dl, $05
* Reference to control TFrmInfoDpZs.mDPPaint : TPaintBox
|
0062352F 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
00623535 E8025BE1FF call 0043903C
0062353A EB4B jmp 00623587
0062353C 33D2 xor edx, edx
* Reference to control TFrmInfoDpZs.mDPPaint : TPaintBox
|
0062353E 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00623544 E81F64E1FF call 00439968
00623549 33D2 xor edx, edx
* Reference to control TFrmInfoDpZs.mDPPaint : TPaintBox
|
0062354B 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
00623551 E8E65AE1FF call 0043903C
00623556 B205 mov dl, $05
* Reference to control TFrmInfoDpZs.mBigPanel : TPanel
|
00623558 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
0062355E E8D95AE1FF call 0043903C
00623563 B201 mov dl, $01
* Reference to control TFrmInfoDpZs.mBigPanel : TPanel
|
00623565 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
0062356B E8F863E1FF call 00439968
* Reference to pointer to GlobalVar_0078CF18
|
00623570 A1E8D07700 mov eax, dword ptr [$0077D0E8]
00623575 8B00 mov eax, [eax]
* Reference to class TDataGenDZH
|
00623577 8B15EC656000 mov edx, [$006065EC]
* Reference to: system.@AsClass;
|
0062357D E8DAFEDDFF call 0040345C
* Reference to: Unit_006065EC.Proc_0060D26C
|
00623582 E8E59CFEFF call 0060D26C
00623587 5B pop ebx
00623588 5D pop ebp
00623589 C20400 ret $0004
*)
end;
procedure TFrmInfoDpZs._PROC_00622020(Sender : TObject);
begin
(*
00622020 53 push ebx
00622021 8BD8 mov ebx, eax
* Reference to control TFrmInfoDpZs.mTabSet : TTabSet
|
00622023 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to field TTabSet.Tabs : TStrings
|
00622029 8B8000020000 mov eax, [eax+$0200]
0062202F 8B10 mov edx, [eax]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -