📄 tdwin.pas
字号:
006BDACD 8BC7 mov eax, edi
* Reference to : TfrmTrend._PROC_006BDBF8()
|
006BDACF E824010000 call 006BDBF8
006BDAD4 E986000000 jmp 006BDB5F
006BDAD9 668B8774030000 mov ax, word ptr [edi+$0374]
006BDAE0 668945FE mov [ebp-$02], ax
006BDAE4 8B07 mov eax, [edi]
* Reference to : THJForm._PROC_007516C8()
|
006BDAE6 E8DD3B0900 call 007516C8
006BDAEB 8D55FE lea edx, [ebp-$02]
006BDAEE B901000000 mov ecx, $00000001
* Reference to: Unit_007605C8.Proc_007607FC
|
006BDAF3 E8042D0A00 call 007607FC
* Reference to pointer to GlobalVar_0078CF10
|
006BDAF8 A1DCCA7700 mov eax, dword ptr [$0077CADC]
006BDAFD 8B00 mov eax, [eax]
006BDAFF 668B55FE mov dx, word ptr [ebp-$02]
* Reference to: Unit_00762200.Proc_00762E10
|
006BDB03 E808530A00 call 00762E10
006BDB08 85C0 test eax, eax
006BDB0A 7453 jz 006BDB5F
006BDB0C 33C9 xor ecx, ecx
006BDB0E 668B55FE mov dx, word ptr [ebp-$02]
006BDB12 8BC7 mov eax, edi
* Reference to : TfrmTrend._PROC_006BDBF8()
|
006BDB14 E8DF000000 call 006BDBF8
006BDB19 EB44 jmp 006BDB5F
006BDB1B 8BC7 mov eax, edi
* Reference to : TfrmTrend._PROC_006BEA00()
|
006BDB1D E8DE0E0000 call 006BEA00
006BDB22 EB3B jmp 006BDB5F
006BDB24 8BC7 mov eax, edi
* Reference to : TfrmTrend._PROC_006BEAA0()
|
006BDB26 E8750F0000 call 006BEAA0
006BDB2B EB32 jmp 006BDB5F
006BDB2D 8B8770030000 mov eax, [edi+$0370]
006BDB33 80B87402000000 cmp byte ptr [eax+$0274], $00
006BDB3A 740C jz 006BDB48
006BDB3C 668B16 mov dx, word ptr [esi]
006BDB3F 8BCB mov ecx, ebx
* Reference to : TTrendGph._PROC_00748D14()
|
006BDB41 E8CEB10800 call 00748D14
006BDB46 EB17 jmp 006BDB5F
006BDB48 8B8778030000 mov eax, [edi+$0378]
006BDB4E 85C0 test eax, eax
006BDB50 740D jz 006BDB5F
006BDB52 668B16 mov dx, word ptr [esi]
006BDB55 8BCB mov ecx, ebx
006BDB57 8B18 mov ebx, [eax]
006BDB59 FF93E8000000 call dword ptr [ebx+$00E8]
006BDB5F 5F pop edi
006BDB60 5E pop esi
006BDB61 5B pop ebx
006BDB62 59 pop ecx
006BDB63 5D pop ebp
006BDB64 C20400 ret $0004
*)
end;
procedure TfrmTrend.FormResize(Sender : TObject);
begin
(*
006BE2D4 53 push ebx
006BE2D5 56 push esi
006BE2D6 8BD8 mov ebx, eax
* Reference to field TfrmTrend.OFFS_0320 : Byte
|
006BE2D8 80BB2003000000 cmp byte ptr [ebx+$0320], $00
006BE2DF 0F85A2000000 jnz 006BE387
* Reference to field TfrmTrend.OFFS_03AC
|
006BE2E5 8B83AC030000 mov eax, [ebx+$03AC]
006BE2EB 85C0 test eax, eax
006BE2ED 7419 jz 006BE308
* Reference to pointer to GlobalVar_007991D8
|
006BE2EF 8B15A0D37700 mov edx, [$0077D3A0]
006BE2F5 8B12 mov edx, [edx]
006BE2F7 FF7250 push dword ptr [edx+$50]
* Reference to field TfrmTrend.Height : Integer
|
006BE2FA 8B533C mov edx, [ebx+$3C]
006BE2FD 59 pop ecx
006BE2FE 2BD1 sub edx, ecx
006BE300 83EA0A sub edx, +$0A
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006BE303 E85CAFD7FF call 00439264
* Reference to field TfrmTrend.OFFS_0370
|
006BE308 8B8370030000 mov eax, [ebx+$0370]
006BE30E 83B8B001000000 cmp dword ptr [eax+$01B0], +$00
006BE315 7E70 jle 006BE387
* Reference to field TfrmTrend.OFFS_0380 : String
|
006BE317 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Unit_00409434.Proc_0040A8BC
|
006BE31D E89AC5D4FF call 0040A8BC
006BE322 84C0 test al, al
006BE324 7461 jz 006BE387
* Reference to field TfrmTrend.OFFS_0364
|
006BE326 8BB364030000 mov esi, [ebx+$0364]
* Reference to control TfrmTrend.Panel1 : TPanel
|
006BE32C 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TPanel.Width : Integer
|
006BE332 8B5038 mov edx, [eax+$38]
* Reference to field TfrmTrend.OFFS_0370
|
006BE335 8B8370030000 mov eax, [ebx+$0370]
006BE33B 2B9058020000 sub edx, dword ptr [eax+$0258]
006BE341 42 inc edx
006BE342 8BC6 mov eax, esi
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006BE344 E8FBAED7FF call 00439244
* Reference to control TfrmTrend.Panel1 : TPanel
|
006BE349 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TPanel.Height : Integer
|
006BE34F 8B503C mov edx, [eax+$3C]
006BE352 2B563C sub edx, dword ptr [esi+$3C]
006BE355 83EA28 sub edx, +$28
006BE358 8BC6 mov eax, esi
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006BE35A E805AFD7FF call 00439264
* Reference to pointer to GlobalVar_007991D8
|
006BE35F A1A0D37700 mov eax, dword ptr [$0077D3A0]
006BE364 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_00B5
|
006BE366 80B8B500000000 cmp byte ptr [eax+$00B5], $00
006BE36D 750B jnz 006BE37A
006BE36F 8BC3 mov eax, ebx
* Reference to : TfrmTrend.Proc_006BD3FC()
|
006BE371 E886F0FFFF call 006BD3FC
006BE376 84C0 test al, al
006BE378 7504 jnz 006BE37E
006BE37A 33D2 xor edx, edx
006BE37C EB02 jmp 006BE380
006BE37E B201 mov dl, $01
006BE380 8BC6 mov eax, esi
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006BE382 E8E1B5D7FF call 00439968
006BE387 5E pop esi
006BE388 5B pop ebx
006BE389 C3 ret
*)
end;
procedure TfrmTrend.mInfoPanelResize(Sender : TObject);
begin
(*
006BE38C 56 push esi
* Reference to field TfrmTrend.OFFS_0320 : Byte
|
006BE38D 80B82003000000 cmp byte ptr [eax+$0320], $00
006BE394 7514 jnz 006BE3AA
* Reference to field TfrmTrend.OFFS_0378
|
006BE396 8BB078030000 mov esi, [eax+$0378]
006BE39C 85F6 test esi, esi
006BE39E 740A jz 006BE3AA
006BE3A0 8BC6 mov eax, esi
006BE3A2 8B08 mov ecx, [eax]
006BE3A4 FF9128010000 call dword ptr [ecx+$0128]
006BE3AA 5E pop esi
006BE3AB C3 ret
*)
end;
procedure TfrmTrend.FormDestroy(Sender : TObject);
begin
(*
006BE6AC 53 push ebx
006BE6AD 8BD8 mov ebx, eax
* Reference to field TfrmTrend.OFFS_03AC
|
006BE6AF 8B83AC030000 mov eax, [ebx+$03AC]
006BE6B5 85C0 test eax, eax
006BE6B7 7405 jz 006BE6BE
* Reference to: system.TObject.Free(TObject);
|
006BE6B9 E80E4CD4FF call 004032CC
* Reference to field TfrmTrend.OFFS_0364
|
006BE6BE 8B8364030000 mov eax, [ebx+$0364]
* Reference to: system.TObject.Free(TObject);
|
006BE6C4 E8034CD4FF call 004032CC
006BE6C9 33D2 xor edx, edx
006BE6CB 8BC3 mov eax, ebx
* Reference to : TfrmTrend._PROC_006BF810()
|
006BE6CD E83E110000 call 006BF810
* Reference to field TfrmTrend.OFFS_0370
|
006BE6D2 8B8370030000 mov eax, [ebx+$0370]
* Reference to: system.TObject.Free(TObject);
|
006BE6D8 E8EF4BD4FF call 004032CC
* Reference to field TfrmTrend.OFFS_0378
|
006BE6DD 8B8378030000 mov eax, [ebx+$0378]
006BE6E3 85C0 test eax, eax
006BE6E5 7410 jz 006BE6F7
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006BE6E7 E8D079D9FF call 004560BC
* Reference to field TfrmTrend.OFFS_0378
|
006BE6EC 8B8378030000 mov eax, [ebx+$0378]
* Reference to: system.TObject.Free(TObject);
|
006BE6F2 E8D54BD4FF call 004032CC
006BE6F7 8BC3 mov eax, ebx
* Reference to : TfrmTrend.Proc_006BD84C()
|
006BE6F9 E84EF1FFFF call 006BD84C
* Reference to field TfrmTrend.OFFS_03A4
|
006BE6FE 8B83A4030000 mov eax, [ebx+$03A4]
006BE704 85C0 test eax, eax
006BE706 7405 jz 006BE70D
* Reference to: system.TObject.Free(TObject);
|
006BE708 E8BF4BD4FF call 004032CC
* Reference to field TfrmTrend.OFFS_0398
|
006BE70D 8B8398030000 mov eax, [ebx+$0398]
* Reference to: system.TObject.Free(TObject);
|
006BE713 E8B44BD4FF call 004032CC
* Reference to field TfrmTrend.OFFS_038C
|
006BE718 8B838C030000 mov eax, [ebx+$038C]
006BE71E 85C0 test eax, eax
006BE720 740D jz 006BE72F
* Reference to: system.@FreeMem;
|
006BE722 E85941D4FF call 00402880
006BE727 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_038C
|
006BE729 89838C030000 mov [ebx+$038C], eax
006BE72F 5B pop ebx
006BE730 C3 ret
*)
end;
procedure TfrmTrend.FormKeyPress(Sender : TObject);
begin
(*
006BEB40 56 push esi
006BEB41 8A11 mov dl, byte ptr [ecx]
006BEB43 80EA2A sub dl, $2A
006BEB46 740C jz 006BEB54
006BEB48 80EA05 sub dl, $05
006BEB4B 750E jnz 006BEB5B
* Reference to : TfrmTrend._PROC_006BEA00()
|
006BEB4D E8AEFEFFFF call 006BEA00
006BEB52 5E pop esi
006BEB53 C3 ret
* Reference to : TfrmTrend._PROC_006BEAA0()
|
006BEB54 E847FFFFFF call 006BEAA0
006BEB59 5E pop esi
006BEB5A C3 ret
* Reference to field TfrmTrend.OFFS_0378
|
006BEB5B 8BB078030000 mov esi, [eax+$0378]
006BEB61 85F6 test esi, esi
006BEB63 740C jz 006BEB71
006BEB65 8BD1 mov edx, ecx
006BEB67 8BC6 mov eax, esi
006BEB69 8B08 mov ecx, [eax]
006BEB6B FF9110010000 call dword ptr [ecx+$0110]
006BEB71 5E pop esi
006BEB72 C3 ret
*)
end;
procedure TfrmTrend.FormClose(Sender : TObject);
begin
(*
006BEB7C C60102 mov byte ptr [ecx], $02
006BEB7F C3 ret
*)
end;
procedure TfrmTrend.ADL1Click(Sender : TObject);
begin
(*
006BEB80 53 push ebx
006BEB81 56 push esi
006BEB82 51 push ecx
006BEB83 8BDA mov ebx, edx
006BEB85 8BF0 mov esi, eax
006BEB87 8BC3 mov eax, ebx
* Reference to class TMenuItem
|
006BEB89 8B1514764400 mov edx, [$00447614]
* Reference to: system.@AsClass;
|
006BEB8F E8C848D4FF call 0040345C
006BEB94 8A580C mov bl, byte ptr [eax+$0C]
006BEB97 80FBFF cmp bl, $FF
006BEB9A 7552 jnz 006BEBEE
* Reference to field TfrmTrend.OFFS_0360
|
006BEB9C 8B8660030000 mov eax, [esi+$0360]
006BEBA2 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00768200
|
006BEBA4 E857960A00 call 00768200
006BEBA9 84C0 test al, al
006BEBAB 7528 jnz 006BEBD5
* Reference to field TfrmTrend.OFFS_0370
|
006BEBAD 8B8670030000 mov eax, [esi+$0370]
006BEBB3 80B89402000001 cmp byte ptr [eax+$0294], $01
006BEBBA 7479 jz 006BEC35
006BEBBC 33C0 xor eax, eax
* Reference to field TfrmTrend.OFFS_037C : Byte
|
006BEBBE 88867C030000 mov [esi+$037C], al
006BEBC4 B101 mov cl, $01
006BEBC6 8BD0 mov edx, eax
* Reference to field TfrmTrend.OFFS_0370
|
006BEBC8 8B8670030000 mov eax, [esi+$0370]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -