📄 ifhqdlg.pas
字号:
unit IFHqDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Grids, Aligrid, ExtCtrls
type
ThqDlg=class(TForm)
Label1: TLabel;
Shape1: TShape;
Shape2: TShape;
mHqTable: TStringAlignGrid;
Shape3: TShape;
procedure FormKeyDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormDeactivate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_005B0450(Sender : TObject);
procedure _PROC_005B0508(Sender : TObject);
procedure _PROC_005B0538(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
hqDlg: ThqDlg;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure ThqDlg.FormKeyDown(Sender : TObject);
begin
(*
005B0410 55 push ebp
005B0411 8BEC mov ebp, esp
005B0413 668B11 mov dx, word ptr [ecx]
005B0416 6683EA1B sub dx, +$1B
005B041A 7505 jnz 005B0421
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005B041C E89B5CEAFF call 004560BC
005B0421 5D pop ebp
005B0422 C20400 ret $0004
*)
end;
procedure ThqDlg.FormCreate(Sender : TObject);
begin
(*
* Reference to : ThqDlg._PROC_005B0450()
|
005B0428 E823000000 call 005B0450
005B042D C3 ret
*)
end;
procedure ThqDlg.FormKeyPress(Sender : TObject);
begin
(*
005B0430 80392F cmp byte ptr [ecx], $2F
005B0433 7519 jnz 005B044E
* Reference to pointer to GlobalVar_0078CF48
|
005B0435 8B1514C97700 mov edx, [$0077C914]
005B043B B101 mov cl, $01
005B043D 2A4A02 sub cl, byte ptr [edx+$02]
* Reference to pointer to GlobalVar_0078CF48
|
005B0440 8B1514C97700 mov edx, [$0077C914]
* Reference to field GlobalVar_0078CF48.OFFS_0002
|
005B0446 884A02 mov [edx+$02], cl
* Reference to : ThqDlg._PROC_005B0450()
|
005B0449 E802000000 call 005B0450
005B044E C3 ret
*)
end;
procedure ThqDlg.FormDeactivate(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005B04FC E8BB5BEAFF call 004560BC
005B0501 C3 ret
*)
end;
procedure ThqDlg.FormClose(Sender : TObject);
begin
(*
005B0504 C60102 mov byte ptr [ecx], $02
005B0507 C3 ret
*)
end;
procedure ThqDlg._PROC_005B0450(Sender : TObject);
begin
(*
005B0450 53 push ebx
005B0451 8BD8 mov ebx, eax
* Reference to pointer to GlobalVar_0078CF48
|
005B0453 A114C97700 mov eax, dword ptr [$0077C914]
* Reference to field GlobalVar_0078CF48.OFFS_0002
|
005B0458 8A4002 mov al, byte ptr [eax+$02]
005B045B 2C01 sub al, $01
005B045D 7244 jb 005B04A3
005B045F 0F8594000000 jnz 005B04F9
* Reference to THJ32Main instance
|
005B0465 A158D37700 mov eax, dword ptr [$0077D358]
005B046A 8B00 mov eax, [eax]
* Reference to field THJ32Main.Left : Integer
|
005B046C 8B5030 mov edx, [eax+$30]
005B046F 83C203 add edx, +$03
005B0472 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
005B0474 E8CB8DE8FF call 00439244
* Reference to THJ32Main instance
|
005B0479 A158D37700 mov eax, dword ptr [$0077D358]
005B047E 8B00 mov eax, [eax]
* Reference to field THJ32Main.Top : Integer
|
005B0480 8B5034 mov edx, [eax+$34]
005B0483 83C203 add edx, +$03
005B0486 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
005B0488 E8D78DE8FF call 00439264
* Reference to THJ32Main instance
|
005B048D A158D37700 mov eax, dword ptr [$0077D358]
005B0492 8B00 mov eax, [eax]
* Reference to field THJ32Main.Height : Integer
|
005B0494 8B503C mov edx, [eax+$3C]
005B0497 83EA05 sub edx, +$05
005B049A 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
005B049C E8078EE8FF call 004392A8
005B04A1 5B pop ebx
005B04A2 C3 ret
* Reference to THJ32Main instance
|
005B04A3 A158D37700 mov eax, dword ptr [$0077D358]
005B04A8 8B00 mov eax, [eax]
* Reference to field THJ32Main.Left : Integer
|
005B04AA 8B5030 mov edx, [eax+$30]
005B04AD 83C203 add edx, +$03
005B04B0 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
005B04B2 E88D8DE8FF call 00439244
* Reference to THJ32Main instance
|
005B04B7 A158D37700 mov eax, dword ptr [$0077D358]
005B04BC 8B00 mov eax, [eax]
* Reference to field THJ32Main.Height : Integer
|
005B04BE 8B403C mov eax, [eax+$3C]
005B04C1 B903000000 mov ecx, $00000003
005B04C6 99 cdq
005B04C7 F7F9 idiv ecx
005B04C9 8BD0 mov edx, eax
005B04CB 03D2 add edx, edx
* Reference to THJ32Main instance
|
005B04CD A158D37700 mov eax, dword ptr [$0077D358]
005B04D2 8B00 mov eax, [eax]
005B04D4 035034 add edx, [eax+$34]
005B04D7 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
005B04D9 E8868DE8FF call 00439264
* Reference to THJ32Main instance
|
005B04DE A158D37700 mov eax, dword ptr [$0077D358]
005B04E3 8B00 mov eax, [eax]
* Reference to field THJ32Main.Height : Integer
|
005B04E5 8B403C mov eax, [eax+$3C]
005B04E8 B903000000 mov ecx, $00000003
005B04ED 99 cdq
005B04EE F7F9 idiv ecx
005B04F0 8BD0 mov edx, eax
005B04F2 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
005B04F4 E8AF8DE8FF call 004392A8
005B04F9 5B pop ebx
005B04FA C3 ret
*)
end;
procedure ThqDlg._PROC_005B0508(Sender : TObject);
begin
(*
005B0508 55 push ebp
005B0509 8BEC mov ebp, esp
005B050B 33C0 xor eax, eax
005B050D 55 push ebp
005B050E 682D055B00 push $005B052D
***** TRY
|
005B0513 64FF30 push dword ptr fs:[eax]
005B0516 648920 mov fs:[eax], esp
005B0519 FF0508C77800 inc dword ptr [$0078C708]
005B051F 33C0 xor eax, eax
005B0521 5A pop edx
005B0522 59 pop ecx
005B0523 59 pop ecx
005B0524 648910 mov fs:[eax], edx
****** FINALLY
|
005B0527 6834055B00 push $005B0534
005B052C C3 ret
* Reference to: system.@HandleFinally;
|
005B052D E9FA34E5FF jmp 00403A2C
005B0532 EBF8 jmp 005B052C
****** END
|
005B0534 5D pop ebp
005B0535 C3 ret
*)
end;
procedure ThqDlg._PROC_005B0538(Sender : TObject);
begin
(*
005B0538 832D08C7780001 sub dword ptr [$0078C708], +$01
005B053F C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -