📄 ifggzs.pas
字号:
unit IFGgZs;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmInfoGgZs=class(TForm)
PaintBox1: TPaintBox;
TabSet1: TTabSet;
mTickPanel: TPanel;
mZDPanel: TPanel;
mCWPanel: TPanel;
mZBPanel: TPanel;
OFFS_02DC: N.A.;
OFFS_036C: N.A.;
OFFS_031D: N.A.;
OFFS_031C: N.A.;
OFFS_030C: N.A.;
OFFS_0324: N.A.;
OFFS_037C: N.A.;
OFFS_00E9: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure mSellBuyDblClick(Sender : TObject);
procedure PaintBox1Paint(Sender : TObject);
procedure PaintBox1MouseDown(Sender : TObject);
procedure TabSet1Change(Sender : TObject);
procedure PaintBox1MouseMove(Sender : TObject);
procedure _PROC_0061A46F(Sender : TObject);
procedure _PROC_0061A66C(Sender : TObject);
procedure _PROC_0061A6C0(Sender : TObject);
procedure _PROC_0061A890(Sender : TObject);
procedure _PROC_0061A8AC(Sender : TObject);
procedure _PROC_0061A8F0(Sender : TObject);
procedure _PROC_0061A920(Sender : TObject);
procedure _PROC_0061A930(Sender : TObject);
procedure _PROC_0061A940(Sender : TObject);
procedure _PROC_0061A944(Sender : TObject);
procedure _PROC_0061ABE8(Sender : TObject);
procedure _PROC_0061AC11(Sender : TObject);
procedure _PROC_0061ACA8(Sender : TObject);
procedure _PROC_0061AD94(Sender : TObject);
procedure _PROC_0061ADD4(Sender : TObject);
procedure _PROC_0061AE44(Sender : TObject);
procedure _PROC_0061AF7C(Sender : TObject);
procedure _PROC_0061AFA8(Sender : TObject);
procedure _PROC_0061AFF0(Sender : TObject);
procedure _PROC_0061B37F(Sender : TObject);
procedure _PROC_0061B430(Sender : TObject);
procedure _PROC_0061B518(Sender : TObject);
procedure _PROC_0061B52C(Sender : TObject);
procedure _PROC_0061B5D8(Sender : TObject);
procedure _PROC_0061B69C(Sender : TObject);
procedure _PROC_0061B718(Sender : TObject);
procedure _PROC_0061B760(Sender : TObject);
procedure _PROC_0061B7B0(Sender : TObject);
procedure _PROC_0061B7F8(Sender : TObject);
procedure _PROC_0061B848(Sender : TObject);
procedure _PROC_0061B8C0(Sender : TObject);
procedure _PROC_0061B910(Sender : TObject);
procedure _PROC_0061B9A9(Sender : TObject);
procedure _PROC_0061BA38(Sender : TObject);
procedure _PROC_0061BA3C(Sender : TObject);
procedure _PROC_0061BA88(Sender : TObject);
procedure _PROC_0061BB38(Sender : TObject);
procedure _PROC_0061BC24(Sender : TObject);
procedure _PROC_0061BC58(Sender : TObject);
procedure _PROC_0061BC6C(Sender : TObject);
procedure _PROC_0061BCDC(Sender : TObject);
procedure _PROC_0061BD24(Sender : TObject);
procedure Proc_0061A468(Sender : TObject);
procedure Proc_0061B37C(Sender : TObject);
procedure Proc_0061AC00(Sender : TObject);
procedure Proc_0061AC08(Sender : TObject);
procedure Proc_0061AC10(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmInfoGgZs: TFrmInfoGgZs;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmInfoGgZs.FormCreate(Sender : TObject);
begin
(*
0061A494 53 push ebx
0061A495 56 push esi
0061A496 8BD8 mov ebx, eax
* Reference to field TFrmInfoGgZs.OFFS_0368
|
0061A498 C7836803000018000000 mov dword ptr [ebx+$0368], $00000018
* Reference to field TFrmInfoGgZs.OFFS_02DC : Byte
|
0061A4A2 C683DC02000001 mov byte ptr [ebx+$02DC], $01
0061A4A9 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs._PROC_0061B848()
|
0061A4AB E898130000 call 0061B848
0061A4B0 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02F8
|
0061A4B2 8983F8020000 mov [ebx+$02F8], eax
0061A4B8 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02FC
|
0061A4BA 8983FC020000 mov [ebx+$02FC], eax
* Reference to field TFrmInfoGgZs.OFFS_036E
|
0061A4C0 66C7836E030000FFFF mov word ptr [ebx+$036E], $FFFF
0061A4C9 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02D0
|
0061A4CB 8983D0020000 mov [ebx+$02D0], eax
0061A4D1 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061A4D3 8983D8020000 mov [ebx+$02D8], eax
0061A4D9 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02D4
|
0061A4DB 8983D4020000 mov [ebx+$02D4], eax
* Reference to field TFrmInfoGgZs.OFFS_036C : Byte
|
0061A4E1 C6836C03000000 mov byte ptr [ebx+$036C], $00
0061A4E8 B201 mov dl, $01
* Reference to class TDrawMMP
|
0061A4EA A174EA6100 mov eax, dword ptr [$0061EA74]
* Reference to: Unit_0061EA74.Proc_0061EC28
|
0061A4EF E834470000 call 0061EC28
* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061A4F4 898308030000 mov [ebx+$0308], eax
0061A4FA B201 mov dl, $01
* Reference to class TDZHRTList
|
0061A4FC A100AA6B00 mov eax, dword ptr [$006BAA00]
* Reference to: dzhlist.Proc_006BC580
|
0061A501 E87A200A00 call 006BC580
0061A506 8BF0 mov esi, eax
* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061A508 89B370030000 mov [ebx+$0370], esi
* Reference to control TFrmInfoGgZs.mTickPanel : TPanel
|
0061A50E 8B93E8020000 mov edx, [ebx+$02E8]
0061A514 8BC6 mov eax, esi
0061A516 8B08 mov ecx, [eax]
* Possible reference to virtual method TDZHRTList.OFFS_10
|
0061A518 FF5110 call dword ptr [ecx+$10]
0061A51B 8BD3 mov edx, ebx
* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061A51D 8B8370030000 mov eax, [ebx+$0370]
* Reference to: dzhlist.Proc_006BC8C8
|
0061A523 E8A0230A00 call 006BC8C8
0061A528 B201 mov dl, $01
* Reference to class TDZHCWList
|
0061A52A A100A96B00 mov eax, dword ptr [$006BA900]
* Reference to: dzhlist.Proc_006BAB84
|
0061A52F E850060A00 call 006BAB84
0061A534 8BF0 mov esi, eax
* Reference to field TFrmInfoGgZs.OFFS_0374
|
0061A536 89B374030000 mov [ebx+$0374], esi
* Reference to control TFrmInfoGgZs.mCWPanel : TPanel
|
0061A53C 8B93F0020000 mov edx, [ebx+$02F0]
0061A542 8BC6 mov eax, esi
0061A544 8B08 mov ecx, [eax]
* Possible reference to virtual method TDZHCWList.OFFS_10
|
0061A546 FF5110 call dword ptr [ecx+$10]
0061A549 8BCB mov ecx, ebx
0061A54B B201 mov dl, $01
* Reference to class TLifeBoard
|
0061A54D A1D4977500 mov eax, dword ptr [$007597D4]
* Reference to: LifeBoard.Proc_0075AB1C
|
0061A552 E8C5051400 call 0075AB1C
0061A557 8BF0 mov esi, eax
* Reference to field TFrmInfoGgZs.OFFS_0378
|
0061A559 89B378030000 mov [ebx+$0378], esi
0061A55F 33C9 xor ecx, ecx
0061A561 33D2 xor edx, edx
0061A563 8BC6 mov eax, esi
* Reference to: LifeBoard.Proc_0075AAE8
|
0061A565 E87E051400 call 0075AAE8
* Reference to control TFrmInfoGgZs.mZDPanel : TPanel
|
0061A56A 8B93EC020000 mov edx, [ebx+$02EC]
* Reference to field TFrmInfoGgZs.OFFS_0378
|
0061A570 8B8378030000 mov eax, [ebx+$0378]
0061A576 8B08 mov ecx, [eax]
0061A578 FF5160 call dword ptr [ecx+$60]
0061A57B B205 mov dl, $05
* Reference to field TFrmInfoGgZs.OFFS_0378
|
0061A57D 8B8378030000 mov eax, [ebx+$0378]
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
0061A583 E8B4EAE1FF call 0043903C
0061A588 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs.Proc_0061A468()
|
0061A58A E8D9FEFFFF call 0061A468
* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061A58F C6831D03000000 mov byte ptr [ebx+$031D], $00
* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061A596 C6831C03000000 mov byte ptr [ebx+$031C], $00
0061A59D B201 mov dl, $01
* Reference to class TDrawYDCM
|
0061A59F A13CC06100 mov eax, dword ptr [$0061C03C]
* Reference to: Unit_0061C03C.Proc_0061C14C
|
0061A5A4 E8A31B0000 call 0061C14C
* Reference to field TFrmInfoGgZs.OFFS_0320
|
0061A5A9 898320030000 mov [ebx+$0320], eax
* Reference to field TFrmInfoGgZs.OFFS_030C : Byte
|
0061A5AF C6830C03000000 mov byte ptr [ebx+$030C], $00
* Reference to field TFrmInfoGgZs.OFFS_0324 : Byte
|
0061A5B6 C6832403000001 mov byte ptr [ebx+$0324], $01
0061A5BD 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_0328
|
0061A5BF 898328030000 mov [ebx+$0328], eax
* Reference to field TFrmInfoGgZs.OFFS_037C : Byte
|
0061A5C5 C6837C03000000 mov byte ptr [ebx+$037C], $00
0061A5CC 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs._PROC_0061BC24()
|
0061A5CE E851160000 call 0061BC24
0061A5D3 A1E8D27700 mov eax, dword ptr [$0077D2E8]
0061A5D8 803800 cmp byte ptr [eax], $00
0061A5DB 740D jz 0061A5EA
0061A5DD 33D2 xor edx, edx
* Reference to control TFrmInfoGgZs.TabSet1 : TTabSet
|
0061A5DF 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
0061A5E5 E87EF3E1FF call 00439968
0061A5EA 5E pop esi
0061A5EB 5B pop ebx
0061A5EC C3 ret
*)
end;
procedure TFrmInfoGgZs.FormClose(Sender : TObject);
begin
(*
0061A5F0 53 push ebx
0061A5F1 56 push esi
0061A5F2 51 push ecx
0061A5F3 890C24 mov [esp], ecx
0061A5F6 8BD8 mov ebx, eax
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061A5F8 8BB3D8020000 mov esi, [ebx+$02D8]
0061A5FE 85F6 test esi, esi
0061A600 741A jz 0061A61C
0061A602 668B5604 mov dx, word ptr [esi+$04]
* Reference to pointer to GlobalVar_0078CF10
|
0061A606 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0061A60B 8B00 mov eax, [eax]
0061A60D 33C9 xor ecx, ecx
0061A60F 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
0061A611 FF5604 call dword ptr [esi+$04]
0061A614 33C0 xor eax, eax
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061A616 8983D8020000 mov [ebx+$02D8], eax
* Reference to field TFrmInfoGgZs.OFFS_02D4
|
0061A61C 8B83D4020000 mov eax, [ebx+$02D4]
0061A622 85C0 test eax, eax
0061A624 7405 jz 0061A62B
* Reference to: system.TObject.Free(TObject);
|
0061A626 E8A18CDEFF call 004032CC
* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061A62B 8B8308030000 mov eax, [ebx+$0308]
* Reference to: system.TObject.Free(TObject);
|
0061A631 E8968CDEFF call 004032CC
* Reference to field TFrmInfoGgZs.OFFS_0320
|
0061A636 8B8320030000 mov eax, [ebx+$0320]
* Reference to: system.TObject.Free(TObject);
|
0061A63C E88B8CDEFF call 004032CC
* Reference to field TFrmInfoGgZs.OFFS_0374
|
0061A641 8B8374030000 mov eax, [ebx+$0374]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -