📄 reason.pas
字号:
* Reference to field TfrmReason.OFFS_0304 : String
|
0069B571 8B8B04030000 mov ecx, [ebx+$0304]
* Possible String Reference to: 'Notice'
|
0069B577 BAE4B66900 mov edx, $0069B6E4
0069B57C 8BC6 mov eax, esi
0069B57E 8B18 mov ebx, [eax]
0069B580 FF13 call dword ptr [ebx]
0069B582 8BC6 mov eax, esi
* Reference to: system.TObject.Free(TObject);
|
0069B584 E8437DD6FF call 004032CC
0069B589 E9FC000000 jmp 0069B68A
* Reference to pointer to GlobalVar_00799260
|
0069B58E 8B1538CA7700 mov edx, [$0077CA38]
0069B594 8B12 mov edx, [edx]
0069B596 8D45F0 lea eax, [ebp-$10]
* Possible String Reference to: 'fxs\link.ini'
|
0069B599 B9F4B66900 mov ecx, $0069B6F4
* Reference to: system.@LStrCat3;
|
0069B59E E8398ED6FF call 004043DC
0069B5A3 8B45F0 mov eax, [ebp-$10]
* Reference to: Unit_00409434.Proc_0040A8BC
|
0069B5A6 E811F3D6FF call 0040A8BC
0069B5AB 84C0 test al, al
0069B5AD 0F84D7000000 jz 0069B68A
* Reference to pointer to GlobalVar_00799260
|
0069B5B3 8B1538CA7700 mov edx, [$0077CA38]
0069B5B9 8B12 mov edx, [edx]
0069B5BB 8D45EC lea eax, [ebp-$14]
* Possible String Reference to: 'Consult\link.ini'
|
0069B5BE B9C8B66900 mov ecx, $0069B6C8
* Reference to: system.@LStrCat3;
|
0069B5C3 E8148ED6FF call 004043DC
0069B5C8 8B4DEC mov ecx, [ebp-$14]
0069B5CB B201 mov dl, $01
* Reference to class TIniFile
|
0069B5CD A1085A4600 mov eax, dword ptr [$00465A08]
* Reference to: Unit_00465948.Proc_00465B58
|
0069B5D2 E881A5DCFF call 00465B58
0069B5D7 8BF0 mov esi, eax
0069B5D9 6A00 push $00
0069B5DB 8D45FC lea eax, [ebp-$04]
0069B5DE 50 push eax
* Reference to control RxGradientCaption1 : TRxGradientCaption
|
0069B5DF 8B8B04030000 mov ecx, [ebx+$0304]
* Possible String Reference to: 'Notice'
|
0069B5E5 BAE4B66900 mov edx, $0069B6E4
0069B5EA 8BC6 mov eax, esi
0069B5EC 8B18 mov ebx, [eax]
0069B5EE FF13 call dword ptr [ebx]
0069B5F0 8BC6 mov eax, esi
* Reference to: system.TObject.Free(TObject);
|
0069B5F2 E8D57CD6FF call 004032CC
0069B5F7 E98E000000 jmp 0069B68A
* Reference to pointer to GlobalVar_00799260
|
0069B5FC 8B1538CA7700 mov edx, [$0077CA38]
0069B602 8B12 mov edx, [edx]
0069B604 8D45E8 lea eax, [ebp-$18]
* Possible String Reference to: 'Fund\link.ini'
|
0069B607 B90CB76900 mov ecx, $0069B70C
* Reference to: system.@LStrCat3;
|
0069B60C E8CB8DD6FF call 004043DC
0069B611 8B45E8 mov eax, [ebp-$18]
* Reference to: Unit_00409434.Proc_0040A8BC
|
0069B614 E8A3F2D6FF call 0040A8BC
0069B619 84C0 test al, al
0069B61B 746D jz 0069B68A
* Reference to pointer to GlobalVar_00799260
|
0069B61D 8B1538CA7700 mov edx, [$0077CA38]
0069B623 8B12 mov edx, [edx]
0069B625 8D45E4 lea eax, [ebp-$1C]
* Possible String Reference to: 'Fund\link.ini'
|
0069B628 B90CB76900 mov ecx, $0069B70C
* Reference to: system.@LStrCat3;
|
0069B62D E8AA8DD6FF call 004043DC
0069B632 8B4DE4 mov ecx, [ebp-$1C]
0069B635 B201 mov dl, $01
* Reference to class TIniFile
|
0069B637 A1085A4600 mov eax, dword ptr [$00465A08]
* Reference to: Unit_00465948.Proc_00465B58
|
0069B63C E817A5DCFF call 00465B58
0069B641 8BF0 mov esi, eax
* Reference to control FindButton : N.A.
|
0069B643 8A8300030000 mov al, byte ptr [ebx+$0300]
0069B649 2C02 sub al, $02
0069B64B 7406 jz 0069B653
0069B64D FEC8 dec al
0069B64F 741B jz 0069B66C
0069B651 EB30 jmp 0069B683
0069B653 6A00 push $00
0069B655 8D45FC lea eax, [ebp-$04]
0069B658 50 push eax
* Reference to control RxGradientCaption1 : TRxGradientCaption
|
0069B659 8B8B04030000 mov ecx, [ebx+$0304]
* Possible String Reference to: 'Fund'
|
0069B65F BA24B76900 mov edx, $0069B724
0069B664 8BC6 mov eax, esi
0069B666 8B18 mov ebx, [eax]
0069B668 FF13 call dword ptr [ebx]
0069B66A EB17 jmp 0069B683
0069B66C 6A00 push $00
0069B66E 8D45FC lea eax, [ebp-$04]
0069B671 50 push eax
* Reference to control RxGradientCaption1 : TRxGradientCaption
|
0069B672 8B8B04030000 mov ecx, [ebx+$0304]
* Possible String Reference to: 'Stock'
|
0069B678 BA34B76900 mov edx, $0069B734
0069B67D 8BC6 mov eax, esi
0069B67F 8B18 mov ebx, [eax]
0069B681 FF13 call dword ptr [ebx]
0069B683 8BC6 mov eax, esi
* Reference to: system.TObject.Free(TObject);
|
0069B685 E8427CD6FF call 004032CC
0069B68A 837DFC00 cmp dword ptr [ebp-$04], +$00
0069B68E 7408 jz 0069B698
0069B690 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00651A88.Proc_006543DC
|
0069B693 E8448DFBFF call 006543DC
0069B698 33C0 xor eax, eax
0069B69A 5A pop edx
0069B69B 59 pop ecx
0069B69C 59 pop ecx
0069B69D 648910 mov fs:[eax], edx
****** FINALLY
|
0069B6A0 68BAB66900 push $0069B6BA
0069B6A5 8D45E4 lea eax, [ebp-$1C]
0069B6A8 BA07000000 mov edx, $00000007
* Reference to: system.@LStrArrayClr;
|
0069B6AD E8668AD6FF call 00404118
0069B6B2 C3 ret
* Reference to: system.@HandleFinally;
|
0069B6B3 E97483D6FF jmp 00403A2C
0069B6B8 EBEB jmp 0069B6A5
****** END
|
0069B6BA 5E pop esi
0069B6BB 5B pop ebx
0069B6BC 8BE5 mov esp, ebp
0069B6BE 5D pop ebp
0069B6BF C3 ret
*)
end;
procedure TfrmReason.PaintBox1Paint(Sender : TObject);
begin
(*
* Reference to field TfrmReason.OFFS_02FC
|
0069B73C 83B8FC02000000 cmp dword ptr [eax+$02FC], +$00
0069B743 7405 jz 0069B74A
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B745 E8AAF0FFFF call 0069A7F4
0069B74A C3 ret
*)
end;
procedure TfrmReason.PaintBox1MouseDown(Sender : TObject);
begin
(*
0069B74C 55 push ebp
0069B74D 8BEC mov ebp, esp
0069B74F 83C4F8 add esp, -$08
0069B752 53 push ebx
0069B753 56 push esi
0069B754 8BD9 mov ebx, ecx
0069B756 8BF0 mov esi, eax
0069B758 8D45FC lea eax, [ebp-$04]
0069B75B 50 push eax
0069B75C 8D45F8 lea eax, [ebp-$08]
0069B75F 50 push eax
0069B760 8B4D08 mov ecx, [ebp+$08]
0069B763 8B550C mov edx, [ebp+$0C]
* Reference to field TfrmReason.OFFS_02FC
|
0069B766 8B86FC020000 mov eax, [esi+$02FC]
* Reference to: Unit_005B2404.Proc_005B2ED0
|
0069B76C E85F77F1FF call 005B2ED0
0069B771 84DB test bl, bl
0069B773 7561 jnz 0069B7D6
0069B775 837DF8FF cmp dword ptr [ebp-$08], -$01
0069B779 7F4D jnle 0069B7C8
* Reference to field TfrmReason.OFFS_0324
|
0069B77B 8B8624030000 mov eax, [esi+$0324]
0069B781 3B45FC cmp eax, [ebp-$04]
0069B784 7517 jnz 0069B79D
* Reference to field TfrmReason.OFFS_0328 : Byte
|
0069B786 8B8628030000 mov eax, [esi+$0328]
0069B78C 40 inc eax
0069B78D B903000000 mov ecx, $00000003
0069B792 99 cdq
0069B793 F7F9 idiv ecx
* Reference to field TfrmReason.OFFS_0328 : Byte
|
0069B795 899628030000 mov [esi+$0328], edx
0069B79B EB13 jmp 0069B7B0
0069B79D 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmReason.OFFS_0324
|
0069B7A0 898624030000 mov [esi+$0324], eax
* Reference to field TfrmReason.OFFS_0328 : Byte
|
0069B7A6 C7862803000001000000 mov dword ptr [esi+$0328], $00000001
0069B7B0 8BC6 mov eax, esi
* Reference to : TfrmReason._PROC_0069A774()
|
0069B7B2 E8BDEFFFFF call 0069A774
0069B7B7 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B7B9 898608030000 mov [esi+$0308], eax
0069B7BF 8BC6 mov eax, esi
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B7C1 E82EF0FFFF call 0069A7F4
0069B7C6 EB0E jmp 0069B7D6
0069B7C8 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmReason.OFFS_02FC
|
0069B7CB 8B86FC020000 mov eax, [esi+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B7D1 E85E75F1FF call 005B2D34
0069B7D6 5E pop esi
0069B7D7 5B pop ebx
0069B7D8 59 pop ecx
0069B7D9 59 pop ecx
0069B7DA 5D pop ebp
0069B7DB C20C00 ret $000C
*)
end;
procedure TfrmReason.FormMouseWheel(Sender : TObject);
begin
(*
0069BBB8 55 push ebp
0069BBB9 8BEC mov ebp, esp
0069BBBB 83C4F8 add esp, -$08
0069BBBE 53 push ebx
0069BBBF 56 push esi
0069BBC0 57 push edi
0069BBC1 8B750C mov esi, [ebp+$0C]
0069BBC4 8D7DF8 lea edi, [ebp-$08]
0069BBC7 A5 movsd
0069BBC8 A5 movsd
0069BBC9 8BD8 mov ebx, eax
0069BBCB 8B4508 mov eax, [ebp+$08]
0069BBCE C60001 mov byte ptr [eax], $01
0069BBD1 837D1000 cmp dword ptr [ebp+$10], +$00
0069BBD5 7E2E jle 0069BC05
0069BBD7 6A00 push $00
0069BBD9 6A21 push $21
0069BBDB 6800010000 push $00000100
0069BBE0 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -