📄 tdwin.pas
字号:
* Reference to : TTrendGph._PROC_00748F30()
|
006BEBCE E85DA30800 call 00748F30
006BEBD3 EB60 jmp 006BEC35
006BEBD5 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_037D : Byte
|
006BEBD7 88867D030000 mov [esi+$037D], al
006BEBDD B101 mov cl, $01
006BEBDF 8BD0 mov edx, eax
* Reference to field TfrmTrend.OFFS_0370
|
006BEBE1 8B8670030000 mov eax, [esi+$0370]
* Reference to : TTrendGph._PROC_00748F30()
|
006BEBE7 E844A30800 call 00748F30
006BEBEC EB47 jmp 006BEC35
006BEBEE C6042400 mov byte ptr [esp], $00
006BEBF2 001C24 add [esp], bl
* Reference to field TfrmTrend.OFFS_0360
|
006BEBF5 8B8660030000 mov eax, [esi+$0360]
006BEBFB 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00768200
|
006BEBFD E8FE950A00 call 00768200
006BEC02 84C0 test al, al
006BEC04 750B jnz 006BEC11
006BEC06 83C302 add ebx, +$02
* Reference to field TfrmTrend.OFFS_037C : Byte
|
006BEC09 889E7C030000 mov [esi+$037C], bl
006BEC0F EB16 jmp 006BEC27
006BEC11 80FB02 cmp bl, $02
006BEC14 7405 jz 006BEC1B
006BEC16 80FB03 cmp bl, $03
006BEC19 7503 jnz 006BEC1E
006BEC1B 4B dec ebx
006BEC1C EB03 jmp 006BEC21
006BEC1E 80EB02 sub bl, $02
* Reference to field TfrmTrend.OFFS_037D : Byte
|
006BEC21 889E7D030000 mov [esi+$037D], bl
006BEC27 8A1424 mov dl, byte ptr [esp]
* Reference to field TfrmTrend.OFFS_0370
|
006BEC2A 8B8670030000 mov eax, [esi+$0370]
* Reference to : TTrendGph._PROC_00748ECC()
|
006BEC30 E897A20800 call 00748ECC
006BEC35 5A pop edx
006BEC36 5E pop esi
006BEC37 5B pop ebx
006BEC38 C3 ret
*)
end;
procedure TfrmTrend.N9Click(Sender : TObject);
begin
(*
006BEC3C 55 push ebp
006BEC3D 8BEC mov ebp, esp
006BEC3F 83C4F8 add esp, -$08
006BEC42 53 push ebx
006BEC43 33C9 xor ecx, ecx
006BEC45 894DFC mov [ebp-$04], ecx
006BEC48 8BD8 mov ebx, eax
006BEC4A 33C0 xor eax, eax
006BEC4C 55 push ebp
006BEC4D 689EEC6B00 push $006BEC9E
***** TRY
|
006BEC52 64FF30 push dword ptr fs:[eax]
006BEC55 648920 mov fs:[eax], esp
006BEC58 8D45FC lea eax, [ebp-$04]
006BEC5B 50 push eax
006BEC5C 8D4DFB lea ecx, [ebp-$05]
* Reference to pointer to GlobalVar_0078CF10
|
006BEC5F A1DCCA7700 mov eax, dword ptr [$0077CADC]
006BEC64 8B00 mov eax, [eax]
* Reference to field TfrmTrend.OFFS_0374
|
006BEC66 668B9374030000 mov dx, word ptr [ebx+$0374]
* Reference to: Unit_00762200.Proc_00762DD4
|
006BEC6D E862410A00 call 00762DD4
006BEC72 84C0 test al, al
006BEC74 7412 jz 006BEC88
* Reference to pointer to GlobalVar_0078CF1C
|
006BEC76 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
006BEC7B 8B00 mov eax, [eax]
006BEC7D 8B4DFC mov ecx, [ebp-$04]
006BEC80 8A55FB mov dl, byte ptr [ebp-$05]
* Reference to: Unit_0075FA78.Proc_0075FFF0
|
006BEC83 E868130A00 call 0075FFF0
006BEC88 33C0 xor eax, eax
006BEC8A 5A pop edx
006BEC8B 59 pop ecx
006BEC8C 59 pop ecx
006BEC8D 648910 mov fs:[eax], edx
****** FINALLY
|
006BEC90 68A5EC6B00 push $006BECA5
006BEC95 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006BEC98 E85754D4FF call 004040F4
006BEC9D C3 ret
* Reference to: system.@HandleFinally;
|
006BEC9E E9894DD4FF jmp 00403A2C
006BECA3 EBF0 jmp 006BEC95
****** END
|
006BECA5 5B pop ebx
006BECA6 59 pop ecx
006BECA7 59 pop ecx
006BECA8 5D pop ebp
006BECA9 C3 ret
*)
end;
procedure TfrmTrend.N91Click(Sender : TObject);
begin
(*
006BECAC 55 push ebp
006BECAD 8BEC mov ebp, esp
006BECAF 83C4F8 add esp, -$08
006BECB2 53 push ebx
006BECB3 33C9 xor ecx, ecx
006BECB5 894DFC mov [ebp-$04], ecx
006BECB8 8BD8 mov ebx, eax
006BECBA 33C0 xor eax, eax
006BECBC 55 push ebp
006BECBD 680EED6B00 push $006BED0E
***** TRY
|
006BECC2 64FF30 push dword ptr fs:[eax]
006BECC5 648920 mov fs:[eax], esp
006BECC8 8D45FC lea eax, [ebp-$04]
006BECCB 50 push eax
006BECCC 8D4DFB lea ecx, [ebp-$05]
* Reference to pointer to GlobalVar_0078CF10
|
006BECCF A1DCCA7700 mov eax, dword ptr [$0077CADC]
006BECD4 8B00 mov eax, [eax]
* Reference to field TfrmTrend.OFFS_0374
|
006BECD6 668B9374030000 mov dx, word ptr [ebx+$0374]
* Reference to: Unit_00762200.Proc_00762DD4
|
006BECDD E8F2400A00 call 00762DD4
006BECE2 84C0 test al, al
006BECE4 7412 jz 006BECF8
* Reference to pointer to GlobalVar_0078CF1C
|
006BECE6 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
006BECEB 8B00 mov eax, [eax]
006BECED 8B4DFC mov ecx, [ebp-$04]
006BECF0 8A55FB mov dl, byte ptr [ebp-$05]
* Reference to: Unit_0075FA78.Proc_00760178
|
006BECF3 E880140A00 call 00760178
006BECF8 33C0 xor eax, eax
006BECFA 5A pop edx
006BECFB 59 pop ecx
006BECFC 59 pop ecx
006BECFD 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]脣烂岪'
|
006BED00 6815ED6B00 push $006BED15
006BED05 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006BED08 E8E753D4FF call 004040F4
006BED0D C3 ret
* Reference to: system.@HandleFinally;
|
006BED0E E9194DD4FF jmp 00403A2C
006BED13 EBF0 jmp 006BED05
****** END
|
006BED15 5B pop ebx
006BED16 59 pop ecx
006BED17 59 pop ecx
006BED18 5D pop ebp
006BED19 C3 ret
*)
end;
procedure TfrmTrend.Timer2Timer(Sender : TObject);
begin
(*
006BF7B0 53 push ebx
006BF7B1 8BD8 mov ebx, eax
* Reference to control TfrmTrend.mInfoPanel : TPanel
|
006BF7B3 8B8338030000 mov eax, [ebx+$0338]
* Reference to field TPanel.Visible : Boolean
|
006BF7B9 80784700 cmp byte ptr [eax+$47], $00
006BF7BD 740D jz 006BF7CC
* Reference to control TfrmTrend.PopupMenu1 : TPopupMenu
|
006BF7BF 8B933C030000 mov edx, [ebx+$033C]
006BF7C5 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetPopupMenu(TControl;TPopupMenu);
|
006BF7C7 E83CA2D7FF call 00439A08
006BF7CC 33D2 xor edx, edx
* Reference to control TfrmTrend.Timer2 : TTimer
|
006BF7CE 8B8344030000 mov eax, [ebx+$0344]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006BF7D4 E8F7FCD9FF call 0045F4D0
006BF7D9 5B pop ebx
006BF7DA C3 ret
*)
end;
procedure TfrmTrend.N9AdvancedDrawItem(Sender : TObject);
begin
(*
006BF7DC 55 push ebp
006BF7DD 8BEC mov ebp, esp
006BF7DF 83C4F0 add esp, -$10
006BF7E2 56 push esi
006BF7E3 57 push edi
006BF7E4 8B750C mov esi, [ebp+$0C]
006BF7E7 8D7DF0 lea edi, [ebp-$10]
006BF7EA 51 push ecx
006BF7EB B904000000 mov ecx, $00000004
006BF7F0 F3 rep
006BF7F1 A5 movsd
006BF7F2 59 pop ecx
006BF7F3 8D45F0 lea eax, [ebp-$10]
006BF7F6 50 push eax
006BF7F7 668B4508 mov ax, word ptr [ebp+$08]
006BF7FB 50 push eax
* Reference to THJ32Main instance
|
006BF7FC A158D37700 mov eax, dword ptr [$0077D358]
006BF801 8B00 mov eax, [eax]
* Reference to : THJ32Main.N211AdvancedDrawItem()
|
006BF803 E8100DFFFF call 006B0518
006BF808 5F pop edi
006BF809 5E pop esi
006BF80A 8BE5 mov esp, ebp
006BF80C 5D pop ebp
006BF80D C20800 ret $0008
*)
end;
procedure TfrmTrend.Timer3Timer(Sender : TObject);
begin
(*
006BF988 C3 ret
*)
end;
procedure TfrmTrend.PopupMenu1Popup(Sender : TObject);
begin
(*
006BF98C 53 push ebx
006BF98D 56 push esi
006BF98E 8BD8 mov ebx, eax
* Reference to control TfrmTrend.PopupMenu1 : TPopupMenu
|
006BF990 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TPopupMenu.Items : TMenuItem
|
006BF996 8B4028 mov eax, [eax+$28]
* Reference to: menus.TMenuItem.GetCount(TMenuItem):Integer;
|
006BF999 E80EB0D8FF call 0044A9AC
006BF99E 8BF0 mov esi, eax
006BF9A0 4E dec esi
006BF9A1 85F6 test esi, esi
006BF9A3 7C14 jl 006BF9B9
006BF9A5 46 inc esi
* Reference to control TfrmTrend.PopupMenu1 : TPopupMenu
|
006BF9A6 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TPopupMenu.Items : TMenuItem
|
006BF9AC 8B4028 mov eax, [eax+$28]
006BF9AF 33D2 xor edx, edx
* Reference to: menus.TMenuItem.Delete(TMenuItem;Integer);
|
006BF9B1 E832B2D8FF call 0044ABE8
006BF9B6 4E dec esi
006BF9B7 75ED jnz 006BF9A6
006BF9B9 6A00 push $00
006BF9BB 6A00 push $00
* Reference to control TfrmTrend.PopupMenu1 : TPopupMenu
|
006BF9BD 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TPopupMenu.Items : TMenuItem
|
006BF9C3 8B4828 mov ecx, [eax+$28]
006BF9C6 33D2 xor edx, edx
* Possible String Reference to: '画面切换'
|
006BF9C8 B8A8FB6B00 mov eax, $006BFBA8
* Reference to: Unit_00651A88.Proc_006540E8
|
006BF9CD E81647F9FF call 006540E8
006BF9D2 8BF0 mov esi, eax
006BF9D4 6A00 push $00
006BF9D6 6A00 push $00
006BF9D8 8BCE mov ecx, esi
006BF9DA 33D2 xor edx, edx
* Possible String Reference to: '实时走势图'
|
006BF9DC B8BCFB6B00 mov eax, $006BFBBC
* Reference to: Unit_00651A88.Proc_006540E8
|
006BF9E1 E80247F9FF call 006540E8
006BF9E6 33D2 xor edx, edx
* Reference to: menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
006BF9E8 E8EBAED8FF call 0044A8D8
* Reference to THJ32Main instance
|
006BF9ED A158D37700 mov eax, dword ptr [$0077D358]
006BF9F2 8B00 mov eax, [eax]
006BF9F4 50 push eax
* Possible String Reference to: 'SVWU嬟嬸j'
|
006BF9F5 6844B96A00 push $006AB944
006BF9FA 8BCE mov ecx, esi
006BF9FC 33D2 xor edx, edx
* Possible String Reference to: 'K 线分析图'
|
006BF9FE B8D0FB6B00 mov eax, $006BFBD0
* Reference to: Unit_00651A88.Proc_006540E8
|
006BFA03 E8E046F9FF call 006540E8
* Reference to THJ32Main instance
|
006BFA08 A158D37700 mov eax, dword ptr [$0077D358]
006BFA0D 8B00 mov eax, [eax]
006BFA0F 50 push eax
* Possible String Reference to: '栾⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -