📄 consult.pas
字号:
unit Consult;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmConsult=class(TForm)
PaintBox1: TPaintBox;
PanelJGHQ: TPanel;
PaintBoxJG: TPaintBox;
FatScrollBar1: TFatScrollBar;
PanelWeb: TPanel;
EmbeddedWB1: TEmbeddedWB;
Image1: TImage;
OFFS_0354: N.A.;
OFFS_0358: N.A.;
OFFS_0390: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure PaintBoxJGPaint(Sender : TObject);
procedure PaintBoxJGMouseDown(Sender : TObject);
procedure PaintBoxJGDblClick(Sender : TObject);
procedure Image1Click(Sender : TObject);
procedure _PROC_006986A4(Sender : TObject);
procedure _PROC_00698748(Sender : TObject);
procedure _PROC_00698AB8(Sender : TObject);
procedure _PROC_00698C50(Sender : TObject);
procedure _PROC_00698D5C(Sender : TObject);
procedure _PROC_00698DD0(Sender : TObject);
procedure _PROC_00698E6D(Sender : TObject);
procedure _PROC_006991FA(Sender : TObject);
procedure _PROC_00699223(Sender : TObject);
procedure _PROC_00699510(Sender : TObject);
procedure _PROC_00699C1C(Sender : TObject);
procedure _PROC_00699C38(Sender : TObject);
procedure _PROC_00699CC4(Sender : TObject);
procedure _PROC_00699D50(Sender : TObject);
procedure _PROC_00699DA0(Sender : TObject);
procedure _PROC_00699DE0(Sender : TObject);
procedure _PROC_00699ED4(Sender : TObject);
procedure _PROC_00699EDC(Sender : TObject);
procedure _PROC_00699F0C(Sender : TObject);
procedure _PROC_00699F54(Sender : TObject);
procedure Proc_00698AB4(Sender : TObject);
procedure Proc_00699C0B(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmConsult: TfrmConsult;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmConsult.FormCreate(Sender : TObject);
begin
(*
00698C88 53 push ebx
00698C89 56 push esi
00698C8A 8BD8 mov ebx, eax
00698C8C 33C0 xor eax, eax
* Reference to field TfrmConsult.OFFS_0360
|
00698C8E 898360030000 mov [ebx+$0360], eax
* Reference to field TfrmConsult.OFFS_0354 : String
|
00698C94 8D8354030000 lea eax, [ebx+$0354]
* Reference to: system.@LStrClr(String;String);
|
00698C9A E855B4D6FF call 004040F4
* Reference to field TfrmConsult.OFFS_0358 : String
|
00698C9F 8D8358030000 lea eax, [ebx+$0358]
* Reference to: system.@LStrClr(String;String);
|
00698CA5 E84AB4D6FF call 004040F4
* Reference to field TfrmConsult.OFFS_0358 : String
|
00698CAA 8D8358030000 lea eax, [ebx+$0358]
00698CB0 50 push eax
* Reference to field TfrmConsult.OFFS_0354 : String
|
00698CB1 8D8B54030000 lea ecx, [ebx+$0354]
00698CB7 A1A8D37700 mov eax, dword ptr [$0077D3A8]
00698CBC 8B00 mov eax, [eax]
00698CBE B206 mov dl, $06
* Reference to: Unit_006035CC.Proc_0060454C
|
00698CC0 E887B8F6FF call 0060454C
* Reference to field TfrmConsult.OFFS_0354 : String
|
00698CC5 8B8354030000 mov eax, [ebx+$0354]
* Reference to: Unit_00409434.Proc_0040A8BC
|
00698CCB E8EC1BD7FF call 0040A8BC
00698CD0 84C0 test al, al
00698CD2 7424 jz 00698CF8
00698CD4 B201 mov dl, $01
* Reference to control TfrmConsult.Image1 : TImage
|
00698CD6 8B8350030000 mov eax, [ebx+$0350]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00698CDC E8870CDAFF call 00439968
* Reference to control TfrmConsult.Image1 : TImage
|
00698CE1 8B8350030000 mov eax, [ebx+$0350]
* Reference to field TImage.Picture : TPicture
|
00698CE7 8B8028010000 mov eax, [eax+$0128]
* Reference to field TfrmConsult.OFFS_0354 : String
|
00698CED 8B9354030000 mov edx, [ebx+$0354]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
00698CF3 E8588AD8FF call 00421750
* Reference to control TfrmConsult.PanelWeb : TPanel
|
00698CF8 8B8348030000 mov eax, [ebx+$0348]
00698CFE 50 push eax
* Reference to control TfrmConsult.PanelJGHQ : TPanel
|
00698CFF 8B833C030000 mov eax, [ebx+$033C]
00698D05 50 push eax
* Reference to control TfrmConsult.EmbeddedWB1 : TEmbeddedWB
|
00698D06 8B834C030000 mov eax, [ebx+$034C]
00698D0C 50 push eax
00698D0D 33C9 xor ecx, ecx
00698D0F B201 mov dl, $01
* Reference to class TWorkBench
|
00698D11 A124EC6900 mov eax, dword ptr [$0069EC24]
* Reference to: Unit_0069EC24.Proc_0069ECB0
|
00698D16 E8955F0000 call 0069ECB0
00698D1B 8BF0 mov esi, eax
* Reference to field TfrmConsult.OFFS_035C
|
00698D1D 89B35C030000 mov [ebx+$035C], esi
* Reference to control TfrmConsult.PaintBox1 : TPaintBox
|
00698D23 8B8B38030000 mov ecx, [ebx+$0338]
00698D29 8BD3 mov edx, ebx
00698D2B 8BC6 mov eax, esi
* Reference to: Unit_0069EC24.Proc_0069F1DC
|
00698D2D E8AA640000 call 0069F1DC
00698D32 B20E mov dl, $0E
00698D34 8BC3 mov eax, ebx
* Reference to: HJForm.Proc_00750F8C
|
00698D36 E851820B00 call 00750F8C
* Reference to field TfrmConsult.OFFS_0390 : Byte
|
00698D3B C6839003000000 mov byte ptr [ebx+$0390], $00
00698D42 8BC3 mov eax, ebx
* Reference to : TfrmConsult._PROC_00698748()
|
00698D44 E8FFF9FFFF call 00698748
00698D49 8BC3 mov eax, ebx
* Reference to : TfrmConsult.Proc_00698AB4()
|
00698D4B E864FDFFFF call 00698AB4
00698D50 8BC3 mov eax, ebx
* Reference to : TfrmConsult._PROC_00699DE0()
|
00698D52 E889100000 call 00699DE0
00698D57 5E pop esi
00698D58 5B pop ebx
00698D59 C3 ret
*)
end;
procedure TfrmConsult.FormKeyDown(Sender : TObject);
begin
(*
00699154 55 push ebp
00699155 8BEC mov ebp, esp
00699157 53 push ebx
00699158 56 push esi
00699159 8BF1 mov esi, ecx
0069915B 8BD8 mov ebx, eax
0069915D 668B06 mov ax, word ptr [esi]
00699160 6683E81B sub ax, +$1B
00699164 7408 jz 0069916E
00699166 6683E855 sub ax, +$55
0069916A 740B jz 00699177
0069916C EB1A jmp 00699188
0069916E 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00699170 E847CFDBFF call 004560BC
00699175 EB11 jmp 00699188
* Reference to TApplication instance
|
00699177 A100D17700 mov eax, dword ptr [$0077D100]
0069917C 8B00 mov eax, [eax]
0069917E BAF1070000 mov edx, $000007F1
* Reference to: forms.TApplication.HelpContext(TApplication;THelpContext):Boolean;
|
00699183 E8EC06DCFF call 00459874
* Reference to control TfrmConsult.PanelJGHQ : TPanel
|
00699188 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TPanel.Visible : Boolean
|
0069918E 80784700 cmp byte ptr [eax+$47], $00
00699192 0F8437030000 jz 006994CF
00699198 0FB706 movzx eax, word ptr [esi]
0069919B 83C0F3 add eax, -$0D
0069919E 83F81B cmp eax, +$1B
006991A1 0F8728030000 jnbe 006994CF
006991A7 8A80B4916900 mov al, byte ptr [eax+$6991B4]
006991AD FF2485D0916900 jmp dword ptr [$6991D0+eax*4]
006991B4 0100 add [eax], eax
006991B6 0000 add [eax], al
*)
end;
procedure TfrmConsult.FormClose(Sender : TObject);
begin
(*
006994D8 C60102 mov byte ptr [ecx], $02
006994DB C3 ret
*)
end;
procedure TfrmConsult.FormDestroy(Sender : TObject);
begin
(*
006994DC 53 push ebx
006994DD 56 push esi
006994DE 8BF0 mov esi, eax
* Reference to field TfrmConsult.OFFS_0360
|
006994E0 8B8660030000 mov eax, [esi+$0360]
* Reference to: system.TObject.Free(TObject);
|
006994E6 E8E19DD6FF call 004032CC
006994EB 33DB xor ebx, ebx
006994ED 33C0 xor eax, eax
006994EF 8AC3 mov al, bl
006994F1 8B848678030000 mov eax, [esi+eax*4+$0378]
006994F8 85C0 test eax, eax
006994FA 7409 jz 00699505
006994FC 33D2 xor edx, edx
006994FE 8AD3 mov dl, bl
* Reference to: system.@FreeMem;
|
00699500 E87B93D6FF call 00402880
00699505 43 inc ebx
00699506 80FB03 cmp bl, $03
00699509 75E2 jnz 006994ED
0069950B 5E pop esi
0069950C 5B pop ebx
0069950D C3 ret
*)
end;
procedure TfrmConsult.PaintBoxJGPaint(Sender : TObject);
begin
(*
00699C3C 53 push ebx
00699C3D 8BD8 mov ebx, eax
00699C3F 33C0 xor eax, eax
* Reference to field TfrmConsult.OFFS_0390 : Byte
|
00699C41 8A8390030000 mov al, byte ptr [ebx+$0390]
00699C47 83BC837803000000 cmp dword ptr [ebx+eax*4+$0378], +$00
00699C4F 7421 jz 00699C72
00699C51 8B948384030000 mov edx, [ebx+eax*4+$0384]
00699C58 4A dec edx
00699C59 52 push edx
00699C5A 68A0866900 push $006986A0
00699C5F 8D848378030000 lea eax, [ebx+eax*4+$0378]
00699C66 33C9 xor ecx, ecx
00699C68 BA28000000 mov edx, $00000028
* Reference to: Unit_005B0D4C.Proc_005B2100
|
00699C6D E88E84F1FF call 005B2100
00699C72 8BC3 mov eax, ebx
* Reference to : TfrmConsult._PROC_00699510()
|
00699C74 E897F8FFFF call 00699510
00699C79 5B pop ebx
00699C7A C3 ret
*)
end;
procedure TfrmConsult.PaintBoxJGMouseDown(Sender : TObject);
begin
(*
00699C7C 55 push ebp
00699C7D 8BEC mov ebp, esp
00699C7F 83C4F8 add esp, -$08
00699C82 53 push ebx
00699C83 56 push esi
00699C84 8BD9 mov ebx, ecx
00699C86 8BF0 mov esi, eax
00699C88 8D45FC lea eax, [ebp-$04]
00699C8B 50 push eax
00699C8C 8D45F8 lea eax, [ebp-$08]
00699C8F 50 push eax
00699C90 8B4D08 mov ecx, [ebp+$08]
00699C93 8B550C mov edx, [ebp+$0C]
* Reference to field TfrmConsult.OFFS_0360
|
00699C96 8B8660030000 mov eax, [esi+$0360]
* Reference to: Unit_005B2404.Proc_005B2ED0
|
00699C9C E82F92F1FF call 005B2ED0
00699CA1 84DB test bl, bl
00699CA3 7514 jnz 00699CB9
00699CA5 837DF8FF cmp dword ptr [ebp-$08], -$01
00699CA9 7E0E jle 00699CB9
00699CAB 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmConsult.OFFS_0360
|
00699CAE 8B8660030000 mov eax, [esi+$0360]
* Reference to: Unit_005B2404.Proc_005B2D34
|
00699CB4 E87B90F1FF call 005B2D34
00699CB9 5E pop esi
00699CBA 5B pop ebx
00699CBB 59 pop ecx
00699CBC 59 pop ecx
00699CBD 5D pop ebp
00699CBE C20C00 ret $000C
*)
end;
procedure TfrmConsult.PaintBoxJGDblClick(Sender : TObject);
begin
(*
00699D34 53 push ebx
00699D35 8BD8 mov ebx, eax
00699D37 6A00 push $00
00699D39 6A0D push $0D
00699D3B 6800010000 push $00000100
00699D40 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00699D42 E84160DAFF call 0043FD88
00699D47 50 push eax
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -