tdwin.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

unit TDWin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmTrend=class(TForm)
    mInfoPanel: TPanel;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer1: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    TabSet1: TTabSet;
    OFFS_037C: N.A.;
    OFFS_037D: N.A.;
    OFFS_0390: N.A.;
    OFFS_039C: N.A.;
    OFFS_039D: N.A.;
    OFFS_0320: N.A.;
    OFFS_00E9: N.A.;
    OFFS_0380: N.A.;
    procedure mFormCreate(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormResize(Sender : TObject);
    procedure mInfoPanelResize(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FormKeyPress(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure ADL1Click(Sender : TObject);
    procedure N9Click(Sender : TObject);
    procedure N91Click(Sender : TObject);
    procedure Timer2Timer(Sender : TObject);
    procedure N9AdvancedDrawItem(Sender : TObject);
    procedure Timer3Timer(Sender : TObject);
    procedure PopupMenu1Popup(Sender : TObject);
    procedure FormKeyUp(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure Timer4Timer(Sender : TObject);
    procedure Panel1Resize(Sender : TObject);
    procedure Timer5Timer(Sender : TObject);
    procedure TabSet1Click(Sender : TObject);
    procedure _PROC_006BD484(Sender : TObject);
    procedure _PROC_006BD4FC(Sender : TObject);
    procedure _PROC_006BD851(Sender : TObject);
    procedure _PROC_006BD862(Sender : TObject);
    procedure _PROC_006BD86F(Sender : TObject);
    procedure _PROC_006BD87D(Sender : TObject);
    procedure _PROC_006BDB68(Sender : TObject);
    procedure _PROC_006BDB78(Sender : TObject);
    procedure _PROC_006BDBA8(Sender : TObject);
    procedure _PROC_006BDBCC(Sender : TObject);
    procedure _PROC_006BDBF8(Sender : TObject);
    procedure _PROC_006BE066(Sender : TObject);
    procedure _PROC_006BE074(Sender : TObject);
    procedure _PROC_006BE0C0(Sender : TObject);
    procedure _PROC_006BE10C(Sender : TObject);
    procedure _PROC_006BE184(Sender : TObject);
    procedure _PROC_006BE188(Sender : TObject);
    procedure _PROC_006BE18C(Sender : TObject);
    procedure _PROC_006BE270(Sender : TObject);
    procedure _PROC_006BE3AC(Sender : TObject);
    procedure _PROC_006BE470(Sender : TObject);
    procedure _PROC_006BE5D4(Sender : TObject);
    procedure _PROC_006BE61C(Sender : TObject);
    procedure _PROC_006BE634(Sender : TObject);
    procedure _PROC_006BE64C(Sender : TObject);
    procedure _PROC_006BE734(Sender : TObject);
    procedure _PROC_006BE921(Sender : TObject);
    procedure _PROC_006BE950(Sender : TObject);
    procedure _PROC_006BE98C(Sender : TObject);
    procedure _PROC_006BE9A4(Sender : TObject);
    procedure _PROC_006BE9D8(Sender : TObject);
    procedure _PROC_006BEA00(Sender : TObject);
    procedure _PROC_006BEAA0(Sender : TObject);
    procedure _PROC_006BEB74(Sender : TObject);
    procedure _PROC_006BEB78(Sender : TObject);
    procedure _PROC_006BED1C(Sender : TObject);
    procedure _PROC_006BED20(Sender : TObject);
    procedure _PROC_006BEEF0(Sender : TObject);
    procedure _PROC_006BEF88(Sender : TObject);
    procedure _PROC_006BEFE4(Sender : TObject);
    procedure _PROC_006BF404(Sender : TObject);
    procedure _PROC_006BF671(Sender : TObject);
    procedure _PROC_006BF794(Sender : TObject);
    procedure _PROC_006BF810(Sender : TObject);
    procedure _PROC_006BF860(Sender : TObject);
    procedure _PROC_006BF889(Sender : TObject);
    procedure _PROC_006BF970(Sender : TObject);
    procedure _PROC_006BF980(Sender : TObject);
    procedure _PROC_006BFCC5(Sender : TObject);
    procedure _PROC_006BFD5C(Sender : TObject);
    procedure _PROC_006BFDC4(Sender : TObject);
    procedure _PROC_006BFE44(Sender : TObject);
    procedure _PROC_006BFE50(Sender : TObject);
    procedure _PROC_006C0059(Sender : TObject);
    procedure _PROC_006C00B8(Sender : TObject);
    procedure _PROC_006C0108(Sender : TObject);
    procedure _PROC_006C0194(Sender : TObject);
    procedure _PROC_006C01B8(Sender : TObject);
    procedure _PROC_006C01F4(Sender : TObject);
    procedure _PROC_006C0218(Sender : TObject);
    procedure _PROC_006C04C8(Sender : TObject);
    procedure _PROC_006C0730(Sender : TObject);
    procedure _PROC_006C0760(Sender : TObject);
    procedure Proc_006BD84C(Sender : TObject);
    procedure Proc_006BD878(Sender : TObject);
    procedure Proc_006BF670(Sender : TObject);
    procedure Proc_006BD3FC(Sender : TObject);
    procedure Proc_006BF888(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmTrend: TfrmTrend;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmTrend.mFormCreate(Sender : TObject);
begin
(*
006BD514   53                     push    ebx
006BD515   56                     push    esi
006BD516   8BD8                   mov     ebx, eax

* Reference to control TfrmTrend.TabSet1 : TTabSet
|
006BD518   8B8358030000           mov     eax, [ebx+$0358]

* Reference to field TTabSet.Tabs : TStrings
|
006BD51E   8B8000020000           mov     eax, [eax+$0200]

* Possible String Reference to: 'Topview历史'
|
006BD524   BA30D86B00             mov     edx, $006BD830
006BD529   8B08                   mov     ecx, [eax]

* Reference to method TStrings.Add(string)
|
006BD52B   FF5134                 call    dword ptr [ecx+$34]
006BD52E   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006BD530   E8EB65D9FF             call    00453B20

* Reference to field TfrmTrend.Tag : Longint
|
006BD535   8B400C                 mov     eax, [eax+$0C]

* Possible String Reference to: '宋体'
|
006BD538   BA44D86B00             mov     edx, $006BD844

* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
006BD53D   E8A20BD6FF             call    0041E0E4
006BD542   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006BD544   E8D765D9FF             call    00453B20

* Reference to field TfrmTrend.Tag : Longint
|
006BD549   8B400C                 mov     eax, [eax+$0C]
006BD54C   BA09000000             mov     edx, $00000009

* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006BD551   E8060CD6FF             call    0041E15C
006BD556   BA64000000             mov     edx, $00000064

* Reference to control TfrmTrend.Timer1 : TTimer
|
006BD55B   8B834C030000           mov     eax, [ebx+$034C]

* Reference to: extctrls.TTimer.SetInterval(TTimer;Cardinal);
|
006BD561   E87A1FDAFF             call    0045F4E0
006BD566   B202                   mov     dl, $02
006BD568   8BC3                   mov     eax, ebx

* Reference to: HJForm.Proc_00750F8C
|
006BD56A   E81D3A0900             call    00750F8C

* Reference to THJ32Main instance
|
006BD56F   A158D37700             mov     eax, dword ptr [$0077D358]
006BD574   8B00                   mov     eax, [eax]

* Reference to control THJ32Main.ImageList1 : TImageList
|
006BD576   8B9070060000           mov     edx, [eax+$0670]

* Reference to control TfrmTrend.PopupMenu1 : TPopupMenu
|
006BD57C   8B833C030000           mov     eax, [ebx+$033C]

* Reference to: menus.TMenu.SetImages(TMenu;TCustomImageList);
|
006BD582   E811EFD8FF             call    0044C498

* Reference to field TfrmTrend.OFFS_037C : Byte
|
006BD587   C6837C03000000         mov     byte ptr [ebx+$037C], $00

* Reference to field TfrmTrend.OFFS_037D : Byte
|
006BD58E   C6837D03000000         mov     byte ptr [ebx+$037D], $00
006BD595   8BC3                   mov     eax, ebx
006BD597   8B10                   mov     edx, [eax]

* Possible reference to virtual method TfrmTrend.OFFS_01E4
|
006BD599   FF92E4010000           call    dword ptr [edx+$01E4]

* Reference to field TfrmTrend.OFFS_0378
|
006BD59F   898378030000           mov     [ebx+$0378], eax
006BD5A5   6A01                   push    $01
006BD5A7   6A01                   push    $01
006BD5A9   8BCB                   mov     ecx, ebx
006BD5AB   B201                   mov     dl, $01

* Reference to class TTrendGph
|
006BD5AD   A174397400             mov     eax, dword ptr [$00743974]

* Reference to: TDGraph.Proc_00743A8C
|
006BD5B2   E8D5640800             call    00743A8C
006BD5B7   8BF0                   mov     esi, eax

* Reference to field TfrmTrend.OFFS_0370
|
006BD5B9   89B370030000           mov     [ebx+$0370], esi

* Reference to control TfrmTrend.Panel1 : TPanel
|
006BD5BF   8B9340030000           mov     edx, [ebx+$0340]
006BD5C5   8BC6                   mov     eax, esi
006BD5C7   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTrendGph.OFFS_60
|
006BD5C9   FF5160                 call    dword ptr [ecx+$60]
006BD5CC   B205                   mov     dl, $05
006BD5CE   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
006BD5D0   E867BAD7FF             call    0043903C
006BD5D5   8BCB                   mov     ecx, ebx
006BD5D7   B201                   mov     dl, $01

* Reference to class TTopExpGraph
|
006BD5D9   A190966C00             mov     eax, dword ptr [$006C9690]

* Reference to: TopGraph.Proc_006CA8CC
|
006BD5DE   E8E9D20000             call    006CA8CC
006BD5E3   8BF0                   mov     esi, eax

* Reference to field TfrmTrend.OFFS_0388
|
006BD5E5   89B388030000           mov     [ebx+$0388], esi

* Reference to control TfrmTrend.Panel1 : TPanel
|
006BD5EB   8B9340030000           mov     edx, [ebx+$0340]
006BD5F1   8BC6                   mov     eax, esi
006BD5F3   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTopExpGraph.OFFS_60
|
006BD5F5   FF5160                 call    dword ptr [ecx+$60]
006BD5F8   B202                   mov     dl, $02
006BD5FA   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
006BD5FC   E83BBAD7FF             call    0043903C
006BD601   BAC8000000             mov     edx, $000000C8
006BD606   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
006BD608   E89BBCD7FF             call    004392A8
006BD60D   33D2                   xor     edx, edx
006BD60F   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006BD611   E852C3D7FF             call    00439968
006BD616   8BD3                   mov     edx, ebx
006BD618   8BC6                   mov     eax, esi

* Reference to: TopGraph.Proc_006CB9F8
|
006BD61A   E8D9E30000             call    006CB9F8

* Reference to field TTopExpGraph.OFFS_00C4
|
006BD61F   899EC4000000           mov     [esi+$00C4], ebx

* Reference to field TTopExpGraph.OFFS_00C0
|
006BD625   C786C0000000FCD46B00   mov     dword ptr [esi+$00C0], $006BD4FC

* Reference to field TTopExpGraph.OFFS_00BC
|
006BD62F   899EBC000000           mov     [esi+$00BC], ebx

* Reference to field TTopExpGraph.OFFS_00B8
|
006BD635   C786B800000084D46B00   mov     dword ptr [esi+$00B8], $006BD484
006BD63F   8BC3                   mov     eax, ebx
006BD641   8B10                   mov     edx, [eax]

* Possible reference to virtual method TfrmTrend.OFFS_01E0
|
006BD643   FF92E0010000           call    dword ptr [edx+$01E0]
006BD649   8BCB                   mov     ecx, ebx
006BD64B   B201                   mov     dl, $01

* Reference to class TImage
|
006BD64D   A1B0B14500             mov     eax, dword ptr [$0045B1B0]

* Reference to: extctrls.TImage.Create(TImage;boolean;TComponent);
|
006BD652   E88912DAFF             call    0045E8E0
006BD657   8BF0                   mov     esi, eax

* Reference to field TfrmTrend.OFFS_0364
|
006BD659   89B364030000           mov     [ebx+$0364], esi

* Reference to control TfrmTrend.Panel1 : TPanel
|
006BD65F   8B9340030000           mov     edx, [ebx+$0340]
006BD665   8BC6                   mov     eax, esi
006BD667   8B08                   mov     ecx, [eax]

* Reference to method TImage.SetParent(TWinControl)
|
006BD669   FF5160                 call    dword ptr [ecx+$60]
006BD66C   33D2                   xor     edx, edx
006BD66E   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006BD670   E8F3C2D7FF             call    00439968

* Reference to field TImage.Picture : TPicture
|
006BD675   8B8628010000           mov     eax, [esi+$0128]

* Reference to field TfrmTrend.OFFS_0380 : String
|
006BD67B   8B9380030000           mov     edx, [ebx+$0380]

* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
006BD681   E8CA40D6FF             call    00421750
006BD686   B201                   mov     dl, $01
006BD688   8BC6                   mov     eax, esi

* Reference to: controls.TControl.SetAutoSize(TControl;Boolean);
|
006BD68A   E881C1D7FF             call    00439810

* Reference to field TImage.OFFS_010C
|
006BD68F   899E0C010000           mov     [esi+$010C], ebx

* Reference to field TImage.OnClick : TNotifyEvent
|
006BD695   C7860801000058006C00   mov     dword ptr [esi+$0108], $006C0058

* Reference to field TImage.OFFS_00C4
|
006BD69F   899EC4000000           mov     [esi+$00C4], ebx

* Reference to field TImage.OnMouseMove : TMouseMoveEvent
|
006BD6A5   C786C0000000B8006C00   mov     dword ptr [esi+$00C0], $006C00B8

* Reference to field TfrmTrend.OFFS_0390 : Byte
|
006BD6AF   C6839003000001         mov     byte ptr [ebx+$0390], $01
006BD6B6   8BCB                   mov     ecx, ebx
006BD6B8   B201                   mov     dl, $01

* Reference to class TListBox
|
006BD6BA   A1A8D84200             mov     eax, dword ptr [$0042D8A8]

* Reference to: stdctrls.TCustomListBox.Create(TCustomListBox;boolean;TComponent);
|
006BD6BF   E85053D7FF             call    00432A14
006BD6C4   8BF0                   mov     esi, eax