📄 iffjdlg.pas
字号:
unit IfFJdlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TInfoFJDlg=class(TForm)
msgFJ: TStringAlignGrid;
Shape1: TShape;
Panel1: TPanel;
Label3: TLabel;
Shape3: TShape;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Shape2: TShape;
Panel2: TPanel;
Label7: TLabel;
Label9: TLabel;
Label10: TLabel;
RxGradientCaption1: TRxGradientCaption;
TimerRfs: TTimer;
OFFS_030C: N.A.;
OFFS_0324: N.A.;
procedure FormClose(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormDeactivate(Sender : TObject);
procedure TimerRfsTimer(Sender : TObject);
procedure _PROC_0065E61C(Sender : TObject);
procedure _PROC_0065E624(Sender : TObject);
procedure _PROC_0065E8DD(Sender : TObject);
procedure _PROC_0065E928(Sender : TObject);
procedure _PROC_0065E934(Sender : TObject);
procedure _PROC_0065EF99(Sender : TObject);
procedure _PROC_0065EFCC(Sender : TObject);
procedure _PROC_0065F088(Sender : TObject);
procedure _PROC_0065F0B8(Sender : TObject);
procedure Proc_0065EF6C(Sender : TObject);
procedure Proc_0065E8DC(Sender : TObject);
procedure Proc_0065E60C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
InfoFJDlg: TInfoFJDlg;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TInfoFJDlg.FormClose(Sender : TObject);
begin
(*
0065EE7C 53 push ebx
0065EE7D 56 push esi
0065EE7E 57 push edi
0065EE7F 8BF9 mov edi, ecx
0065EE81 8BD8 mov ebx, eax
* Reference to field TInfoFJDlg.OFFS_0320
|
0065EE83 8BB320030000 mov esi, [ebx+$0320]
0065EE89 85F6 test esi, esi
0065EE8B 741A jz 0065EEA7
0065EE8D 668B5604 mov dx, word ptr [esi+$04]
* Reference to pointer to GlobalVar_0078CF10
|
0065EE91 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0065EE96 8B00 mov eax, [eax]
0065EE98 33C9 xor ecx, ecx
0065EE9A 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
0065EE9C FF5604 call dword ptr [esi+$04]
0065EE9F 33C0 xor eax, eax
* Reference to field TInfoFJDlg.OFFS_0320
|
0065EEA1 898320030000 mov [ebx+$0320], eax
0065EEA7 C60702 mov byte ptr [edi], $02
0065EEAA 5F pop edi
0065EEAB 5E pop esi
0065EEAC 5B pop ebx
0065EEAD C3 ret
*)
end;
procedure TInfoFJDlg.FormKeyDown(Sender : TObject);
begin
(*
0065EEB0 55 push ebp
0065EEB1 8BEC mov ebp, esp
0065EEB3 668B11 mov dx, word ptr [ecx]
0065EEB6 6683EA1B sub dx, +$1B
0065EEBA 7505 jnz 0065EEC1
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065EEBC E8FB71DFFF call 004560BC
0065EEC1 5D pop ebp
0065EEC2 C20400 ret $0004
*)
end;
procedure TInfoFJDlg.FormKeyPress(Sender : TObject);
begin
(*
0065EF4C 80392F cmp byte ptr [ecx], $2F
0065EF4F 7519 jnz 0065EF6A
* Reference to pointer to GlobalVar_0078CF48
|
0065EF51 8B1514C97700 mov edx, [$0077C914]
0065EF57 B101 mov cl, $01
0065EF59 2A4A01 sub cl, byte ptr [edx+$01]
* Reference to pointer to GlobalVar_0078CF48
|
0065EF5C 8B1514C97700 mov edx, [$0077C914]
* Reference to field GlobalVar_0078CF48.OFFS_0001
|
0065EF62 884A01 mov [edx+$01], cl
* Reference to : TInfoFJDlg.Proc_0065EF6C()
|
0065EF65 E802000000 call 0065EF6C
0065EF6A C3 ret
*)
end;
procedure TInfoFJDlg.FormCreate(Sender : TObject);
begin
(*
0065EEC8 53 push ebx
0065EEC9 56 push esi
0065EECA 8BD8 mov ebx, eax
0065EECC 33C0 xor eax, eax
* Reference to field TInfoFJDlg.OFFS_031C
|
0065EECE 89831C030000 mov [ebx+$031C], eax
0065EED4 33C0 xor eax, eax
* Reference to field TInfoFJDlg.OFFS_0320
|
0065EED6 898320030000 mov [ebx+$0320], eax
* Reference to pointer to GlobalVar_0078CF48
|
0065EEDC A114C97700 mov eax, dword ptr [$0077C914]
* Reference to field GlobalVar_0078CF48.OFFS_0001
|
0065EEE1 C6400101 mov byte ptr [eax+$01], $01
0065EEE5 8BC3 mov eax, ebx
* Reference to : TInfoFJDlg.Proc_0065EF6C()
|
0065EEE7 E880000000 call 0065EF6C
0065EEEC 6A05 push $05
* Reference to pointer to GlobalVar_0078CF04
|
0065EEEE A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065EEF3 8B00 mov eax, [eax]
* Possible String Reference to: 'AutoRefresh'
|
0065EEF5 B930EF6500 mov ecx, $0065EF30
* Possible String Reference to: 'Setting'
|
0065EEFA BA44EF6500 mov edx, $0065EF44
0065EEFF 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
0065EF01 FF5608 call dword ptr [esi+$08]
0065EF04 69D0E8030000 imul edx, eax, $000003E8
* Reference to control TInfoFJDlg.TimerRfs : TTimer
|
0065EF0A 8B8308030000 mov eax, [ebx+$0308]
* Reference to: extctrls.TTimer.SetInterval(TTimer;Cardinal);
|
0065EF10 E8CB05E0FF call 0045F4E0
0065EF15 B201 mov dl, $01
* Reference to control TInfoFJDlg.TimerRfs : TTimer
|
0065EF17 8B8308030000 mov eax, [ebx+$0308]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
0065EF1D E8AE05E0FF call 0045F4D0
0065EF22 5E pop esi
0065EF23 5B pop ebx
0065EF24 C3 ret
*)
end;
procedure TInfoFJDlg.FormDestroy(Sender : TObject);
begin
(*
0065F034 53 push ebx
0065F035 56 push esi
* Reference to field TInfoFJDlg.OFFS_0320
|
0065F036 8BB020030000 mov esi, [eax+$0320]
0065F03C 85F6 test esi, esi
0065F03E 7412 jz 0065F052
0065F040 668B5604 mov dx, word ptr [esi+$04]
* Reference to pointer to GlobalVar_0078CF10
|
0065F044 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0065F049 8B00 mov eax, [eax]
0065F04B 33C9 xor ecx, ecx
0065F04D 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF10.OFFS_04
|
0065F04F FF5304 call dword ptr [ebx+$04]
0065F052 A190D27700 mov eax, dword ptr [$0077D290]
0065F057 33D2 xor edx, edx
0065F059 8910 mov [eax], edx
0065F05B 5E pop esi
0065F05C 5B pop ebx
0065F05D C3 ret
*)
end;
procedure TInfoFJDlg.FormDeactivate(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065F060 E85770DFFF call 004560BC
0065F065 C3 ret
*)
end;
procedure TInfoFJDlg.TimerRfsTimer(Sender : TObject);
begin
(*
0065F068 53 push ebx
0065F069 8BD8 mov ebx, eax
* Reference to pointer to GlobalVar_0078CF18
|
0065F06B A1E8D07700 mov eax, dword ptr [$0077D0E8]
0065F070 8B00 mov eax, [eax]
* Reference to field TInfoFJDlg.OFFS_0318
|
0065F072 668B9318030000 mov dx, word ptr [ebx+$0318]
0065F079 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_2C
|
0065F07B FF512C call dword ptr [ecx+$2C]
0065F07E 8BC3 mov eax, ebx
* Reference to : TInfoFJDlg._PROC_0065E624()
|
0065F080 E89FF5FFFF call 0065E624
0065F085 5B pop ebx
0065F086 C3 ret
*)
end;
procedure TInfoFJDlg._PROC_0065E61C(Sender : TObject);
begin
(*
* Reference to : TInfoFJDlg._PROC_0065E624()
|
0065E61C E803000000 call 0065E624
0065E621 C3 ret
*)
end;
procedure TInfoFJDlg._PROC_0065E624(Sender : TObject);
begin
(*
0065E624 55 push ebp
0065E625 8BEC mov ebp, esp
0065E627 83C4E4 add esp, -$1C
0065E62A 53 push ebx
0065E62B 56 push esi
0065E62C 33D2 xor edx, edx
0065E62E 8955E4 mov [ebp-$1C], edx
0065E631 8955FC mov [ebp-$04], edx
0065E634 8BD8 mov ebx, eax
0065E636 33C0 xor eax, eax
0065E638 55 push ebp
* Possible String Reference to: '轾Q⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -