📄 hqscroll.pas
字号:
006B9C14 DEF9 fdivp st(1), st(0)
006B9C16 83C4F4 add esp, -$0C
006B9C19 DB3C24 fstp tbyte ptr [esp]
006B9C1C 9B wait
* Reference to: Unit_00427704.Proc_00427820
|
006B9C1D E8FEDBD6FF call 00427820
006B9C22 8BF0 mov esi, eax
006B9C24 46 inc esi
* Reference to field TfrmHQScroll.OFFS_0314
|
006B9C25 89B314030000 mov [ebx+$0314], esi
006B9C2B 8BD6 mov edx, esi
006B9C2D 0FAF9310030000 imul edx, [ebx+$0310]
* Reference to field TfrmHQScroll.OFFS_02F8
|
006B9C34 8B83F8020000 mov eax, [ebx+$02F8]
006B9C3A 8B08 mov ecx, [eax]
006B9C3C FF5140 call dword ptr [ecx+$40]
* Reference to control TfrmHQScroll.PaintBox1 : TPaintBox
|
006B9C3F 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TPaintBox.Height : Integer
|
006B9C45 8B503C mov edx, [eax+$3C]
* Reference to field TfrmHQScroll.OFFS_02F8
|
006B9C48 8B83F8020000 mov eax, [ebx+$02F8]
006B9C4E 8B08 mov ecx, [eax]
006B9C50 FF5134 call dword ptr [ecx+$34]
006B9C53 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll._PROC_006B9BC0()
|
006B9C55 E866FFFFFF call 006B9BC0
* Reference to field TfrmHQScroll.OFFS_0314
|
006B9C5A 8BBB14030000 mov edi, [ebx+$0314]
006B9C60 4F dec edi
006B9C61 85FF test edi, edi
006B9C63 7C59 jl 006B9CBE
006B9C65 47 inc edi
006B9C66 B814000000 mov eax, $00000014
* Reference to: Unit_00409434.Proc_00409FF8
|
006B9C6B E88803D5FF call 00409FF8
006B9C70 8BF0 mov esi, eax
* Reference to field TfrmHQScroll.OFFS_0300
|
006B9C72 8B8300030000 mov eax, [ebx+$0300]
006B9C78 48 dec eax
* Reference to field TfrmHQScroll.OFFS_0308
|
006B9C79 3B8308030000 cmp eax, [ebx+$0308]
006B9C7F 7D08 jnl 006B9C89
006B9C81 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_0308
|
006B9C83 898308030000 mov [ebx+$0308], eax
006B9C89 8BC6 mov eax, esi
* Reference to field TfrmHQScroll.OFFS_0308
|
006B9C8B 8B9308030000 mov edx, [ebx+$0308]
006B9C91 C1E202 shl edx, $02
006B9C94 8D1492 lea edx, [edx+edx*4]
006B9C97 039304030000 add edx, [ebx+$0304]
* Reference to object THQScroll
|
006B9C9D 8B0D70966B00 mov ecx, [$006B9670]
* Reference to: system.@CopyRecord;
|
006B9CA3 E804B1D4FF call 00404DAC
006B9CA8 8BD6 mov edx, esi
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006B9CAA 8B830C030000 mov eax, [ebx+$030C]
* Reference to: classes.TList.Add(TList;Pointer):Integer;
|
006B9CB0 E8C3A1D5FF call 00413E78
006B9CB5 FF8308030000 inc dword ptr [ebx+$0308]
006B9CBB 4F dec edi
006B9CBC 75A8 jnz 006B9C66
006B9CBE 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll.Proc_006B9EC8()
|
006B9CC0 E803020000 call 006B9EC8
* Reference to control TfrmHQScroll.PaintBox1 : TPaintBox
|
006B9CC5 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.Refresh(TControl);
|
006B9CCB E85C02D8FF call 00439F2C
006B9CD0 5F pop edi
006B9CD1 5E pop esi
006B9CD2 5B pop ebx
006B9CD3 C3 ret
*)
end;
procedure TfrmHQScroll._PROC_006B9CDC(Sender : TObject);
begin
(*
006B9CDC 53 push ebx
006B9CDD 56 push esi
006B9CDE 57 push edi
006B9CDF 55 push ebp
006B9CE0 83C4F0 add esp, -$10
006B9CE3 8BF8 mov edi, eax
006B9CE5 8BAF00030000 mov ebp, [edi+$0300]
006B9CEB 4D dec ebp
006B9CEC 85ED test ebp, ebp
006B9CEE 0F8C80000000 jl 006B9D74
006B9CF4 45 inc ebp
006B9CF5 33DB xor ebx, ebx
006B9CF7 8B8704030000 mov eax, [edi+$0304]
006B9CFD 8BD3 mov edx, ebx
006B9CFF C1E202 shl edx, $02
006B9D02 8D1492 lea edx, [edx+edx*4]
006B9D05 03C2 add eax, edx
006B9D07 8BF0 mov esi, eax
006B9D09 33C0 xor eax, eax
* Reference to field TfrmHQScroll.Tag : Longint
|
006B9D0B 89460C mov [esi+$0C], eax
006B9D0E 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_0010
|
006B9D10 894610 mov [esi+$10], eax
006B9D13 8BCC mov ecx, esp
006B9D15 8B871C030000 mov eax, [edi+$031C]
006B9D1B 8BD3 mov edx, ebx
* Reference to: Unit_004AC2A8.Proc_004AC414
|
006B9D1D E8F226DFFF call 004AC414
006B9D22 837C240400 cmp dword ptr [esp+$04], +$00
006B9D27 7447 jz 006B9D70
006B9D29 8BCC mov ecx, esp
006B9D2B 8B871C030000 mov eax, [edi+$031C]
006B9D31 8BD3 mov edx, ebx
* Reference to: Unit_004AC2A8.Proc_004AC414
|
006B9D33 E8DC26DFFF call 004AC414
006B9D38 8B442404 mov eax, [esp+$04]
006B9D3C 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00767F18
|
006B9D3E E8D5E10A00 call 00767F18
006B9D43 8BD0 mov edx, eax
006B9D45 85D2 test edx, edx
006B9D47 7427 jz 006B9D70
* Reference to field TfrmHQScroll.OFFS_0017
|
006B9D49 8B4217 mov eax, [edx+$17]
* Reference to field TfrmHQScroll.Tag : Longint
|
006B9D4C 89460C mov [esi+$0C], eax
006B9D4F DB2D7C9D6B00 fld tbyte ptr [$006B9D7C]
006B9D55 D85A07 fcomp dword ptr [edx+$07]
006B9D58 DFE0 fstsw ax
006B9D5A 9E sahf
006B9D5B 7313 jnb 006B9D70
006B9D5D D94217 fld dword ptr [edx+$17]
006B9D60 D86207 fsub dword ptr [edx+$07]
006B9D63 D87207 fdiv dword ptr [edx+$07]
006B9D66 D80D889D6B00 fmul dword ptr [$006B9D88]
006B9D6C D95E10 fstp dword ptr [esi+$10]
006B9D6F 9B wait
006B9D70 43 inc ebx
006B9D71 4D dec ebp
006B9D72 7583 jnz 006B9CF7
006B9D74 83C410 add esp, +$10
006B9D77 5D pop ebp
006B9D78 5F pop edi
006B9D79 5E pop esi
006B9D7A 5B pop ebx
006B9D7B C3 ret
*)
end;
procedure TfrmHQScroll._PROC_006B9D7C(Sender : TObject);
begin
(*
006B9D7C 3BDF cmp ebx, edi
006B9D7E 4F dec edi
006B9D7F 8D976E1283F5 lea edx, [edi+$F583126E]
006B9D85 3F aas
006B9D86 0000 add [eax], al
*)
end;
procedure TfrmHQScroll._PROC_006B9D90(Sender : TObject);
begin
(*
006B9D90 83C4EC add esp, -$14
006B9D93 8BF0 mov esi, eax
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9D95 8B861C030000 mov eax, [esi+$031C]
006B9D9B 8B5808 mov ebx, [eax+$08]
* Reference to field TfrmHQScroll.OFFS_0300
|
006B9D9E 899E00030000 mov [esi+$0300], ebx
006B9DA4 85DB test ebx, ebx
006B9DA6 0F8E04010000 jle 006B9EB0
006B9DAC 8BC3 mov eax, ebx
006B9DAE C1E002 shl eax, $02
006B9DB1 8D0480 lea eax, [eax+eax*4]
* Reference to: Unit_00409434.Proc_00409FF8
|
006B9DB4 E83F02D5FF call 00409FF8
* Reference to field TfrmHQScroll.OFFS_0304
|
006B9DB9 898604030000 mov [esi+$0304], eax
* Reference to field TfrmHQScroll.OFFS_0300
|
006B9DBF 8BAE00030000 mov ebp, [esi+$0300]
006B9DC5 4D dec ebp
006B9DC6 85ED test ebp, ebp
006B9DC8 0F8CC8000000 jl 006B9E96
006B9DCE 45 inc ebp
006B9DCF 33FF xor edi, edi
006B9DD1 8BC7 mov eax, edi
006B9DD3 C1E002 shl eax, $02
006B9DD6 8D0480 lea eax, [eax+eax*4]
006B9DD9 038604030000 add eax, [esi+$0304]
006B9DDF 8BD8 mov ebx, eax
006B9DE1 8D4C2404 lea ecx, [esp+$04]
006B9DE5 8BD7 mov edx, edi
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9DE7 8B861C030000 mov eax, [esi+$031C]
* Reference to: Unit_004AC2A8.Proc_004AC414
|
006B9DED E82226DFFF call 004AC414
006B9DF2 668B442404 mov ax, word ptr [esp+$04]
006B9DF7 668903 mov [ebx], ax
006B9DFA 8D4B04 lea ecx, [ebx+$04]
* Reference to pointer to GlobalVar_0078CF10
|
006B9DFD A1DCCA7700 mov eax, dword ptr [$0077CADC]
006B9E02 8B00 mov eax, [eax]
006B9E04 668B13 mov dx, word ptr [ebx]
* Reference to: Unit_00762200.Proc_00762E04
|
006B9E07 E8F88F0A00 call 00762E04
006B9E0C 8D4308 lea eax, [ebx+$08]
006B9E0F 50 push eax
006B9E10 8D4C2404 lea ecx, [esp+$04]
* Reference to pointer to GlobalVar_0078CF10
|
006B9E14 A1DCCA7700 mov eax, dword ptr [$0077CADC]
006B9E19 8B00 mov eax, [eax]
006B9E1B 668B13 mov dx, word ptr [ebx]
* Reference to: Unit_00762200.Proc_00762DD4
|
006B9E1E E8B18F0A00 call 00762DD4
006B9E23 33C0 xor eax, eax
006B9E25 89430C mov [ebx+$0C], eax
006B9E28 33C0 xor eax, eax
006B9E2A 894310 mov [ebx+$10], eax
006B9E2D 8D4C2404 lea ecx, [esp+$04]
006B9E31 8BD7 mov edx, edi
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9E33 8B861C030000 mov eax, [esi+$031C]
* Reference to: Unit_004AC2A8.Proc_004AC414
|
006B9E39 E8D625DFFF call 004AC414
006B9E3E 837C240800 cmp dword ptr [esp+$08], +$00
006B9E43 7449 jz 006B9E8E
006B9E45 8D4C2404 lea ecx, [esp+$04]
006B9E49 8BD7 mov edx, edi
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9E4B 8B861C030000 mov eax, [esi+$031C]
* Reference to: Unit_004AC2A8.Proc_004AC414
|
006B9E51 E8BE25DFFF call 004AC414
006B9E56 8B442408 mov eax, [esp+$08]
006B9E5A 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00767F18
|
006B9E5C E8B7E00A00 call 00767F18
006B9E61 8BD0 mov edx, eax
006B9E63 85D2 test edx, edx
006B9E65 7427 jz 006B9E8E
006B9E67 8B4217 mov eax, [edx+$17]
006B9E6A 89430C mov [ebx+$0C], eax
006B9E6D DB2DB89E6B00 fld tbyte ptr [$006B9EB8]
006B9E73 D85A07 fcomp dword ptr [edx+$07]
006B9E76 DFE0 fstsw ax
006B9E78 9E sahf
006B9E79 7313 jnb 006B9E8E
006B9E7B D94217 fld dword ptr [edx+$17]
006B9E7E D86207 fsub dword ptr [edx+$07]
006B9E81 D87207 fdiv dword ptr [edx+$07]
006B9E84 D80DC49E6B00 fmul dword ptr [$006B9EC4]
006B9E8A D95B10 fstp dword ptr [ebx+$10]
006B9E8D 9B wait
006B9E8E 47 inc edi
006B9E8F 4D dec ebp
006B9E90 0F853BFFFFFF jnz 006B9DD1
006B9E96 B201 mov dl, $01
* Reference to control TfrmHQScroll.Timer1 : TTimer
|
006B9E98 8B86D4020000 mov eax, [esi+$02D4]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B9E9E E82D56DAFF call 0045F4D0
006B9EA3 B201 mov dl, $01
* Reference to control TfrmHQScroll.Timer2 : TTimer
|
006B9EA5 8B86E0020000 mov eax, [esi+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B9EAB E82056DAFF call 0045F4D0
006B9EB0 83C414 add esp, +$14
006B9EB3 5D pop ebp
006B9EB4 5F pop edi
006B9EB5 5E pop esi
006B9EB6 5B pop ebx
006B9EB7 C3 ret
*)
end;
procedure TfrmHQScroll._PROC_006B9EB8(Sender : TObject);
begin
(*
006B9EB8 3BDF cmp ebx, edi
006B9EBA 4F dec edi
006B9EBB 8D976E1283F5 lea edx, [edi+$F583126E]
006B9EC1 3F aas
006B9EC2 0000 add [eax], al
*)
end;
procedure TfrmHQScroll._PROC_006B9EC9(Sender : TObject);
begin
(*
006B9EC9 8BEC mov ebp, esp
006B9ECB 83C4BC add esp, -$44
006B9ECE 53 push ebx
006B9ECF 56 push esi
006B9ED0 57 push edi
006B9ED1 33D2 xor edx, edx
006B9ED3 8955BC mov [ebp-$44], edx
006B9ED6 8955C0 mov [ebp-$40], edx
006B9ED9 8955C4 mov [ebp-$3C], edx
006B9EDC 8955E4 mov [ebp-$1C], edx
006B9EDF 8955E0 mov [ebp-$20], edx
006B9EE2 8955C8 mov [ebp-$38], edx
006B9EE5 8BF0 mov esi, eax
006B9EE7 33C0 xor eax, eax
006B9EE9 55 push ebp
* Possible String Reference to: '閚樤⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -