📄 bkshow.pas
字号:
00619089 8B55DC mov edx, [ebp-$24]
0061908C 58 pop eax
* Reference to: system.@LStrCmp;
|
0061908D E80EB4DEFF call 004044A0
00619092 7504 jnz 00619098
00619094 33C0 xor eax, eax
00619096 EB02 jmp 0061909A
00619098 B001 mov al, $01
0061909A 0FB713 movzx edx, word ptr [ebx]
0061909D 83FA24 cmp edx, +$24
006190A0 7F2B jnle 006190CD
006190A2 0F84F4010000 jz 0061929C
006190A8 83EA1B sub edx, +$1B
006190AB 0F844A020000 jz 006192FB
006190B1 83EA06 sub edx, +$06
006190B4 0F84F7000000 jz 006191B1
006190BA 4A dec edx
006190BB 0F84AD000000 jz 0061916E
006190C1 4A dec edx
006190C2 0F84FC010000 jz 006192C4
006190C8 E935020000 jmp 00619302
006190CD 83EA26 sub edx, +$26
006190D0 0F8484010000 jz 0061925A
006190D6 83EA02 sub edx, +$02
006190D9 0F841A010000 jz 006191F9
006190DF 83EA43 sub edx, +$43
006190E2 0F851A020000 jnz 00619302
006190E8 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_031C
|
006190EA 89861C030000 mov [esi+$031C], eax
* Reference to pointer to GlobalVar_0078CF20
|
006190F0 A1D4CE7700 mov eax, dword ptr [$0077CED4]
006190F5 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF20.OFFS_01DC
|
006190F7 8B80DC010000 mov eax, [eax+$01DC]
006190FD 48 dec eax
* Reference to field TFrmBKShow.OFFS_0314
|
006190FE 3B8614030000 cmp eax, [esi+$0314]
00619104 750C jnz 00619112
* Reference to field TFrmBKShow.OFFS_0314
|
00619106 C78614030000FFFFFFFF mov dword ptr [esi+$0314], $FFFFFFFF
00619110 EB06 jmp 00619118
00619112 FF8614030000 inc dword ptr [esi+$0314]
* Reference to field TFrmBKShow.OFFS_0314
|
00619118 8B9614030000 mov edx, [esi+$0314]
0061911E 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_0061933C()
|
00619120 E817020000 call 0061933C
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619125 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
0061912B 8B883C020000 mov ecx, [eax+$023C]
00619131 83E902 sub ecx, +$02
* Reference to field TFrmBKShow.OFFS_031C
|
00619134 8B961C030000 mov edx, [esi+$031C]
0061913A 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
0061913C E883FCFFFF call 00618DC4
00619141 BA01000000 mov edx, $00000001
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619146 8B86D0020000 mov eax, [esi+$02D0]
* Reference to : THJStringGrid._PROC_0059E918()
|
0061914C E8C757F8FF call 0059E918
* Reference to field TFrmBKShow.OFFS_0324
|
00619151 8B8624030000 mov eax, [esi+$0324]
00619157 48 dec eax
00619158 85C0 test eax, eax
0061915A 0F8EA2010000 jle 00619302
00619160 8BD0 mov edx, eax
00619162 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00619648()
|
00619164 E8DF040000 call 00619648
00619169 E994010000 jmp 00619302
0061916E 84C0 test al, al
00619170 0F848C010000 jz 00619302
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619176 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
0061917C 8B803C020000 mov eax, [eax+$023C]
00619182 03861C030000 add eax, [esi+$031C]
00619188 48 dec eax
* Reference to field TFrmBKShow.OFFS_031C
|
00619189 89861C030000 mov [esi+$031C], eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
0061918F 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00619195 8B8A3C020000 mov ecx, [edx+$023C]
0061919B 83E902 sub ecx, +$02
0061919E 8BD0 mov edx, eax
006191A0 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
006191A2 E81DFCFFFF call 00618DC4
006191A7 66C7030000 mov word ptr [ebx], $0000
006191AC E951010000 jmp 00619302
006191B1 807DFF00 cmp byte ptr [ebp-$01], $00
006191B5 0F8447010000 jz 00619302
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
006191BB 8B86D0020000 mov eax, [esi+$02D0]
006191C1 FFB03C020000 push dword ptr [eax+$023C]
* Reference to field TFrmBKShow.OFFS_031C
|
006191C7 8B861C030000 mov eax, [esi+$031C]
006191CD 5A pop edx
006191CE 2BC2 sub eax, edx
006191D0 40 inc eax
* Reference to field TFrmBKShow.OFFS_031C
|
006191D1 89861C030000 mov [esi+$031C], eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
006191D7 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
006191DD 8B8A3C020000 mov ecx, [edx+$023C]
006191E3 83E902 sub ecx, +$02
006191E6 8BD0 mov edx, eax
006191E8 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
006191EA E8D5FBFFFF call 00618DC4
006191EF 66C7030000 mov word ptr [ebx], $0000
006191F4 E909010000 jmp 00619302
006191F9 84C0 test al, al
006191FB 0F8401010000 jz 00619302
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619201 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_021C
|
00619207 8B821C020000 mov eax, [edx+$021C]
* Reference to field TStringAlignGrid.OFFS_023C
|
0061920D 8B923C020000 mov edx, [edx+$023C]
00619213 4A dec edx
00619214 3BC2 cmp eax, edx
00619216 0F85E6000000 jnz 00619302
0061921C FF861C030000 inc dword ptr [esi+$031C]
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619222 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
00619228 8B903C020000 mov edx, [eax+$023C]
0061922E 4A dec edx
* Reference to : THJStringGrid._PROC_0059E918()
|
0061922F E8E456F8FF call 0059E918
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619234 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
0061923A 8B883C020000 mov ecx, [eax+$023C]
00619240 83E902 sub ecx, +$02
* Reference to field TFrmBKShow.OFFS_031C
|
00619243 8B961C030000 mov edx, [esi+$031C]
00619249 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
0061924B E874FBFFFF call 00618DC4
00619250 66C7030000 mov word ptr [ebx], $0000
00619255 E9A8000000 jmp 00619302
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
0061925A 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_021C
|
00619260 83B81C02000001 cmp dword ptr [eax+$021C], +$01
00619267 0F94C0 setz al
0061926A 2245FF and al, byte ptr [ebp-$01]
0061926D 0F848F000000 jz 00619302
00619273 FF8E1C030000 dec dword ptr [esi+$031C]
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619279 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
0061927F 8B883C020000 mov ecx, [eax+$023C]
00619285 83E902 sub ecx, +$02
* Reference to field TFrmBKShow.OFFS_031C
|
00619288 8B961C030000 mov edx, [esi+$031C]
0061928E 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
00619290 E82FFBFFFF call 00618DC4
00619295 66C7030000 mov word ptr [ebx], $0000
0061929A EB66 jmp 00619302
0061929C 807DFF00 cmp byte ptr [ebp-$01], $00
006192A0 7460 jz 00619302
006192A2 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_031C
|
006192A4 89861C030000 mov [esi+$031C], eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
006192AA 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
006192B0 8B8A3C020000 mov ecx, [edx+$023C]
006192B6 83E902 sub ecx, +$02
006192B9 8BD0 mov edx, eax
006192BB 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
006192BD E802FBFFFF call 00618DC4
006192C2 EB3E jmp 00619302
006192C4 84C0 test al, al
006192C6 743A jz 00619302
* Reference to field TFrmBKShow.OFFS_02E4
|
006192C8 8B86E4020000 mov eax, [esi+$02E4]
006192CE 40 inc eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
006192CF 8B96D0020000 mov edx, [esi+$02D0]
006192D5 2B823C020000 sub eax, dword ptr [edx+$023C]
* Reference to field TFrmBKShow.OFFS_031C
|
006192DB 89861C030000 mov [esi+$031C], eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
006192E1 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TStringAlignGrid.OFFS_023C
|
006192E7 8B8A3C020000 mov ecx, [edx+$023C]
006192ED 83E902 sub ecx, +$02
006192F0 8BD0 mov edx, eax
006192F2 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00618DC4()
|
006192F4 E8CBFAFFFF call 00618DC4
006192F9 EB07 jmp 00619302
006192FB 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006192FD E8BACDE3FF call 004560BC
00619302 33C0 xor eax, eax
00619304 5A pop edx
00619305 59 pop ecx
00619306 59 pop ecx
00619307 648910 mov fs:[eax], edx
****** FINALLY
|
0061930A 6824936100 push $00619324
0061930F 8D45DC lea eax, [ebp-$24]
00619312 BA04000000 mov edx, $00000004
* Reference to: system.@LStrArrayClr;
|
00619317 E8FCADDEFF call 00404118
0061931C C3 ret
* Reference to: system.@HandleFinally;
|
0061931D E90AA7DEFF jmp 00403A2C
00619322 EBEB jmp 0061930F
****** END
|
00619324 5F pop edi
00619325 5E pop esi
00619326 5B pop ebx
00619327 8BE5 mov esp, ebp
00619329 5D pop ebp
0061932A C20400 ret $0004
*)
end;
procedure TFrmBKShow.BKGridMouseDown(Sender : TObject);
begin
(*
00619934 55 push ebp
00619935 8BEC mov ebp, esp
00619937 83C4F4 add esp, -$0C
0061993A 53 push ebx
0061993B 56 push esi
0061993C 8BD9 mov ebx, ecx
0061993E 8BF0 mov esi, eax
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619940 8B86D0020000 mov eax, [esi+$02D0]
00619946 8D55FC lea edx, [ebp-$04]
00619949 52 push edx
0061994A 8D55F8 lea edx, [ebp-$08]
0061994D 52 push edx
0061994E 8B4D08 mov ecx, [ebp+$08]
00619951 8B550C mov edx, [ebp+$0C]
* Reference to: MyGrids.Proc_0059F198
|
00619954 E83F58F8FF call 0059F198
00619959 84DB test bl, bl
0061995B 7526 jnz 00619983
0061995D F6451040 test byte ptr [ebp+$10], $40
00619961 7420 jz 00619983
00619963 837DF800 cmp dword ptr [ebp-$08], +$00
00619967 7445 jz 006199AE
00619969 66C745F60D00 mov word ptr [ebp-$0A], $000D
0061996F A0B8996100 mov al, byte ptr [$006199B8]
00619974 50 push eax
00619975 8D4DF6 lea ecx, [ebp-$0A]
00619978 8BD6 mov edx, esi
0061997A 8BC6 mov eax, esi
* Reference to : TFrmBKShow.FormKeyDown()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -