📄 tdwin.pas
字号:
* Reference to field TfrmTrend.OFFS_0398
|
006BD6C6 89B398030000 mov [ebx+$0398], esi
* Possible String Reference to: '宋体'
|
006BD6CC BA44D86B00 mov edx, $006BD844
* Reference to field TListBox.Font : TFont
|
006BD6D1 8B4658 mov eax, [esi+$58]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
006BD6D4 E80B0AD6FF call 0041E0E4
006BD6D9 BA09000000 mov edx, $00000009
* Reference to field TListBox.Font : TFont
|
006BD6DE 8B4658 mov eax, [esi+$58]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006BD6E1 E8760AD6FF call 0041E15C
006BD6E6 8BD3 mov edx, ebx
006BD6E8 8BC6 mov eax, esi
006BD6EA 8B08 mov ecx, [eax]
* Reference to method TListBox.SetParent(TWinControl)
|
006BD6EC FF5160 call dword ptr [ecx+$60]
006BD6EF 33D2 xor edx, edx
006BD6F1 8BC6 mov eax, esi
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006BD6F3 E870C2D7FF call 00439968
006BD6F8 BAC8000000 mov edx, $000000C8
006BD6FD 8BC6 mov eax, esi
* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
006BD6FF E884BBD7FF call 00439288
006BD704 6A0C push $0C
* Reference to field TListBox.Canvas : TCanvas
|
006BD706 8B86F8010000 mov eax, [esi+$01F8]
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006BD70C E8371DD6FF call 0041F448
006BD711 50 push eax
* Reference to: gdi32.GetDeviceCaps()
|
006BD712 E849AED4FF call 00408560
006BD717 83F810 cmp eax, +$10
006BD71A 7D0E jnl 006BD72A
006BD71C BAFFFF0000 mov edx, $0000FFFF
006BD721 8BC6 mov eax, esi
* Reference to: controls.TControl.SetColor(TControl;TColor);
|
006BD723 E8B4C4D7FF call 00439BDC
006BD728 EB0C jmp 006BD736
006BD72A BAFFFF8000 mov edx, $0080FFFF
006BD72F 8BC6 mov eax, esi
* Reference to: controls.TControl.SetColor(TControl;TColor);
|
006BD731 E8A6C4D7FF call 00439BDC
006BD736 B202 mov dl, $02
006BD738 8BC6 mov eax, esi
* Reference to: stdctrls.TCustomListBox.SetStyle(TCustomListBox;TListBoxStyle);
|
006BD73A E8E156D7FF call 00432E20
006BD73F 33D2 xor edx, edx
006BD741 8BC6 mov eax, esi
* Reference to: stdctrls.TCustomListBox.SetBorderStyle(TCustomListBox;TBorderStyle);
|
006BD743 E80857D7FF call 00432E50
* Reference to field TListBox.OFFS_01B4
|
006BD748 899EB4010000 mov [esi+$01B4], ebx
* Reference to field TListBox.OnKeyDown : TKeyEvent
|
006BD74E C786B001000088F86B00 mov dword ptr [esi+$01B0], $006BF888
* Reference to field TListBox.OFFS_01BC
|
006BD758 899EBC010000 mov [esi+$01BC], ebx
* Reference to field TListBox.OnKeyPress : TKeyPressEvent
|
006BD75E C786B801000080F96B00 mov dword ptr [esi+$01B8], $006BF980
* Reference to field TListBox.OFFS_022C
|
006BD768 899E2C020000 mov [esi+$022C], ebx
* Reference to field TListBox.OnMeasureItem : TMeasureItemEvent
|
006BD76E C7862802000070F96B00 mov dword ptr [esi+$0228], $006BF970
* Reference to field TListBox.OFFS_00BC
|
006BD778 899EBC000000 mov [esi+$00BC], ebx
* Reference to field TListBox.OnMouseDown : TMouseEvent
|
006BD77E C786B800000060F86B00 mov dword ptr [esi+$00B8], $006BF860
006BD788 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_03A4
|
006BD78A 8983A4030000 mov [ebx+$03A4], eax
006BD790 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_0394
|
006BD792 898394030000 mov [ebx+$0394], eax
006BD798 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_038C
|
006BD79A 89838C030000 mov [ebx+$038C], eax
* Reference to field TfrmTrend.OFFS_039C : Byte
|
006BD7A0 C6839C03000000 mov byte ptr [ebx+$039C], $00
* Reference to field TfrmTrend.OFFS_039D : Byte
|
006BD7A7 C6839D03000000 mov byte ptr [ebx+$039D], $00
* Reference to field TfrmTrend.OFFS_03A0
|
006BD7AE C783A0030000FFFFFFFF mov dword ptr [ebx+$03A0], $FFFFFFFF
006BD7B8 8BC3 mov eax, ebx
006BD7BA 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmTrend.OFFS_0178
|
006BD7BC FF9278010000 call dword ptr [edx+$0178]
006BD7C2 8BC3 mov eax, ebx
006BD7C4 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmTrend.OFFS_01E0
|
006BD7C6 FF92E0010000 call dword ptr [edx+$01E0]
006BD7CC 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_03AC
|
006BD7CE 8983AC030000 mov [ebx+$03AC], eax
* Reference to pointer to GlobalVar_007991D8
|
006BD7D4 A1A0D37700 mov eax, dword ptr [$0077D3A0]
006BD7D9 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0054
|
006BD7DB 83785400 cmp dword ptr [eax+$54], +$00
006BD7DF 7E44 jle 006BD825
006BD7E1 8BCB mov ecx, ebx
006BD7E3 B201 mov dl, $01
* Reference to class TfrmLabelTab
|
006BD7E5 A1A8947400 mov eax, dword ptr [$007494A8]
* Reference to: forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
006BD7EA E8ED4AD9FF call 004522DC
006BD7EF 8BF0 mov esi, eax
* Reference to field TfrmTrend.OFFS_03AC
|
006BD7F1 89B3AC030000 mov [ebx+$03AC], esi
006BD7F7 8BD3 mov edx, ebx
006BD7F9 8BC6 mov eax, esi
006BD7FB 8B08 mov ecx, [eax]
* Reference to method TfrmLabelTab.SetParent(TWinControl)
|
006BD7FD FF5160 call dword ptr [ecx+$60]
006BD800 33D2 xor edx, edx
* Reference to field TfrmTrend.OFFS_03AC
|
006BD802 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006BD808 E837BAD7FF call 00439244
006BD80D 8BD3 mov edx, ebx
* Reference to field TfrmTrend.OFFS_03AC
|
006BD80F 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TfrmLabelTab.Proc_007496A0()
|
006BD815 E886BE0800 call 007496A0
* Reference to field TfrmTrend.OFFS_03AC
|
006BD81A 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to: forms.TCustomForm.Show(TCustomForm);
|
006BD820 E84F8AD9FF call 00456274
006BD825 5E pop esi
006BD826 5B pop ebx
006BD827 C3 ret
*)
end;
procedure TfrmTrend.FormKeyDown(Sender : TObject);
begin
(*
006BD8F4 55 push ebp
006BD8F5 8BEC mov ebp, esp
006BD8F7 51 push ecx
006BD8F8 53 push ebx
006BD8F9 56 push esi
006BD8FA 57 push edi
006BD8FB 8BF1 mov esi, ecx
006BD8FD 8BF8 mov edi, eax
006BD8FF 8B5D08 mov ebx, [ebp+$08]
006BD902 F6C304 test bl, $04
006BD905 7509 jnz 006BD910
006BD907 8BC7 mov eax, edi
* Reference to : TfrmTrend.Proc_006BD84C()
|
006BD909 E83EFFFFFF call 006BD84C
006BD90E EB1E jmp 006BD92E
006BD910 8B87A8030000 mov eax, [edi+$03A8]
006BD916 85C0 test eax, eax
006BD918 7414 jz 006BD92E
* Reference to field TfrmTrend.Visible : Boolean
|
006BD91A 80784700 cmp byte ptr [eax+$47], $00
006BD91E 740E jz 006BD92E
006BD920 8BD6 mov edx, esi
006BD922 8BCB mov ecx, ebx
* Reference to : TLifeBoard._PROC_0075B91C()
|
006BD924 E8F3DF0900 call 0075B91C
006BD929 E931020000 jmp 006BDB5F
006BD92E 66833E0D cmp word ptr [esi], +$0D
006BD932 7524 jnz 006BD958
006BD934 83BFA403000000 cmp dword ptr [edi+$03A4], +$00
006BD93B 741B jz 006BD958
006BD93D 8BD6 mov edx, esi
006BD93F 8BCB mov ecx, ebx
006BD941 8B87A4030000 mov eax, [edi+$03A4]
* Reference to : TLifeBoard._PROC_0075B91C()
|
006BD947 E8D0DF0900 call 0075B91C
006BD94C 8BC7 mov eax, edi
* Reference to : TfrmTrend.Proc_006BD878()
|
006BD94E E825FFFFFF call 006BD878
006BD953 E907020000 jmp 006BDB5F
006BD958 66833E0D cmp word ptr [esi], +$0D
006BD95C 7509 jnz 006BD967
006BD95E 80BF9C03000000 cmp byte ptr [edi+$039C], $00
006BD965 7409 jz 006BD970
006BD967 83BF6003000000 cmp dword ptr [edi+$0360], +$00
006BD96E 7517 jnz 006BD987
006BD970 6A00 push $00
* Reference to THJ32Main instance
|
006BD972 A158D37700 mov eax, dword ptr [$0077D358]
006BD977 8B00 mov eax, [eax]
006BD979 33C9 xor ecx, ecx
006BD97B 8BD7 mov edx, edi
* Reference to : THJ32Main._PROC_006AC048()
|
006BD97D E8C6E6FEFF call 006AC048
006BD982 E9D8010000 jmp 006BDB5F
006BD987 83BF6003000000 cmp dword ptr [edi+$0360], +$00
006BD98E 0F84CB010000 jz 006BDB5F
006BD994 66833E0D cmp word ptr [esi], +$0D
006BD998 7406 jz 006BD9A0
006BD99A 66833E6E cmp word ptr [esi], +$6E
006BD99E 7515 jnz 006BD9B5
006BD9A0 80BF9C03000000 cmp byte ptr [edi+$039C], $00
006BD9A7 740C jz 006BD9B5
006BD9A9 8BC7 mov eax, edi
* Reference to : TfrmTrend.Proc_006BF670()
|
006BD9AB E8C01C0000 call 006BF670
006BD9B0 E9AA010000 jmp 006BDB5F
006BD9B5 8B87A4030000 mov eax, [edi+$03A4]
006BD9BB 85C0 test eax, eax
006BD9BD 7426 jz 006BD9E5
* Reference to field TfrmTrend.Visible : Boolean
|
006BD9BF 80784700 cmp byte ptr [eax+$47], $00
006BD9C3 7420 jz 006BD9E5
006BD9C5 66833E1B cmp word ptr [esi], +$1B
006BD9C9 750C jnz 006BD9D7
006BD9CB 8BC7 mov eax, edi
* Reference to : TfrmTrend.Proc_006BD878()
|
006BD9CD E8A6FEFFFF call 006BD878
006BD9D2 E988010000 jmp 006BDB5F
006BD9D7 8BD6 mov edx, esi
006BD9D9 8BCB mov ecx, ebx
* Reference to : TLifeBoard._PROC_0075B91C()
|
006BD9DB E83CDF0900 call 0075B91C
006BD9E0 E97A010000 jmp 006BDB5F
006BD9E5 0FB706 movzx eax, word ptr [esi]
006BD9E8 83C0E5 add eax, -$1B
006BD9EB 83F80C cmp eax, +$0C
006BD9EE 0F8739010000 jnbe 006BDB2D
006BD9F4 FF2485FBD96B00 jmp dword ptr [$6BD9FB+eax*4]
006BD9FB 2F das
006BD9FC DA6B00 fisubr dword ptr [ebx+$00]
006BD9FF 2DDB6B002D sub eax, $2D006BDB
006BDA04 DB6B00 fld tbyte ptr [ebx+$00]
006BDA07 2DDB6B002D sub eax, $2D006BDB
006BDA0C DB6B00 fld tbyte ptr [ebx+$00]
006BDA0F 2DDB6B0092 sub eax, $92006BDB
006BDA14 DA6B00 fisubr dword ptr [ebx+$00]
006BDA17 D9DA DB $D9, $DA //
006BDA19 6B0024 imul eax, [eax], $24
006BDA1C DB6B00 fld tbyte ptr [ebx+$00]
006BDA1F 1BDB sbb ebx, ebx
006BDA21 6B007D imul eax, [eax], $7D
006BDA24 DA6B00 fisubr dword ptr [ebx+$00]
006BDA27 2DDB6B007D sub eax, $7D006BDB
006BDA2C DA6B00 fisubr dword ptr [ebx+$00]
006BDA2F 8B8770030000 mov eax, [edi+$0370]
006BDA35 80B87402000000 cmp byte ptr [eax+$0274], $00
006BDA3C 742E jz 006BDA6C
006BDA3E C6879C03000000 mov byte ptr [edi+$039C], $00
006BDA45 C787A0030000FFFFFFFF mov dword ptr [edi+$03A0], $FFFFFFFF
006BDA4F 33D2 xor edx, edx
006BDA51 8B8798030000 mov eax, [edi+$0398]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006BDA57 E80CBFD7FF call 00439968
006BDA5C 8B8770030000 mov eax, [edi+$0370]
* Reference to: TDGraph.Proc_007487EC
|
006BDA62 E885AD0800 call 007487EC
006BDA67 E9F3000000 jmp 006BDB5F
006BDA6C 8BC7 mov eax, edi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006BDA6E E84986D9FF call 004560BC
* Reference to: Unit_0062F8F8.Proc_0062F908
|
006BDA73 E8901EF7FF call 0062F908
006BDA78 E9E2000000 jmp 006BDB5F
006BDA7D 668B16 mov dx, word ptr [esi]
006BDA80 8BCB mov ecx, ebx
006BDA82 8B8770030000 mov eax, [edi+$0370]
* Reference to : TTrendGph._PROC_00748D14()
|
006BDA88 E887B20800 call 00748D14
006BDA8D E9CD000000 jmp 006BDB5F
006BDA92 668B8774030000 mov ax, word ptr [edi+$0374]
006BDA99 668945FE mov [ebp-$02], ax
006BDA9D 8B07 mov eax, [edi]
* Reference to : THJForm._PROC_007516C8()
|
006BDA9F E8243C0900 call 007516C8
006BDAA4 8D55FE lea edx, [ebp-$02]
006BDAA7 83C9FF or ecx, -$01
* Reference to: Unit_007605C8.Proc_007607FC
|
006BDAAA E84D2D0A00 call 007607FC
* Reference to pointer to GlobalVar_0078CF10
|
006BDAAF A1DCCA7700 mov eax, dword ptr [$0077CADC]
006BDAB4 8B00 mov eax, [eax]
006BDAB6 668B55FE mov dx, word ptr [ebp-$02]
* Reference to: Unit_00762200.Proc_00762E10
|
006BDABA E851530A00 call 00762E10
006BDABF 85C0 test eax, eax
006BDAC1 0F8498000000 jz 006BDB5F
006BDAC7 33C9 xor ecx, ecx
006BDAC9 668B55FE mov dx, word ptr [ebp-$02]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -