📄 jdshow.pas
字号:
unit JDShow;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Grids, Aligrid
type
TFrmJDShow=class(TForm)
WfGrid: TStringAlignGrid;
procedure FormResize(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure WfGridMouseDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure WfGridMouseMove(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormMouseWheelDown(Sender : TObject);
procedure FormMouseWheelUp(Sender : TObject);
procedure _PROC_00626AC5(Sender : TObject);
procedure _PROC_00626FC9(Sender : TObject);
procedure _PROC_0062735D(Sender : TObject);
procedure _PROC_00627B18(Sender : TObject);
procedure _PROC_00627B7D(Sender : TObject);
procedure _PROC_00627E81(Sender : TObject);
procedure _PROC_00628401(Sender : TObject);
procedure _PROC_0062853C(Sender : TObject);
procedure _PROC_006286C9(Sender : TObject);
procedure _PROC_0062872C(Sender : TObject);
procedure Proc_0062735C(Sender : TObject);
procedure Proc_00627E80(Sender : TObject);
procedure Proc_00626AC4(Sender : TObject);
procedure Proc_00626FC8(Sender : TObject);
procedure Proc_00627B7C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmJDShow: TFrmJDShow;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmJDShow.FormResize(Sender : TObject);
begin
(*
00627464 53 push ebx
00627465 56 push esi
00627466 57 push edi
00627467 8BD8 mov ebx, eax
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627469 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_003C
|
0062746F 8B703C mov esi, [eax+$3C]
00627472 BA01000000 mov edx, $00000001
* Reference to : THJStringGrid._PROC_0059E4EC()
|
00627477 E87070F7FF call 0059E4EC
0062747C 8BC8 mov ecx, eax
0062747E 8BC6 mov eax, esi
00627480 99 cdq
00627481 F7F9 idiv ecx
00627483 8BF8 mov edi, eax
* Reference to field TFrmJDShow.OFFS_02DC
|
00627485 89BBDC020000 mov [ebx+$02DC], edi
0062748B 8BD7 mov edx, edi
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062748D 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : THJStringGrid._PROC_0059E930()
|
00627493 E89874F7FF call 0059E930
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627498 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
0062749E 8B803C020000 mov eax, [eax+$023C]
* Reference to field TFrmJDShow.OFFS_02D8
|
006274A4 3B83D8020000 cmp eax, [ebx+$02D8]
006274AA 7D0B jnl 006274B7
* Reference to field TFrmJDShow.OFFS_02D8
|
006274AC 8983D8020000 mov [ebx+$02D8], eax
006274B2 E9F5000000 jmp 006275AC
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006274B7 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
006274BD 83B83C02000000 cmp dword ptr [eax+$023C], +$00
006274C4 0F8EE2000000 jle 006275AC
* Reference to field TFrmJDShow.OFFS_02DC
|
006274CA 8BBBDC020000 mov edi, [ebx+$02DC]
006274D0 4F dec edi
006274D1 85FF test edi, edi
006274D3 0F8E8E000000 jle 00627567
006274D9 BE01000000 mov esi, $00000001
006274DE 8BCE mov ecx, esi
006274E0 BA06000000 mov edx, $00000006
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006274E5 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18AC()
|
006274EB E8BCA3F7FF call 005A18AC
006274F0 50 push eax
006274F1 BA06000000 mov edx, $00000006
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006274F6 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18B4()
|
006274FC E8B3A3F7FF call 005A18B4
00627501 8BD0 mov edx, eax
00627503 58 pop eax
00627504 8B08 mov ecx, [eax]
00627506 FF5108 call dword ptr [ecx+$08]
00627509 8BCE mov ecx, esi
0062750B BA08000000 mov edx, $00000008
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627510 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18AC()
|
00627516 E891A3F7FF call 005A18AC
0062751B 50 push eax
0062751C BA08000000 mov edx, $00000008
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627521 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18B4()
|
00627527 E888A3F7FF call 005A18B4
0062752C 8BD0 mov edx, eax
0062752E 58 pop eax
0062752F 8B08 mov ecx, [eax]
00627531 FF5108 call dword ptr [ecx+$08]
00627534 8BCE mov ecx, esi
00627536 BA0C000000 mov edx, $0000000C
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062753B 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18AC()
|
00627541 E866A3F7FF call 005A18AC
00627546 50 push eax
00627547 BA0C000000 mov edx, $0000000C
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062754C 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18B4()
|
00627552 E85DA3F7FF call 005A18B4
00627557 8BD0 mov edx, eax
00627559 58 pop eax
0062755A 8B08 mov ecx, [eax]
0062755C FF5108 call dword ptr [ecx+$08]
0062755F 46 inc esi
00627560 4F dec edi
00627561 0F8577FFFFFF jnz 006274DE
* Reference to pointer to GlobalVar_0078CDD8
|
00627567 8B1500CF7700 mov edx, [$0077CF00]
0062756D 8B12 mov edx, [edx]
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062756F 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00627575 8B883C020000 mov ecx, [eax+$023C]
0062757B 83E902 sub ecx, +$02
0062757E 3BD1 cmp edx, ecx
00627580 7D0E jnl 00627590
* Reference to pointer to GlobalVar_0078CDD8
|
00627582 8B1500CF7700 mov edx, [$0077CF00]
00627588 8B12 mov edx, [edx]
0062758A 42 inc edx
* Reference to : THJStringGrid._PROC_0059E930()
|
0062758B E8A073F7FF call 0059E930
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627590 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00627596 8B883C020000 mov ecx, [eax+$023C]
0062759C 83E902 sub ecx, +$02
* Reference to field TFrmJDShow.OFFS_02E0
|
0062759F 8B93E0020000 mov edx, [ebx+$02E0]
006275A5 8BC3 mov eax, ebx
* Reference to : TFrmJDShow.Proc_0062735C()
|
006275A7 E8B0FDFFFF call 0062735C
006275AC 5F pop edi
006275AD 5E pop esi
006275AE 5B pop ebx
006275AF C3 ret
*)
end;
procedure TFrmJDShow.FormKeyDown(Sender : TObject);
begin
(*
006275B0 55 push ebp
006275B1 8BEC mov ebp, esp
006275B3 83C4E0 add esp, -$20
006275B6 53 push ebx
006275B7 56 push esi
006275B8 57 push edi
006275B9 33DB xor ebx, ebx
006275BB 895DE0 mov [ebp-$20], ebx
006275BE 895DF8 mov [ebp-$08], ebx
006275C1 895DF4 mov [ebp-$0C], ebx
006275C4 895DFC mov [ebp-$04], ebx
006275C7 8BF1 mov esi, ecx
006275C9 8BF8 mov edi, eax
006275CB 33C0 xor eax, eax
006275CD 55 push ebp
006275CE 6815796200 push $00627915
***** TRY
|
006275D3 64FF30 push dword ptr fs:[eax]
006275D6 648920 mov fs:[eax], esp
006275D9 8D45FC lea eax, [ebp-$04]
006275DC 50 push eax
006275DD B901000000 mov ecx, $00000001
006275E2 33D2 xor edx, edx
006275E4 8B87D0020000 mov eax, [edi+$02D0]
* Reference to : TStringSparseList._PROC_005A0894()
|
006275EA E8A592F7FF call 005A0894
006275EF 8B45FC mov eax, [ebp-$04]
006275F2 BA30796200 mov edx, $00627930
* Reference to: system.@LStrCmp;
|
006275F7 E8A4CEDDFF call 004044A0
006275FC 7504 jnz 00627602
006275FE 33DB xor ebx, ebx
00627600 EB02 jmp 00627604
00627602 B301 mov bl, $01
00627604 8D45F8 lea eax, [ebp-$08]
00627607 50 push eax
00627608 8B87D0020000 mov eax, [edi+$02D0]
0062760E 8B883C020000 mov ecx, [eax+$023C]
00627614 49 dec ecx
00627615 33D2 xor edx, edx
00627617 8B87D0020000 mov eax, [edi+$02D0]
* Reference to : TStringSparseList._PROC_005A0894()
|
0062761D E87292F7FF call 005A0894
00627622 8B45F8 mov eax, [ebp-$08]
00627625 50 push eax
00627626 8D55F4 lea edx, [ebp-$0C]
* Reference to pointer to GlobalVar_0078CDD8
|
00627629 A100CF7700 mov eax, dword ptr [$0077CF00]
0062762E 8B00 mov eax, [eax]
* Reference to: Unit_00409434.Proc_0040A564
|
00627630 E82F2FDEFF call 0040A564
00627635 8B55F4 mov edx, [ebp-$0C]
00627638 58 pop eax
* Reference to: system.@LStrCmp;
|
00627639 E862CEDDFF call 004044A0
0062763E 7504 jnz 00627644
00627640 33C0 xor eax, eax
00627642 EB02 jmp 00627646
00627644 B001 mov al, $01
00627646 66833E22 cmp word ptr [esi], +$22
0062764A 0F94C2 setz dl
0062764D 84C2 test dl, al
0062764F 743B jz 0062768C
00627651 8B87D0020000 mov eax, [edi+$02D0]
00627657 8B803C020000 mov eax, [eax+$023C]
0062765D 0387E0020000 add eax, [edi+$02E0]
00627663 48 dec eax
00627664 8987E0020000 mov [edi+$02E0], eax
0062766A 8B97D0020000 mov edx, [edi+$02D0]
00627670 8B8A3C020000 mov ecx, [edx+$023C]
00627676 83E902 sub ecx, +$02
00627679 8BD0 mov edx, eax
0062767B 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
0062767D E8DAFCFFFF call 0062735C
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -