📄 hqscroll.pas
字号:
006B9BA9 E81E97D4FF call 004032CC
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9BAE 8B831C030000 mov eax, [ebx+$031C]
006B9BB4 85C0 test eax, eax
006B9BB6 7405 jz 006B9BBD
* Reference to: system.TObject.Free(TObject);
|
006B9BB8 E80F97D4FF call 004032CC
006B9BBD 5B pop ebx
006B9BBE C3 ret
*)
end;
procedure TfrmHQScroll.Timer1Timer(Sender : TObject);
begin
(*
006BA2F8 53 push ebx
006BA2F9 8BD8 mov ebx, eax
006BA2FB FF83FC020000 inc dword ptr [ebx+$02FC]
* Reference to field TfrmHQScroll.OFFS_02FC
|
006BA301 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to field TfrmHQScroll.OFFS_0310
|
006BA307 3B8310030000 cmp eax, [ebx+$0310]
006BA30D 7E16 jle 006BA325
006BA30F 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_02FC
|
006BA311 8983FC020000 mov [ebx+$02FC], eax
006BA317 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll._PROC_006BA28C()
|
006BA319 E86EFFFFFF call 006BA28C
006BA31E 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll.Proc_006B9EC8()
|
006BA320 E8A3FBFFFF call 006B9EC8
006BA325 8BD3 mov edx, ebx
006BA327 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll.PaintBox1Paint()
|
006BA329 E80EFFFFFF call 006BA23C
006BA32E 5B pop ebx
006BA32F C3 ret
*)
end;
procedure TfrmHQScroll.WMNCHitTest(Sender : TObject);
begin
(*
006BA34C 53 push ebx
006BA34D 56 push esi
006BA34E 83C4F0 add esp, -$10
006BA351 8BF2 mov esi, edx
006BA353 8BD8 mov ebx, eax
006BA355 8BD6 mov edx, esi
006BA357 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.WMNCHitTest(TWinControl;TWMNCHitTest;TWMNCHitTest);
|
006BA359 E8324DD8FF call 0043F090
006BA35E 0FBF4608 movsx eax, word ptr [esi+$08]
006BA362 890424 mov [esp], eax
006BA365 0FBF460A movsx eax, word ptr [esi+$0A]
006BA369 89442404 mov [esp+$04], eax
006BA36D 8D4C2408 lea ecx, [esp+$08]
006BA371 8BD4 mov edx, esp
006BA373 8BC3 mov eax, ebx
* Reference to: controls.TControl.ScreenToClient(TControl;TPoint;TPoint):TPoint;
|
006BA375 E87AF2D7FF call 004395F4
* Reference to control TfrmHQScroll.PaintBox2 : TPaintBox
|
006BA37A 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to field TPaintBox.Width : Integer
|
006BA380 8B4038 mov eax, [eax+$38]
006BA383 3B442408 cmp eax, [esp+$08]
006BA387 7C07 jl 006BA390
006BA389 C7460C02000000 mov dword ptr [esi+$0C], $00000002
006BA390 83C410 add esp, +$10
006BA393 5E pop esi
006BA394 5B pop ebx
006BA395 C3 ret
*)
end;
procedure TfrmHQScroll.WMGetMinMaxInfo(Sender : TObject);
begin
(*
006BA398 53 push ebx
006BA399 8BDA mov ebx, edx
006BA39B 8BD3 mov edx, ebx
* Reference to: forms.TCustomForm.WMGetMinMaxInfo(TCustomForm;TWMGetMinMaxInfo;TWMGetMinMaxInfo);
|
006BA39D E8CAB4D9FF call 0045586C
006BA3A2 8B4308 mov eax, [ebx+$08]
006BA3A5 C740241C000000 mov dword ptr [eax+$24], $0000001C
006BA3AC C7401C1C000000 mov dword ptr [eax+$1C], $0000001C
006BA3B3 5B pop ebx
006BA3B4 C3 ret
*)
end;
procedure TfrmHQScroll.FormResize(Sender : TObject);
begin
(*
* Reference to : TfrmHQScroll._PROC_006B9C00()
|
006B9CD4 E827FFFFFF call 006B9C00
006B9CD9 C3 ret
*)
end;
procedure TfrmHQScroll.Image3Click(Sender : TObject);
begin
(*
* Reference to field TfrmHQScroll.OFFS_0325 : Byte
|
006BA550 C6802503000001 mov byte ptr [eax+$0325], $01
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006BA557 E860BBD9FF call 004560BC
006BA55C C3 ret
*)
end;
procedure TfrmHQScroll.Timer2Timer(Sender : TObject);
begin
(*
006BA3B8 53 push ebx
006BA3B9 56 push esi
* Reference to field TfrmHQScroll.OFFS_031C
|
006BA3BA 8B901C030000 mov edx, [eax+$031C]
006BA3C0 837A081E cmp dword ptr [edx+$08], +$1E
006BA3C4 7E27 jle 006BA3ED
* Reference to field TfrmHQScroll.OFFS_0318
|
006BA3C6 8BB018030000 mov esi, [eax+$0318]
006BA3CC 8B4E10 mov ecx, [esi+$10]
006BA3CF 51 push ecx
006BA3D0 6A00 push $00
006BA3D2 6A1E push $1E
006BA3D4 6A00 push $00
006BA3D6 6A00 push $00
006BA3D8 8A4E14 mov cl, byte ptr [esi+$14]
* Reference to pointer to GlobalVar_0078CF18
|
006BA3DB 8B1DE8D07700 mov ebx, [$0077D0E8]
006BA3E1 8B1B mov ebx, [ebx]
006BA3E3 8BC3 mov eax, ebx
006BA3E5 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_28
|
006BA3E7 FF5328 call dword ptr [ebx+$28]
006BA3EA 5E pop esi
006BA3EB 5B pop ebx
006BA3EC C3 ret
* Reference to field GlobalVar_0078CF18.OFFS_0318
|
006BA3ED 8BB018030000 mov esi, [eax+$0318]
006BA3F3 8B4E10 mov ecx, [esi+$10]
006BA3F6 51 push ecx
006BA3F7 6A00 push $00
006BA3F9 668B4A08 mov cx, word ptr [edx+$08]
006BA3FD 51 push ecx
006BA3FE 6A00 push $00
006BA400 6A00 push $00
006BA402 8A4E14 mov cl, byte ptr [esi+$14]
* Reference to pointer to GlobalVar_0078CF18
|
006BA405 8B1DE8D07700 mov ebx, [$0077D0E8]
006BA40B 8B1B mov ebx, [ebx]
006BA40D 8BC3 mov eax, ebx
006BA40F 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_28
|
006BA411 FF5328 call dword ptr [ebx+$28]
006BA414 5E pop esi
006BA415 5B pop ebx
006BA416 C3 ret
*)
end;
procedure TfrmHQScroll.PaintBox1MouseDown(Sender : TObject);
begin
(*
006BA418 55 push ebp
006BA419 8BEC mov ebp, esp
006BA41B 83C4F8 add esp, -$08
006BA41E 53 push ebx
006BA41F 56 push esi
006BA420 57 push edi
006BA421 8BD8 mov ebx, eax
006BA423 8B750C mov esi, [ebp+$0C]
* Reference to field TfrmHQScroll.OFFS_0324 : Byte
|
006BA426 C6832403000001 mov byte ptr [ebx+$0324], $01
* Reference to field TfrmHQScroll.OFFS_0310
|
006BA42D 8B8310030000 mov eax, [ebx+$0310]
006BA433 8BD0 mov edx, eax
* Reference to field TfrmHQScroll.OFFS_02FC
|
006BA435 8BBBFC020000 mov edi, [ebx+$02FC]
006BA43B 2BD7 sub edx, edi
006BA43D 3BF2 cmp esi, edx
006BA43F 7F04 jnle 006BA445
006BA441 33F6 xor esi, esi
006BA443 EB20 jmp 006BA465
006BA445 2BF0 sub esi, eax
006BA447 03F7 add esi, edi
006BA449 8975FC mov [ebp-$04], esi
006BA44C DB45FC fild dword ptr [ebp-$04]
006BA44F 8945F8 mov [ebp-$08], eax
006BA452 DB45F8 fild dword ptr [ebp-$08]
006BA455 DEF9 fdivp st(1), st(0)
006BA457 83C4F4 add esp, -$0C
006BA45A DB3C24 fstp tbyte ptr [esp]
006BA45D 9B wait
* Reference to: Unit_00427704.Proc_00427820
|
006BA45E E8BDD3D6FF call 00427820
006BA463 8BF0 mov esi, eax
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006BA465 8BBB0C030000 mov edi, [ebx+$030C]
006BA46B 8B4708 mov eax, [edi+$08]
006BA46E 48 dec eax
006BA46F 3BF0 cmp esi, eax
006BA471 7F12 jnle 006BA485
006BA473 8BD6 mov edx, esi
006BA475 8BC7 mov eax, edi
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006BA477 E8A89BD5FF call 00414024
006BA47C 0FB700 movzx eax, word ptr [eax]
* Reference to field TfrmHQScroll.OFFS_0320
|
006BA47F 898320030000 mov [ebx+$0320], eax
006BA485 5F pop edi
006BA486 5E pop esi
006BA487 5B pop ebx
006BA488 59 pop ecx
006BA489 59 pop ecx
006BA48A 5D pop ebp
006BA48B C20C00 ret $000C
*)
end;
procedure TfrmHQScroll.FormClose(Sender : TObject);
begin
(*
006BA490 53 push ebx
006BA491 8BD8 mov ebx, eax
006BA493 C60102 mov byte ptr [ecx], $02
006BA496 33D2 xor edx, edx
* Reference to control TfrmHQScroll.Timer1 : TTimer
|
006BA498 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006BA49E E82D50DAFF call 0045F4D0
006BA4A3 33D2 xor edx, edx
* Reference to control TfrmHQScroll.Timer2 : TTimer
|
006BA4A5 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006BA4AB E82050DAFF call 0045F4D0
* Reference to field TfrmHQScroll.OFFS_0324 : Byte
|
006BA4B0 80BB2403000000 cmp byte ptr [ebx+$0324], $00
006BA4B7 7461 jz 006BA51A
* Reference to field TfrmHQScroll.OFFS_0320
|
006BA4B9 83BB20030000FF cmp dword ptr [ebx+$0320], -$01
006BA4C0 752B jnz 006BA4ED
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006BA4C2 83BB0C03000000 cmp dword ptr [ebx+$030C], +$00
006BA4C9 7422 jz 006BA4ED
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006BA4CB 8B830C030000 mov eax, [ebx+$030C]
* Reference to field TList.Count : Integer
|
006BA4D1 83780800 cmp dword ptr [eax+$08], +$00
006BA4D5 7E16 jle 006BA4ED
006BA4D7 33D2 xor edx, edx
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006BA4D9 8B830C030000 mov eax, [ebx+$030C]
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006BA4DF E8409BD5FF call 00414024
006BA4E4 0FB700 movzx eax, word ptr [eax]
* Reference to field TfrmHQScroll.OFFS_0320
|
006BA4E7 898320030000 mov [ebx+$0320], eax
006BA4ED 6A01 push $01
* Reference to THJ32Main instance
|
006BA4EF A158D37700 mov eax, dword ptr [$0077D358]
006BA4F4 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006BA4F6 E83D94D9FF call 00453938
006BA4FB 8BD0 mov edx, eax
* Reference to THJ32Main instance
|
006BA4FD A158D37700 mov eax, dword ptr [$0077D358]
006BA502 8B00 mov eax, [eax]
006BA504 B102 mov cl, $02
* Reference to : THJ32Main._PROC_006AC048()
|
006BA506 E83D1BFFFF call 006AC048
* Reference to field TfrmHQScroll.OFFS_0320
|
006BA50B 668B9320030000 mov dx, word ptr [ebx+$0320]
006BA512 8B08 mov ecx, [eax]
* Possible reference to virtual method THJ32Main.OFFS_0144
|
006BA514 FF9144010000 call dword ptr [ecx+$0144]
006BA51A A140D07700 mov eax, dword ptr [$0077D040]
006BA51F 33D2 xor edx, edx
006BA521 8910 mov [eax], edx
* Reference to field TfrmHQScroll.OFFS_0325 : Byte
|
006BA523 80BB2503000000 cmp byte ptr [ebx+$0325], $00
006BA52A 750C jnz 006BA538
* Reference to TApplication instance
|
006BA52C A100D17700 mov eax, dword ptr [$0077D100]
006BA531 8B00 mov eax, [eax]
* Reference to: forms.TApplication.Restore(TApplication);
|
006BA533 E880E8D9FF call 00458DB8
006BA538 5B pop ebx
006BA539 C3 ret
*)
end;
procedure TfrmHQScroll.KeyboardHook1HookProc(Sender : TObject);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -