📄 ifmxdlg.pas
字号:
unit IFMxDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TInfoMxDlg=class(TForm)
Label1: TLabel;
Shape1: TShape;
msgMX: TStringAlignGrid;
RxGradientCaption1: TRxGradientCaption;
TimerRfs: TTimer;
OFFS_02FC: N.A.;
OFFS_02E4: N.A.;
procedure FormClose(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormDeactivate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure TimerRfsTimer(Sender : TObject);
procedure _PROC_0065F32C(Sender : TObject);
procedure _PROC_0065F334(Sender : TObject);
procedure _PROC_0065F55C(Sender : TObject);
procedure _PROC_0065F605(Sender : TObject);
procedure _PROC_0065FC7C(Sender : TObject);
procedure _PROC_0065FC7F(Sender : TObject);
procedure _PROC_0065FC80(Sender : TObject);
procedure _PROC_0065FCB0(Sender : TObject);
procedure _PROC_0065FD33(Sender : TObject);
procedure _PROC_0065FDA5(Sender : TObject);
procedure _PROC_0065FDD4(Sender : TObject);
procedure Proc_0065FDDC(Sender : TObject);
procedure Proc_0065FC5C(Sender : TObject);
procedure Proc_0065F604(Sender : TObject);
procedure Proc_0065F31C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
InfoMxDlg: TInfoMxDlg;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TInfoMxDlg.FormClose(Sender : TObject);
begin
(*
0065FB60 53 push ebx
0065FB61 56 push esi
0065FB62 57 push edi
0065FB63 8BF9 mov edi, ecx
0065FB65 8BD8 mov ebx, eax
* Reference to field TInfoMxDlg.OFFS_02F8
|
0065FB67 8BB3F8020000 mov esi, [ebx+$02F8]
0065FB6D 85F6 test esi, esi
0065FB6F 741A jz 0065FB8B
0065FB71 668B5604 mov dx, word ptr [esi+$04]
* Reference to pointer to GlobalVar_0078CF10
|
0065FB75 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0065FB7A 8B00 mov eax, [eax]
0065FB7C 33C9 xor ecx, ecx
0065FB7E 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
0065FB80 FF5604 call dword ptr [esi+$04]
0065FB83 33C0 xor eax, eax
* Reference to field TInfoMxDlg.OFFS_02F8
|
0065FB85 8983F8020000 mov [ebx+$02F8], eax
0065FB8B C60702 mov byte ptr [edi], $02
0065FB8E 5F pop edi
0065FB8F 5E pop esi
0065FB90 5B pop ebx
0065FB91 C3 ret
*)
end;
procedure TInfoMxDlg.FormKeyDown(Sender : TObject);
begin
(*
0065FB94 55 push ebp
0065FB95 8BEC mov ebp, esp
0065FB97 668B11 mov dx, word ptr [ecx]
0065FB9A 6683EA1B sub dx, +$1B
0065FB9E 7505 jnz 0065FBA5
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065FBA0 E81765DFFF call 004560BC
0065FBA5 5D pop ebp
0065FBA6 C20400 ret $0004
*)
end;
procedure TInfoMxDlg.FormCreate(Sender : TObject);
begin
(*
0065FBAC 53 push ebx
0065FBAD 56 push esi
0065FBAE 8BD8 mov ebx, eax
0065FBB0 BA01000000 mov edx, $00000001
* Reference to control TInfoMxDlg.msgMX : TStringAlignGrid
|
0065FBB5 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to : THJStringGrid._PROC_0059E918()
|
0065FBBB E858EDF3FF call 0059E918
0065FBC0 33C0 xor eax, eax
* Reference to field TInfoMxDlg.OFFS_02F4
|
0065FBC2 8983F4020000 mov [ebx+$02F4], eax
0065FBC8 33C0 xor eax, eax
* Reference to field TInfoMxDlg.OFFS_02F8
|
0065FBCA 8983F8020000 mov [ebx+$02F8], eax
* Reference to pointer to GlobalVar_0078CF48
|
0065FBD0 A114C97700 mov eax, dword ptr [$0077C914]
0065FBD5 C60001 mov byte ptr [eax], $01
0065FBD8 8BC3 mov eax, ebx
* Reference to : TInfoMxDlg.Proc_0065FC5C()
|
0065FBDA E87D000000 call 0065FC5C
0065FBDF 6A05 push $05
* Reference to pointer to GlobalVar_0078CF04
|
0065FBE1 A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065FBE6 8B00 mov eax, [eax]
* Possible String Reference to: 'AutoRefresh'
|
0065FBE8 B920FC6500 mov ecx, $0065FC20
* Possible String Reference to: 'Setting'
|
0065FBED BA34FC6500 mov edx, $0065FC34
0065FBF2 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
0065FBF4 FF5608 call dword ptr [esi+$08]
0065FBF7 69D0E8030000 imul edx, eax, $000003E8
* Reference to control TInfoMxDlg.TimerRfs : TTimer
|
0065FBFD 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetInterval(TTimer;Cardinal);
|
0065FC03 E8D8F8DFFF call 0045F4E0
0065FC08 B201 mov dl, $01
* Reference to control TInfoMxDlg.TimerRfs : TTimer
|
0065FC0A 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
0065FC10 E8BBF8DFFF call 0045F4D0
0065FC15 5E pop esi
0065FC16 5B pop ebx
0065FC17 C3 ret
*)
end;
procedure TInfoMxDlg.FormKeyPress(Sender : TObject);
begin
(*
0065FC3C 80392F cmp byte ptr [ecx], $2F
0065FC3F 7517 jnz 0065FC58
* Reference to pointer to GlobalVar_0078CF48
|
0065FC41 8B1514C97700 mov edx, [$0077C914]
0065FC47 B101 mov cl, $01
0065FC49 2A0A sub cl, byte ptr [edx]
* Reference to pointer to GlobalVar_0078CF48
|
0065FC4B 8B1514C97700 mov edx, [$0077C914]
0065FC51 880A mov [edx], cl
* Reference to : TInfoMxDlg.Proc_0065FC5C()
|
0065FC53 E804000000 call 0065FC5C
0065FC58 C3 ret
*)
end;
procedure TInfoMxDlg.FormDeactivate(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065FD4C E86B63DFFF call 004560BC
0065FD51 C3 ret
*)
end;
procedure TInfoMxDlg.FormDestroy(Sender : TObject);
begin
(*
0065FD54 53 push ebx
0065FD55 56 push esi
* Reference to field TInfoMxDlg.OFFS_02F8
|
0065FD56 8BB0F8020000 mov esi, [eax+$02F8]
0065FD5C 85F6 test esi, esi
0065FD5E 7412 jz 0065FD72
0065FD60 668B5604 mov dx, word ptr [esi+$04]
* Reference to pointer to GlobalVar_0078CF10
|
0065FD64 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0065FD69 8B00 mov eax, [eax]
0065FD6B 33C9 xor ecx, ecx
0065FD6D 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
0065FD6F FF5304 call dword ptr [ebx+$04]
0065FD72 A1F0CC7700 mov eax, dword ptr [$0077CCF0]
0065FD77 33D2 xor edx, edx
0065FD79 8910 mov [eax], edx
0065FD7B 5E pop esi
0065FD7C 5B pop ebx
0065FD7D C3 ret
*)
end;
procedure TInfoMxDlg.TimerRfsTimer(Sender : TObject);
begin
(*
0065FD80 53 push ebx
0065FD81 8BD8 mov ebx, eax
0065FD83 B201 mov dl, $01
0065FD85 8BC3 mov eax, ebx
* Reference to : TInfoMxDlg._PROC_0065F334()
|
0065FD87 E8A8F5FFFF call 0065F334
* Reference to pointer to GlobalVar_0078CF18
|
0065FD8C A1E8D07700 mov eax, dword ptr [$0077D0E8]
0065FD91 8B00 mov eax, [eax]
* Reference to field TInfoMxDlg.OFFS_02F0
|
0065FD93 668B93F0020000 mov dx, word ptr [ebx+$02F0]
0065FD9A 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_2C
|
0065FD9C FF512C call dword ptr [ecx+$2C]
0065FD9F 5B pop ebx
0065FDA0 C3 ret
*)
end;
procedure TInfoMxDlg._PROC_0065F32C(Sender : TObject);
begin
(*
0065F32C B201 mov dl, $01
* Reference to : TInfoMxDlg._PROC_0065F334()
|
0065F32E E801000000 call 0065F334
0065F333 C3 ret
*)
end;
procedure TInfoMxDlg._PROC_0065F334(Sender : TObject);
begin
(*
0065F334 55 push ebp
0065F335 8BEC mov ebp, esp
0065F337 83C4DC add esp, -$24
0065F33A 53 push ebx
0065F33B 56 push esi
0065F33C 33C9 xor ecx, ecx
0065F33E 894DDC mov [ebp-$24], ecx
0065F341 894DF8 mov [ebp-$08], ecx
0065F344 8855FF mov [ebp-$01], dl
0065F347 8BD8 mov ebx, eax
0065F349 33C0 xor eax, eax
0065F34B 55 push ebp
* Possible String Reference to: '樨D⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -