📄 jdshow.pas
字号:
00627682 66C7060000 mov word ptr [esi], $0000
00627687 E966020000 jmp 006278F2
0062768C 66833E21 cmp word ptr [esi], +$21
00627690 0F94C2 setz dl
00627693 84DA test dl, bl
00627695 743E jz 006276D5
00627697 8B87D0020000 mov eax, [edi+$02D0]
0062769D FFB03C020000 push dword ptr [eax+$023C]
006276A3 8B87E0020000 mov eax, [edi+$02E0]
006276A9 5A pop edx
006276AA 2BC2 sub eax, edx
006276AC 40 inc eax
006276AD 8987E0020000 mov [edi+$02E0], eax
006276B3 8B97D0020000 mov edx, [edi+$02D0]
006276B9 8B8A3C020000 mov ecx, [edx+$023C]
006276BF 83E902 sub ecx, +$02
006276C2 8BD0 mov edx, eax
006276C4 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
006276C6 E891FCFFFF call 0062735C
006276CB 66C7060000 mov word ptr [esi], $0000
006276D0 E91D020000 jmp 006278F2
006276D5 66833E28 cmp word ptr [esi], +$28
006276D9 0F94C2 setz dl
006276DC 84C2 test dl, al
006276DE 745B jz 0062773B
006276E0 8B97D0020000 mov edx, [edi+$02D0]
006276E6 8B921C020000 mov edx, [edx+$021C]
006276EC 8B8FD0020000 mov ecx, [edi+$02D0]
006276F2 8B893C020000 mov ecx, [ecx+$023C]
006276F8 49 dec ecx
006276F9 3BD1 cmp edx, ecx
006276FB 753E jnz 0062773B
006276FD FF87E0020000 inc dword ptr [edi+$02E0]
00627703 8B87D0020000 mov eax, [edi+$02D0]
00627709 8B903C020000 mov edx, [eax+$023C]
0062770F 4A dec edx
* Reference to : THJStringGrid._PROC_0059E918()
|
00627710 E80372F7FF call 0059E918
00627715 8B87D0020000 mov eax, [edi+$02D0]
0062771B 8B883C020000 mov ecx, [eax+$023C]
00627721 83E902 sub ecx, +$02
00627724 8B97E0020000 mov edx, [edi+$02E0]
0062772A 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
0062772C E82BFCFFFF call 0062735C
00627731 66C7060000 mov word ptr [esi], $0000
00627736 E9B7010000 jmp 006278F2
0062773B 66833E26 cmp word ptr [esi], +$26
0062773F 753F jnz 00627780
00627741 8B97D0020000 mov edx, [edi+$02D0]
00627747 83BA1C02000001 cmp dword ptr [edx+$021C], +$01
0062774E 7530 jnz 00627780
00627750 84DB test bl, bl
00627752 742C jz 00627780
00627754 FF8FE0020000 dec dword ptr [edi+$02E0]
0062775A 8B87D0020000 mov eax, [edi+$02D0]
00627760 8B883C020000 mov ecx, [eax+$023C]
00627766 83E902 sub ecx, +$02
00627769 8B97E0020000 mov edx, [edi+$02E0]
0062776F 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
00627771 E8E6FBFFFF call 0062735C
00627776 66C7060000 mov word ptr [esi], $0000
0062777B E972010000 jmp 006278F2
00627780 66833E24 cmp word ptr [esi], +$24
00627784 0F94C2 setz dl
00627787 84DA test dl, bl
00627789 7425 jz 006277B0
0062778B 33C0 xor eax, eax
0062778D 8987E0020000 mov [edi+$02E0], eax
00627793 8B97D0020000 mov edx, [edi+$02D0]
00627799 8B8A3C020000 mov ecx, [edx+$023C]
0062779F 83E902 sub ecx, +$02
006277A2 8BD0 mov edx, eax
006277A4 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
006277A6 E8B1FBFFFF call 0062735C
006277AB E942010000 jmp 006278F2
006277B0 66833E23 cmp word ptr [esi], +$23
006277B4 0F94C2 setz dl
006277B7 84C2 test dl, al
006277B9 7437 jz 006277F2
* Reference to pointer to GlobalVar_0078CDD8
|
006277BB A100CF7700 mov eax, dword ptr [$0077CF00]
006277C0 8B00 mov eax, [eax]
006277C2 40 inc eax
006277C3 8B97D0020000 mov edx, [edi+$02D0]
006277C9 2B823C020000 sub eax, dword ptr [edx+$023C]
006277CF 8987E0020000 mov [edi+$02E0], eax
006277D5 8B97D0020000 mov edx, [edi+$02D0]
006277DB 8B8A3C020000 mov ecx, [edx+$023C]
006277E1 83E902 sub ecx, +$02
006277E4 8BD0 mov edx, eax
006277E6 8BC7 mov eax, edi
* Reference to : TFrmJDShow.Proc_0062735C()
|
006277E8 E86FFBFFFF call 0062735C
006277ED E900010000 jmp 006278F2
006277F2 66833E0D cmp word ptr [esi], +$0D
006277F6 0F85E9000000 jnz 006278E5
006277FC 8B87D0020000 mov eax, [edi+$02D0]
00627802 8B981C020000 mov ebx, [eax+$021C]
00627808 039FE0020000 add ebx, [edi+$02E0]
0062780E 4B dec ebx
0062780F 85DB test ebx, ebx
00627811 7C15 jl 00627828
00627813 8D4DE4 lea ecx, [ebp-$1C]
00627816 8BD3 mov edx, ebx
00627818 A1ACCD7800 mov eax, dword ptr [$0078CDAC]
* Reference to: Unit_004AC2A8.Proc_004AC414
|
0062781D E8F24BE8FF call 004AC414
00627822 668B45E4 mov ax, word ptr [ebp-$1C]
00627826 EB02 jmp 0062782A
00627828 33C0 xor eax, eax
0062782A 0FB7C0 movzx eax, ax
0062782D 6BC03D imul eax, eax, $3D
00627830 8B1558CE7700 mov edx, [$0077CE58]
00627836 8B12 mov edx, [edx]
00627838 668B0402 mov ax, word ptr [edx+eax]
0062783C 0FB7D0 movzx edx, ax
0062783F 42 inc edx
00627840 7407 jz 00627849
00627842 33D2 xor edx, edx
* Reference to: Unit_00651A88.Proc_00652898
|
00627844 E84FB00200 call 00652898
00627849 803D84A4770000 cmp byte ptr [$0077A484], $00
00627850 747F jz 006278D1
00627852 803DC0CD780001 cmp byte ptr [$0078CDC0], $01
00627859 7576 jnz 006278D1
0062785B C60584A4770000 mov byte ptr [$0077A484], $00
00627862 8D45E0 lea eax, [ebp-$20]
00627865 50 push eax
00627866 8B9FD0020000 mov ebx, [edi+$02D0]
0062786C 8B8B1C020000 mov ecx, [ebx+$021C]
00627872 33D2 xor edx, edx
00627874 8BC3 mov eax, ebx
* Reference to : TStringSparseList._PROC_005A0894()
|
00627876 E81990F7FF call 005A0894
0062787B 8B45E0 mov eax, [ebp-$20]
* Reference to: Unit_00409434.Proc_0040A644
|
0062787E E8C12DDEFF call 0040A644
00627883 48 dec eax
00627884 8987E0020000 mov [edi+$02E0], eax
0062788A BA01000000 mov edx, $00000001
0062788F 8B87D0020000 mov eax, [edi+$02D0]
* Reference to : THJStringGrid._PROC_0059E918()
|
00627895 E87E70F7FF call 0059E918
0062789A BA1E000000 mov edx, $0000001E
0062789F 8BC7 mov eax, edi
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006278A1 E89E19E1FF call 00439244
006278A6 BA68010000 mov edx, $00000168
006278AB 8BC7 mov eax, edi
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006278AD E8B219E1FF call 00439264
006278B2 BA02030000 mov edx, $00000302
006278B7 8BC7 mov eax, edi
* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
006278B9 E8CA19E1FF call 00439288
006278BE BAC6000000 mov edx, $000000C6
006278C3 8BC7 mov eax, edi
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
006278C5 E8DE19E1FF call 004392A8
006278CA C605C0CD780002 mov byte ptr [$0078CDC0], $02
006278D1 A178A47700 mov eax, dword ptr [$0077A478]
006278D6 8B10 mov edx, [eax]
006278D8 FF92B0000000 call dword ptr [edx+$00B0]
006278DE 66C7060000 mov word ptr [esi], $0000
006278E3 EB0D jmp 006278F2
006278E5 66833E1B cmp word ptr [esi], +$1B
006278E9 7507 jnz 006278F2
006278EB 8BC7 mov eax, edi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006278ED E8CAE7E2FF call 004560BC
006278F2 33C0 xor eax, eax
006278F4 5A pop edx
006278F5 59 pop ecx
006278F6 59 pop ecx
006278F7 648910 mov fs:[eax], edx
****** FINALLY
|
006278FA 681C796200 push $0062791C
006278FF 8D45E0 lea eax, [ebp-$20]
* Reference to: system.@LStrClr(String;String);
|
00627902 E8EDC7DDFF call 004040F4
00627907 8D45F4 lea eax, [ebp-$0C]
0062790A BA03000000 mov edx, $00000003
* Reference to: system.@LStrArrayClr;
|
0062790F E804C8DDFF call 00404118
00627914 C3 ret
* Reference to: system.@HandleFinally;
|
00627915 E912C1DDFF jmp 00403A2C
0062791A EBE3 jmp 006278FF
****** END
|
0062791C 5F pop edi
0062791D 5E pop esi
0062791E 5B pop ebx
0062791F 8BE5 mov esp, ebp
00627921 5D pop ebp
00627922 C20400 ret $0004
*)
end;
procedure TFrmJDShow.FormCreate(Sender : TObject);
begin
(*
00627934 55 push ebp
00627935 8BEC mov ebp, esp
00627937 6A00 push $00
00627939 53 push ebx
0062793A 56 push esi
0062793B 57 push edi
0062793C 8BD8 mov ebx, eax
0062793E BFB0CD7800 mov edi, $0078CDB0
00627943 33C0 xor eax, eax
00627945 55 push ebp
00627946 680B7B6200 push $00627B0B
***** TRY
|
0062794B 64FF30 push dword ptr fs:[eax]
0062794E 648920 mov fs:[eax], esp
* Reference to field TFrmJDShow.HelpContext : THelpContext
|
00627951 C78350010000D6070000 mov dword ptr [ebx+$0150], $000007D6
0062795B BA01000000 mov edx, $00000001
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627960 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18C4()
|
00627966 E8599FF7FF call 005A18C4
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
0062796B E80C68DFFF call 0041E17C
00627970 8A15187B6200 mov dl, byte ptr [$00627B18]
00627976 F7D2 not edx
00627978 22D0 and dl, al
0062797A 52 push edx
0062797B BA01000000 mov edx, $00000001
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627980 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18C4()
|
00627986 E8399FF7FF call 005A18C4
0062798B 5A pop edx
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
0062798C E8F767DFFF call 0041E188
* Reference to field TFrmJDShow.OFFS_02E4
|
00627991 C783E402000003000000 mov dword ptr [ebx+$02E4], $00000003
0062799B 33C0 xor eax, eax
* Reference to GlobalVar_0078CDAC
|
0062799D A3ACCD7800 mov dword ptr [$0078CDAC], eax
006279A2 8D55FC lea edx, [ebp-$04]
006279A5 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006279A7 E8A420E1FF call 00439A50
006279AC 8B55FC mov edx, [ebp-$04]
* Reference to pointer to GlobalVar_0078CDDC
|
006279AF 8B0D88D07700 mov ecx, [$0077D088]
006279B5 8B09 mov ecx, [ecx]
006279B7 B8A8CD7800 mov eax, $0078CDA8
* Reference to: system.@LStrCat3;
|
006279BC E81BCADDFF call 004043DC
006279C1 8B15A8CD7800 mov edx, [$0078CDA8]
* Reference to control TFrmJDShow.RxGradientCaption1 : TRxGradientCaption
|
006279C7 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to : TRxCaption._PROC_004FBB34()
|
006279CD E86241EDFF call 004FBB34
006279D2 33C0 xor eax, eax
* Reference to field TFrmJDShow.OFFS_02D8
|
006279D4 8983D8020000 mov [ebx+$02D8], eax
* Reference to pointer to GlobalVar_0078CDD4
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -