📄 jdshow.pas
字号:
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
00628200 E8A310E1FF call 004392A8
00628205 83C40C add esp, +$0C
00628208 5B pop ebx
00628209 C3 ret
*)
end;
procedure TFrmJDShow.FormDestroy(Sender : TObject);
begin
(*
* Reference to : TFrmJDShow._PROC_0062853C()
|
00628224 E813030000 call 0062853C
00628229 A1ACCD7800 mov eax, dword ptr [$0078CDAC]
* Reference to: system.TObject.Free(TObject);
|
0062822E E899B0DDFF call 004032CC
00628233 33C0 xor eax, eax
* Reference to GlobalVar_0078CDAC
|
00628235 A3ACCD7800 mov dword ptr [$0078CDAC], eax
0062823A A158CE7700 mov eax, dword ptr [$0077CE58]
0062823F 833800 cmp dword ptr [eax], +$00
00628242 740C jz 00628250
00628244 A158CE7700 mov eax, dword ptr [$0077CE58]
00628249 8B00 mov eax, [eax]
* Reference to: system.@FreeMem;
|
0062824B E830A6DDFF call 00402880
00628250 A158CE7700 mov eax, dword ptr [$0077CE58]
00628255 33D2 xor edx, edx
00628257 8910 mov [eax], edx
* Reference to: Unit_00651A88.Proc_00651F54
|
00628259 E8F69C0200 call 00651F54
0062825E C3 ret
*)
end;
procedure TFrmJDShow.WfGridMouseMove(Sender : TObject);
begin
(*
00628260 55 push ebp
00628261 8BEC mov ebp, esp
00628263 83C4F8 add esp, -$08
00628266 53 push ebx
00628267 8BD8 mov ebx, eax
00628269 8D45FC lea eax, [ebp-$04]
0062826C 50 push eax
0062826D 8D45F8 lea eax, [ebp-$08]
00628270 50 push eax
00628271 8B4D08 mov ecx, [ebp+$08]
00628274 8B550C mov edx, [ebp+$0C]
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00628277 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: MyGrids.Proc_0059F198
|
0062827D E8166FF7FF call 0059F198
00628282 837DF800 cmp dword ptr [ebp-$08], +$00
00628286 7511 jnz 00628299
00628288 66BAEBFF mov dx, $FFEB
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062828C 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00628292 E8A919E1FF call 00439C40
00628297 EB0D jmp 006282A6
00628299 33D2 xor edx, edx
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062829B 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
006282A1 E89A19E1FF call 00439C40
006282A6 5B pop ebx
006282A7 59 pop ecx
006282A8 59 pop ecx
006282A9 5D pop ebp
006282AA C20800 ret $0008
*)
end;
procedure TFrmJDShow.FormKeyPress(Sender : TObject);
begin
(*
006282B0 53 push ebx
006282B1 56 push esi
006282B2 83C4F4 add esp, -$0C
006282B5 8BF1 mov esi, ecx
006282B7 8BD8 mov ebx, eax
* Reference to TScreen instance
|
006282B9 A11CD57700 mov eax, dword ptr [$0077D51C]
006282BE 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
006282C0 E82FEEE2FF call 004570F4
006282C5 89442408 mov [esp+$08], eax
006282C9 DB442408 fild dword ptr [esp+$08]
006282CD D835F8836200 fdiv dword ptr [$006283F8]
006282D3 DDD8 fstp st(0)
* Reference to TScreen instance
|
006282D5 A11CD57700 mov eax, dword ptr [$0077D51C]
006282DA 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
006282DC E807EEE2FF call 004570E8
006282E1 89442408 mov [esp+$08], eax
006282E5 DB442408 fild dword ptr [esp+$08]
006282E9 D835FC836200 fdiv dword ptr [$006283FC]
006282EF DDD8 fstp st(0)
006282F1 803E2F cmp byte ptr [esi], $2F
006282F4 7409 jz 006282FF
006282F6 803E2A cmp byte ptr [esi], $2A
006282F9 0F85CC000000 jnz 006283CB
006282FF 6A00 push $00
00628301 6A00 push $00
00628303 6A0B push $0B
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00628305 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0062830B E8787AE1FF call 0043FD88
00628310 50 push eax
* Reference to: user32.SendMessageA()
|
00628311 E8C209DEFF call 00408CD8
* Reference to field TFrmJDShow.OFFS_02E4
|
00628316 8B93E4020000 mov edx, [ebx+$02E4]
0062831C 8BC3 mov eax, ebx
* Reference to : TFrmJDShow.Proc_00627E80()
|
0062831E E85DFBFFFF call 00627E80
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00628323 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : THJStringGrid._PROC_0059E53C()
|
00628329 E80E62F7FF call 0059E53C
0062832E BE0E000000 mov esi, $0000000E
00628333 2BF0 sub esi, eax
00628335 85F6 test esi, esi
00628337 7C0F jl 00628348
00628339 46 inc esi
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062833A 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: MyGrids.Proc_0059DD48
|
00628340 E8035AF7FF call 0059DD48
00628345 4E dec esi
00628346 75F2 jnz 0062833A
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00628348 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : THJStringGrid._PROC_0059E53C()
|
0062834E E8E961F7FF call 0059E53C
00628353 48 dec eax
* Reference to field TFrmJDShow.OFFS_02E4
|
00628354 3B83E4020000 cmp eax, [ebx+$02E4]
0062835A 7D26 jnl 00628382
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
0062835C 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : THJStringGrid._PROC_0059E53C()
|
00628362 E8D561F7FF call 0059E53C
* Reference to field TFrmJDShow.OFFS_02E4
|
00628367 8BB3E4020000 mov esi, [ebx+$02E4]
0062836D 2BF0 sub esi, eax
0062836F 85F6 test esi, esi
00628371 7C0F jl 00628382
00628373 46 inc esi
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00628374 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: MyGrids.Proc_0059DD54
|
0062837A E8D559F7FF call 0059DD54
0062837F 4E dec esi
00628380 75F2 jnz 00628374
* Reference to field TFrmJDShow.OFFS_02E4
|
00628382 8B83E4020000 mov eax, [ebx+$02E4]
00628388 40 inc eax
00628389 B90E000000 mov ecx, $0000000E
0062838E 99 cdq
0062838F F7F9 idiv ecx
00628391 8BCA mov ecx, edx
* Reference to field TFrmJDShow.OFFS_02E4
|
00628393 898BE4020000 mov [ebx+$02E4], ecx
00628399 85C9 test ecx, ecx
0062839B 750A jnz 006283A7
* Reference to field TFrmJDShow.OFFS_02E4
|
0062839D C783E402000003000000 mov dword ptr [ebx+$02E4], $00000003
006283A7 6A00 push $00
006283A9 6A01 push $01
006283AB 6A0B push $0B
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006283AD 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
006283B3 E8D079E1FF call 0043FD88
006283B8 50 push eax
* Reference to: user32.SendMessageA()
|
006283B9 E81A09DEFF call 00408CD8
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006283BE 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.Refresh(TControl);
|
006283C4 E8631BE1FF call 00439F2C
006283C9 EB25 jmp 006283F0
006283CB 803E30 cmp byte ptr [esi], $30
006283CE 7205 jb 006283D5
006283D0 803E39 cmp byte ptr [esi], $39
006283D3 7614 jbe 006283E9
006283D5 803E61 cmp byte ptr [esi], $61
006283D8 7205 jb 006283DF
006283DA 803E7A cmp byte ptr [esi], $7A
006283DD 760A jbe 006283E9
006283DF 803E41 cmp byte ptr [esi], $41
006283E2 720C jb 006283F0
006283E4 803E5A cmp byte ptr [esi], $5A
006283E7 7707 jnbe 006283F0
006283E9 8A06 mov al, byte ptr [esi]
* Reference to: Unit_00651A88.Proc_00652AA0
|
006283EB E8B0A60200 call 00652AA0
006283F0 83C40C add esp, +$0C
006283F3 5E pop esi
006283F4 5B pop ebx
006283F5 C3 ret
*)
end;
procedure TFrmJDShow.FormMouseWheelDown(Sender : TObject);
begin
(*
00628660 55 push ebp
00628661 8BEC mov ebp, esp
00628663 83C4F4 add esp, -$0C
00628666 56 push esi
00628667 57 push edi
00628668 8B750C mov esi, [ebp+$0C]
0062866B 8D7DF8 lea edi, [ebp-$08]
0062866E A5 movsd
0062866F A5 movsd
00628670 66C745F62200 mov word ptr [ebp-$0A], $0022
00628676 8A0D90866200 mov cl, byte ptr [$00628690]
0062867C 51 push ecx
0062867D 8D4DF6 lea ecx, [ebp-$0A]
* Reference to : TFrmJDShow.FormKeyDown()
|
00628680 E82BEFFFFF call 006275B0
00628685 5F pop edi
00628686 5E pop esi
00628687 8BE5 mov esp, ebp
00628689 5D pop ebp
0062868A C20800 ret $0008
*)
end;
procedure TFrmJDShow.FormMouseWheelUp(Sender : TObject);
begin
(*
00628694 55 push ebp
00628695 8BEC mov ebp, esp
00628697 83C4F4 add esp, -$0C
0062869A 56 push esi
0062869B 57 push edi
0062869C 8B750C mov esi, [ebp+$0C]
0062869F 8D7DF8 lea edi, [ebp-$08]
006286A2 A5 movsd
006286A3 A5 movsd
006286A4 66C745F62100 mov word ptr [ebp-$0A], $0021
006286AA 8A0DC4866200 mov cl, byte ptr [$006286C4]
006286B0 51 push ecx
006286B1 8D4DF6 lea ecx, [ebp-$0A]
* Reference to : TFrmJDShow.FormKeyDown()
|
006286B4 E8F7EEFFFF call 006275B0
006286B9 5F pop edi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -