📄 fund.pas
字号:
* Reference to field TfrmFund.OFFS_0364 : Byte
|
0069D690 C68364030000FF mov byte ptr [ebx+$0364], $FF
* Reference to field TfrmFund.OFFS_0365 : Byte
|
0069D697 C6836503000000 mov byte ptr [ebx+$0365], $00
0069D69E 33D2 xor edx, edx
* Reference to control TfrmFund.TabSet1 : TTabSet
|
0069D6A0 8B835C030000 mov eax, [ebx+$035C]
* Reference to: tabs.TTabSet.SetTabIndex(TTabSet;Integer);
|
0069D6A6 E8A958ECFF call 00562F54
0069D6AB 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03C8
|
0069D6AD 8983C8030000 mov [ebx+$03C8], eax
0069D6B3 83C410 add esp, +$10
0069D6B6 5F pop edi
0069D6B7 5E pop esi
0069D6B8 5B pop ebx
0069D6B9 C3 ret
*)
end;
procedure TfrmFund.FormKeyDown(Sender : TObject);
begin
(*
0069DD20 55 push ebp
0069DD21 8BEC mov ebp, esp
0069DD23 53 push ebx
0069DD24 56 push esi
0069DD25 8BF1 mov esi, ecx
0069DD27 8BD8 mov ebx, eax
0069DD29 668B06 mov ax, word ptr [esi]
0069DD2C 6683E81B sub ax, +$1B
0069DD30 7408 jz 0069DD3A
0069DD32 6683E855 sub ax, +$55
0069DD36 740B jz 0069DD43
0069DD38 EB1A jmp 0069DD54
0069DD3A 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0069DD3C E87B83DBFF call 004560BC
0069DD41 EB11 jmp 0069DD54
* Reference to TApplication instance
|
0069DD43 A100D17700 mov eax, dword ptr [$0077D100]
0069DD48 8B00 mov eax, [eax]
0069DD4A BAF1070000 mov edx, $000007F1
* Reference to: forms.TApplication.HelpContext(TApplication;THelpContext):Boolean;
|
0069DD4F E820BBDBFF call 00459874
* Reference to control TfrmFund.PanelJGHQ : TPanel
|
0069DD54 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TPanel.Visible : Boolean
|
0069DD5A 80784700 cmp byte ptr [eax+$47], $00
0069DD5E 0F84ED020000 jz 0069E051
0069DD64 0FB706 movzx eax, word ptr [esi]
0069DD67 83C0F3 add eax, -$0D
0069DD6A 83F81B cmp eax, +$1B
0069DD6D 0F87DE020000 jnbe 0069E051
0069DD73 8A8080DD6900 mov al, byte ptr [eax+$69DD80]
0069DD79 FF24859CDD6900 jmp dword ptr [$69DD9C+eax*4]
0069DD80 0100 add [eax], eax
0069DD82 0000 add [eax], al
*)
end;
procedure TfrmFund.FormClose(Sender : TObject);
begin
(*
0069E058 C60102 mov byte ptr [ecx], $02
0069E05B C3 ret
*)
end;
procedure TfrmFund.FormDestroy(Sender : TObject);
begin
(*
0069E05C 53 push ebx
0069E05D 8BD8 mov ebx, eax
* Reference to field TfrmFund.OFFS_0360
|
0069E05F 8B8360030000 mov eax, [ebx+$0360]
* Reference to: system.TObject.Free(TObject);
|
0069E065 E86252D6FF call 004032CC
* Reference to field TfrmFund.OFFS_0370
|
0069E06A 8B8370030000 mov eax, [ebx+$0370]
* Reference to: system.TObject.Free(TObject);
|
0069E070 E85752D6FF call 004032CC
* Reference to field TfrmFund.OFFS_03CC
|
0069E075 8B83CC030000 mov eax, [ebx+$03CC]
* Reference to: system.TObject.Free(TObject);
|
0069E07B E84C52D6FF call 004032CC
* Reference to field TfrmFund.OFFS_03A8
|
0069E080 8B83A8030000 mov eax, [ebx+$03A8]
0069E086 85C0 test eax, eax
0069E088 7405 jz 0069E08F
* Reference to: system.@FreeMem;
|
0069E08A E8F147D6FF call 00402880
* Reference to field TfrmFund.OFFS_037C
|
0069E08F 8B837C030000 mov eax, [ebx+$037C]
0069E095 85C0 test eax, eax
0069E097 7405 jz 0069E09E
* Reference to: system.@FreeMem;
|
0069E099 E8E247D6FF call 00402880
* Reference to field TfrmFund.OFFS_0380
|
0069E09E 8B8380030000 mov eax, [ebx+$0380]
0069E0A4 85C0 test eax, eax
0069E0A6 7405 jz 0069E0AD
* Reference to: system.@FreeMem;
|
0069E0A8 E8D347D6FF call 00402880
* Reference to field TfrmFund.OFFS_0398
|
0069E0AD 8B8398030000 mov eax, [ebx+$0398]
0069E0B3 85C0 test eax, eax
0069E0B5 7405 jz 0069E0BC
* Reference to: system.@FreeMem;
|
0069E0B7 E8C447D6FF call 00402880
* Reference to field TfrmFund.OFFS_03A0
|
0069E0BC 8B83A0030000 mov eax, [ebx+$03A0]
0069E0C2 85C0 test eax, eax
0069E0C4 7405 jz 0069E0CB
* Reference to: system.@FreeMem;
|
0069E0C6 E8B547D6FF call 00402880
* Reference to field TfrmFund.OFFS_039C
|
0069E0CB 8B839C030000 mov eax, [ebx+$039C]
0069E0D1 85C0 test eax, eax
0069E0D3 7405 jz 0069E0DA
* Reference to: system.@FreeMem;
|
0069E0D5 E8A647D6FF call 00402880
* Reference to field TfrmFund.OFFS_03A4
|
0069E0DA 8B83A4030000 mov eax, [ebx+$03A4]
0069E0E0 85C0 test eax, eax
0069E0E2 7405 jz 0069E0E9
* Reference to: system.@FreeMem;
|
0069E0E4 E89747D6FF call 00402880
0069E0E9 5B pop ebx
0069E0EA C3 ret
*)
end;
procedure TfrmFund.PaintBoxJGPaint(Sender : TObject);
begin
(*
* Reference to : TfrmFund._PROC_0069E0EC()
|
0069E854 E893F8FFFF call 0069E0EC
0069E859 C3 ret
*)
end;
procedure TfrmFund.PaintBoxJGMouseDown(Sender : TObject);
begin
(*
0069E85C 55 push ebp
0069E85D 8BEC mov ebp, esp
0069E85F 83C4F8 add esp, -$08
0069E862 53 push ebx
0069E863 56 push esi
0069E864 8BD9 mov ebx, ecx
0069E866 8BF0 mov esi, eax
0069E868 8D45FC lea eax, [ebp-$04]
0069E86B 50 push eax
0069E86C 8D45F8 lea eax, [ebp-$08]
0069E86F 50 push eax
0069E870 8B4D08 mov ecx, [ebp+$08]
0069E873 8B550C mov edx, [ebp+$0C]
* Reference to field TfrmFund.OFFS_0360
|
0069E876 8B8660030000 mov eax, [esi+$0360]
* Reference to: Unit_005B2404.Proc_005B2ED0
|
0069E87C E84F46F1FF call 005B2ED0
0069E881 84DB test bl, bl
0069E883 0F85A5000000 jnz 0069E92E
0069E889 837DF8FF cmp dword ptr [ebp-$08], -$01
0069E88D 0F8F8D000000 jnle 0069E920
* Reference to field TfrmFund.OFFS_0364 : Byte
|
0069E893 80BE6403000000 cmp byte ptr [esi+$0364], $00
0069E89A 7537 jnz 0069E8D3
* Reference to field TfrmFund.OFFS_03AC : Byte
|
0069E89C 8B86AC030000 mov eax, [esi+$03AC]
0069E8A2 3B45FC cmp eax, [ebp-$04]
0069E8A5 7517 jnz 0069E8BE
* Reference to field TfrmFund.OFFS_03B0 : Byte
|
0069E8A7 8B86B0030000 mov eax, [esi+$03B0]
0069E8AD 40 inc eax
0069E8AE B903000000 mov ecx, $00000003
0069E8B3 99 cdq
0069E8B4 F7F9 idiv ecx
* Reference to field TfrmFund.OFFS_03B0 : Byte
|
0069E8B6 8996B0030000 mov [esi+$03B0], edx
0069E8BC EB4A jmp 0069E908
0069E8BE 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmFund.OFFS_03AC : Byte
|
0069E8C1 8986AC030000 mov [esi+$03AC], eax
* Reference to field TfrmFund.OFFS_03B0 : Byte
|
0069E8C7 C786B003000001000000 mov dword ptr [esi+$03B0], $00000001
0069E8D1 EB35 jmp 0069E908
* Reference to field TfrmFund.OFFS_03B4 : Byte
|
0069E8D3 8B86B4030000 mov eax, [esi+$03B4]
0069E8D9 3B45FC cmp eax, [ebp-$04]
0069E8DC 7517 jnz 0069E8F5
* Reference to field TfrmFund.OFFS_03B8 : Byte
|
0069E8DE 8B86B8030000 mov eax, [esi+$03B8]
0069E8E4 40 inc eax
0069E8E5 B903000000 mov ecx, $00000003
0069E8EA 99 cdq
0069E8EB F7F9 idiv ecx
* Reference to field TfrmFund.OFFS_03B8 : Byte
|
0069E8ED 8996B8030000 mov [esi+$03B8], edx
0069E8F3 EB13 jmp 0069E908
0069E8F5 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmFund.OFFS_03B4 : Byte
|
0069E8F8 8986B4030000 mov [esi+$03B4], eax
* Reference to field TfrmFund.OFFS_03B8 : Byte
|
0069E8FE C786B803000001000000 mov dword ptr [esi+$03B8], $00000001
0069E908 8BC6 mov eax, esi
* Reference to : TfrmFund._PROC_0069E938()
|
0069E90A E829000000 call 0069E938
0069E90F 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_036C
|
0069E911 89866C030000 mov [esi+$036C], eax
0069E917 8BC6 mov eax, esi
* Reference to : TfrmFund._PROC_0069E0EC()
|
0069E919 E8CEF7FFFF call 0069E0EC
0069E91E EB0E jmp 0069E92E
0069E920 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmFund.OFFS_0360
|
0069E923 8B8660030000 mov eax, [esi+$0360]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069E929 E80644F1FF call 005B2D34
0069E92E 5E pop esi
0069E92F 5B pop ebx
0069E930 59 pop ecx
0069E931 59 pop ecx
0069E932 5D pop ebp
0069E933 C20C00 ret $000C
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -