📄 bkshow.pas
字号:
unit BKShow;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmBKShow=class(TForm)
BKGrid: TStringAlignGrid;
RxGradientCaption1: TRxGradientCaption;
TimerRfs: TTimer;
PopupMenu1: TPopupMenu;
OFFS_0318: N.A.;
OFFS_0311: N.A.;
OFFS_02EC: N.A.;
OFFS_0310: N.A.;
procedure FormResize(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure BKGridMouseDown(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure BKGridMouseMove(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure TimerRfsTimer(Sender : TObject);
procedure FormMouseWheelDown(Sender : TObject);
procedure FormMouseWheelUp(Sender : TObject);
procedure _PROC_00618589(Sender : TObject);
procedure _PROC_006185DC(Sender : TObject);
procedure _PROC_00618889(Sender : TObject);
procedure _PROC_00618938(Sender : TObject);
procedure _PROC_00618A1C(Sender : TObject);
procedure _PROC_00618C14(Sender : TObject);
procedure _PROC_00618DC5(Sender : TObject);
procedure _PROC_0061933D(Sender : TObject);
procedure _PROC_006194DC(Sender : TObject);
procedure _PROC_00619569(Sender : TObject);
procedure _PROC_0061957F(Sender : TObject);
procedure _PROC_00619595(Sender : TObject);
procedure _PROC_006195AB(Sender : TObject);
procedure _PROC_006195C1(Sender : TObject);
procedure _PROC_006195D7(Sender : TObject);
procedure _PROC_006195E3(Sender : TObject);
procedure _PROC_00619649(Sender : TObject);
procedure _PROC_006199C4(Sender : TObject);
procedure _PROC_00619CDA(Sender : TObject);
procedure _PROC_00619CF3(Sender : TObject);
procedure _PROC_00619D7D(Sender : TObject);
procedure _PROC_0061A08D(Sender : TObject);
procedure _PROC_0061A0D4(Sender : TObject);
procedure Proc_00618DC4(Sender : TObject);
procedure Proc_0061933C(Sender : TObject);
procedure Proc_00619648(Sender : TObject);
procedure Proc_00619CA0(Sender : TObject);
procedure Proc_00618588(Sender : TObject);
procedure Proc_00618888(Sender : TObject);
procedure Proc_006194D8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmBKShow: TFrmBKShow;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmBKShow.FormResize(Sender : TObject);
begin
(*
00618E9C 53 push ebx
00618E9D 56 push esi
00618E9E 57 push edi
00618E9F 55 push ebp
00618EA0 83C4F8 add esp, -$08
00618EA3 8BD8 mov ebx, eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00618EA5 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_003C
|
00618EAB 8B703C mov esi, [eax+$3C]
00618EAE BA01000000 mov edx, $00000001
* Reference to : THJStringGrid._PROC_0059E4EC()
|
00618EB3 E83456F8FF call 0059E4EC
00618EB8 8BF8 mov edi, eax
00618EBA 893424 mov [esp], esi
00618EBD DB0424 fild dword ptr [esp]
00618EC0 897C2404 mov [esp+$04], edi
00618EC4 DB442404 fild dword ptr [esp+$04]
00618EC8 DEF9 fdivp st(1), st(0)
* Reference to: system.@TRUNC;
|
00618ECA E8319EDEFF call 00402D00
00618ECF 8BE8 mov ebp, eax
* Reference to field TFrmBKShow.OFFS_0320
|
00618ED1 89AB20030000 mov [ebx+$0320], ebp
00618ED7 8BD5 mov edx, ebp
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00618ED9 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : THJStringGrid._PROC_0059E930()
|
00618EDF E84C5AF8FF call 0059E930
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00618EE4 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00618EEA 8B883C020000 mov ecx, [eax+$023C]
00618EF0 83E902 sub ecx, +$02
* Reference to field TFrmBKShow.OFFS_02E4
|
00618EF3 8B93E4020000 mov edx, [ebx+$02E4]
00618EF9 3BCA cmp ecx, edx
00618EFB 7E06 jle 00618F03
00618EFD 42 inc edx
* Reference to : THJStringGrid._PROC_0059E930()
|
00618EFE E82D5AF8FF call 0059E930
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00618F03 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00618F09 8B803C020000 mov eax, [eax+$023C]
00618F0F 83E802 sub eax, +$02
00618F12 85C0 test eax, eax
00618F14 7E0F jle 00618F25
00618F16 8BC8 mov ecx, eax
* Reference to field TFrmBKShow.OFFS_031C
|
00618F18 8B931C030000 mov edx, [ebx+$031C]
00618F1E 8BC3 mov eax, ebx
* Reference to : TFrmBKShow.Proc_00618DC4()
|
00618F20 E89FFEFFFF call 00618DC4
00618F25 59 pop ecx
00618F26 5A pop edx
00618F27 5D pop ebp
00618F28 5F pop edi
00618F29 5E pop esi
00618F2A 5B pop ebx
00618F2B C3 ret
*)
end;
procedure TFrmBKShow.FormClose(Sender : TObject);
begin
(*
006199BC 53 push ebx
006199BD 56 push esi
006199BE 8BF1 mov esi, ecx
006199C0 8BD8 mov ebx, eax
* Reference to field TFrmBKShow.OFFS_02F8
|
006199C2 8B83F8020000 mov eax, [ebx+$02F8]
006199C8 85C0 test eax, eax
006199CA 7405 jz 006199D1
* Reference to: system.TObject.Free(TObject);
|
006199CC E8FB98DEFF call 004032CC
* Reference to field TFrmBKShow.OFFS_02E8
|
006199D1 8B83E8020000 mov eax, [ebx+$02E8]
006199D7 85C0 test eax, eax
006199D9 7405 jz 006199E0
* Reference to: system.@FreeMem;
|
006199DB E8A08EDEFF call 00402880
006199E0 C60602 mov byte ptr [esi], $02
006199E3 5E pop esi
006199E4 5B pop ebx
006199E5 C3 ret
*)
end;
procedure TFrmBKShow.FormKeyDown(Sender : TObject);
begin
(*
00618F2C 55 push ebp
00618F2D 8BEC mov ebp, esp
00618F2F 83C4DC add esp, -$24
00618F32 53 push ebx
00618F33 56 push esi
00618F34 57 push edi
00618F35 33DB xor ebx, ebx
00618F37 895DE0 mov [ebp-$20], ebx
00618F3A 895DDC mov [ebp-$24], ebx
00618F3D 895DE4 mov [ebp-$1C], ebx
00618F40 895DE8 mov [ebp-$18], ebx
00618F43 8BD9 mov ebx, ecx
00618F45 8BF0 mov esi, eax
00618F47 33C0 xor eax, eax
00618F49 55 push ebp
00618F4A 681D936100 push $0061931D
***** TRY
|
00618F4F 64FF30 push dword ptr fs:[eax]
00618F52 648920 mov fs:[eax], esp
00618F55 66833B0D cmp word ptr [ebx], +$0D
00618F59 756F jnz 00618FCA
* Reference to field TFrmBKShow.OFFS_02E0
|
00618F5B 8B86E0020000 mov eax, [esi+$02E0]
00618F61 80784700 cmp byte ptr [eax+$47], $00
00618F65 755E jnz 00618FC5
00618F67 8D45E8 lea eax, [ebp-$18]
00618F6A 50 push eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00618F6B 8BBED0020000 mov edi, [esi+$02D0]
00618F71 8B8F1C020000 mov ecx, [edi+$021C]
00618F77 33D2 xor edx, edx
00618F79 8BC7 mov eax, edi
* Reference to : TStringSparseList._PROC_005A0894()
|
00618F7B E81479F8FF call 005A0894
00618F80 8B45E8 mov eax, [ebp-$18]
* Reference to: Unit_00409434.Proc_0040A644
|
00618F83 E8BC16DFFF call 0040A644
00618F88 8BD0 mov edx, eax
00618F8A 4A dec edx
00618F8B 8D4DEC lea ecx, [ebp-$14]
* Reference to field TFrmBKShow.OFFS_02F8
|
00618F8E 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: Unit_004AC2A8.Proc_004AC414
|
00618F94 E87B34E9FF call 004AC414
00618F99 0FB745EC movzx eax, word ptr [ebp-$14]
00618F9D 8D0480 lea eax, [eax+eax*4]
* Reference to field TFrmBKShow.OFFS_02E8
|
00618FA0 8B96E8020000 mov edx, [esi+$02E8]
00618FA6 668B04C2 mov ax, word ptr [edx+eax*8]
00618FAA B208 mov dl, $08
* Reference to: Unit_00651A88.Proc_00652908
|
00618FAC E857990300 call 00652908
00618FB1 A168CD7800 mov eax, dword ptr [$0078CD68]
00618FB6 8B10 mov edx, [eax]
00618FB8 FF92B0000000 call dword ptr [edx+$00B0]
00618FBE 66C7030000 mov word ptr [ebx], $0000
00618FC3 EB05 jmp 00618FCA
00618FC5 66C7031B00 mov word ptr [ebx], $001B
* Reference to field TFrmBKShow.OFFS_02E0
|
00618FCA 8B86E0020000 mov eax, [esi+$02E0]
00618FD0 80784700 cmp byte ptr [eax+$47], $00
00618FD4 7458 jz 0061902E
00618FD6 66833B1B cmp word ptr [ebx], +$1B
00618FDA 7543 jnz 0061901F
00618FDC 6A00 push $00
00618FDE 6A00 push $00
00618FE0 6802020000 push $00000202
00618FE5 8BC6 mov eax, esi
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00618FE7 E89C6DE2FF call 0043FD88
00618FEC 50 push eax
* Reference to: user32.SendMessageA()
|
00618FED E8E6FCDEFF call 00408CD8
00618FF2 33D2 xor edx, edx
* Reference to field TFrmBKShow.OFFS_02E0
|
00618FF4 8B86E0020000 mov eax, [esi+$02E0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00618FFA E86909E2FF call 00439968
00618FFF B201 mov dl, $01
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619001 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00619007 E85C09E2FF call 00439968
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
0061900C 8B86D0020000 mov eax, [esi+$02D0]
00619012 8B10 mov edx, [eax]
* Possible reference to virtual method TStringAlignGrid.OFFS_00B0
|
00619014 FF92B0000000 call dword ptr [edx+$00B0]
0061901A E9E3020000 jmp 00619302
0061901F 8BD3 mov edx, ebx
00619021 8A4D08 mov cl, byte ptr [ebp+$08]
* Reference to : TLifeBoard._PROC_0075B91C()
|
00619024 E8F3281400 call 0075B91C
00619029 E9D4020000 jmp 00619302
0061902E 8D45E4 lea eax, [ebp-$1C]
00619031 50 push eax
00619032 B901000000 mov ecx, $00000001
00619037 33D2 xor edx, edx
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619039 8B86D0020000 mov eax, [esi+$02D0]
* Reference to : TStringSparseList._PROC_005A0894()
|
0061903F E85078F8FF call 005A0894
00619044 8B45E4 mov eax, [ebp-$1C]
00619047 BA38936100 mov edx, $00619338
* Reference to: system.@LStrCmp;
|
0061904C E84FB4DEFF call 004044A0
00619051 7506 jnz 00619059
00619053 C645FF00 mov byte ptr [ebp-$01], $00
00619057 EB04 jmp 0061905D
00619059 C645FF01 mov byte ptr [ebp-$01], $01
0061905D 8D45E0 lea eax, [ebp-$20]
00619060 50 push eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619061 8BBED0020000 mov edi, [esi+$02D0]
00619067 8B8F3C020000 mov ecx, [edi+$023C]
0061906D 49 dec ecx
0061906E 33D2 xor edx, edx
00619070 8BC7 mov eax, edi
* Reference to : TStringSparseList._PROC_005A0894()
|
00619072 E81D78F8FF call 005A0894
00619077 8B45E0 mov eax, [ebp-$20]
0061907A 50 push eax
0061907B 8D55DC lea edx, [ebp-$24]
* Reference to field TFrmBKShow.OFFS_02E4
|
0061907E 8B86E4020000 mov eax, [esi+$02E4]
* Reference to: Unit_00409434.Proc_0040A564
|
00619084 E8DB14DFFF call 0040A564
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -