zbpjnewmod.pas

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

unit ZBPJNewMod;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TPJNewModFrm=class(TForm)
    RxGradientCaption1: TRxGradientCaption;
    MindButton: TBitBtn;
    AnnoButton: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TabControl1: TTabControl;
    TvwTips: TTreeView;
    GroupBox1: TGroupBox;
    ScrollBox1: TScrollBox;
    Memo1: TMemo;
    Cirlabel: TLabel;
    ComboBox1: TComboBox;
    CQCheck: TCheckBox;
    GroupBox2: TGroupBox;
    RichEdit1: TRichEdit;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Button8: TBitBtn;
    ListView3: TListView;
    BitBtn3: TBitBtn;
    Edit1: TRichEdit;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    OFFS_03C8: N.A.;
    OFFS_03B0: N.A.;
    OFFS_039A: N.A.;
    OFFS_03B4: N.A.;
    OFFS_0379: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure ListView3Click(Sender : TObject);
    procedure ListView3Change(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure BitBtn4Click(Sender : TObject);
    procedure TvwTipsClick(Sender : TObject);
    procedure TvwTipsChange(Sender : TObject);
    procedure TvwTipsDblClick(Sender : TObject);
    procedure RichEdit1KeyDown(Sender : TObject);
    procedure _PROC_006FDCD9(Sender : TObject);
    procedure _PROC_006FDE1B(Sender : TObject);
    procedure _PROC_006FDE25(Sender : TObject);
    procedure _PROC_006FE060(Sender : TObject);
    procedure _PROC_006FE304(Sender : TObject);
    procedure _PROC_006FEB90(Sender : TObject);
    procedure _PROC_006FEB99(Sender : TObject);
    procedure _PROC_006FEC78(Sender : TObject);
    procedure _PROC_006FECA8(Sender : TObject);
    procedure Proc_006FDCD8(Sender : TObject);
    procedure Proc_006FDE34(Sender : TObject);
    procedure Proc_006FE300(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PJNewModFrm: TPJNewModFrm;

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

implementation

{$R *.DFM}

procedure TPJNewModFrm.FormCreate(Sender : TObject);
begin
(*
006FD93C   53                     push    ebx
006FD93D   56                     push    esi
006FD93E   8BD8                   mov     ebx, eax

* Reference to field TPJNewModFrm.OFFS_03BC
|
006FD940   C783BC030000FFFFFFFF   mov     dword ptr [ebx+$03BC], $FFFFFFFF

* Reference to field TPJNewModFrm.OFFS_03B8
|
006FD94A   C783B8030000FFFFFFFF   mov     dword ptr [ebx+$03B8], $FFFFFFFF

* Reference to field TPJNewModFrm.OFFS_0360
|
006FD954   8D8360030000           lea     eax, [ebx+$0360]
006FD95A   33C9                   xor     ecx, ecx
006FD95C   BA46000000             mov     edx, $00000046

* Reference to: system.@FillChar;
|
006FD961   E84255D0FF             call    00402EA8

* Reference to field TPJNewModFrm.OFFS_03C0
|
006FD966   8D83C0030000           lea     eax, [ebx+$03C0]
006FD96C   33C9                   xor     ecx, ecx
006FD96E   BA0C000000             mov     edx, $0000000C

* Reference to: system.@FillChar;
|
006FD973   E83055D0FF             call    00402EA8

* Reference to field TPJNewModFrm.OFFS_03C0
|
006FD978   66C783C00300000000     mov     word ptr [ebx+$03C0], $0000
006FD981   B201                   mov     dl, $01

* Reference to class TList
|
006FD983   A150234100             mov     eax, dword ptr [$00412350]

* Reference to: system.TObject.Create(TObject;Boolean);
|
006FD988   E80F59D0FF             call    0040329C

* Reference to field TPJNewModFrm.OFFS_03C8 : TList
|
006FD98D   8983C8030000           mov     [ebx+$03C8], eax
006FD993   B201                   mov     dl, $01

* Reference to class TAboutTvwTips
|
006FD995   A1F80C6E00             mov     eax, dword ptr [$006E0CF8]

* Reference to: Unit_006E0CF8.Proc_006E0D54
|
006FD99A   E8B533FEFF             call    006E0D54
006FD99F   8BF0                   mov     esi, eax

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FD9A1   89B3AC030000           mov     [ebx+$03AC], esi

* Reference to field TAboutTvwTips.OFFS_0288
|
006FD9A7   C6868802000000         mov     byte ptr [esi+$0288], $00

* Reference to field TAboutTvwTips.OFFS_0289
|
006FD9AE   C6868902000000         mov     byte ptr [esi+$0289], $00

* Reference to field TAboutTvwTips.OFFS_0280
|
006FD9B5   899E80020000           mov     [esi+$0280], ebx
006FD9BB   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006FD9BD   E85E61D5FF             call    00453B20
006FD9C2   BAC8DC6F00             mov     edx, $006FDCC8

* Reference to: graphics.TCanvas.TextWidth(TCanvas;AnsiString):Integer;
|
006FD9C7   E8B818D2FF             call    0041F284

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FD9CC   8B93AC030000           mov     edx, [ebx+$03AC]
006FD9D2   66898284020000         mov     [edx+$0284], ax
006FD9D9   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006FD9DB   E84061D5FF             call    00453B20
006FD9E0   BAD4DC6F00             mov     edx, $006FDCD4

* Reference to: graphics.TCanvas.TextHeight(TCanvas;AnsiString):Integer;
|
006FD9E5   E8B618D2FF             call    0041F2A0

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FD9EA   8BB3AC030000           mov     esi, [ebx+$03AC]
006FD9F0   66898686020000         mov     [esi+$0286], ax

* Reference to control TPJNewModFrm.TvwTips : TTreeView
|
006FD9F7   8B831C030000           mov     eax, [ebx+$031C]
006FD9FD   894604                 mov     [esi+$04], eax

* Reference to control TPJNewModFrm.ScrollBox1 : TScrollBox
|
006FDA00   8B8324030000           mov     eax, [ebx+$0324]
006FDA06   89460C                 mov     [esi+$0C], eax

* Reference to control TPJNewModFrm.Memo1 : TMemo
|
006FDA09   8B8328030000           mov     eax, [ebx+$0328]
006FDA0F   894608                 mov     [esi+$08], eax

* Reference to control TPJNewModFrm.ComboBox1 : TComboBox
|
006FDA12   8B8330030000           mov     eax, [ebx+$0330]
006FDA18   894610                 mov     [esi+$10], eax

* Reference to control TPJNewModFrm.Cirlabel : TLabel
|
006FDA1B   8B832C030000           mov     eax, [ebx+$032C]
006FDA21   894624                 mov     [esi+$24], eax

* Reference to control TPJNewModFrm.AnnoButton : TBitBtn
|
006FDA24   8B83D8020000           mov     eax, [ebx+$02D8]
006FDA2A   894638                 mov     [esi+$38], eax

* Reference to control TPJNewModFrm.MindButton : TBitBtn
|
006FDA2D   8B83D4020000           mov     eax, [ebx+$02D4]
006FDA33   89463C                 mov     [esi+$3C], eax

* Reference to control TPJNewModFrm.TabControl1 : TTabControl
|
006FDA36   8B8318030000           mov     eax, [ebx+$0318]
006FDA3C   894640                 mov     [esi+$40], eax

* Reference to control TPJNewModFrm.N1 : TMenuItem
|
006FDA3F   8B83E0020000           mov     eax, [ebx+$02E0]
006FDA45   894644                 mov     [esi+$44], eax

* Reference to control TPJNewModFrm.N2 : TMenuItem
|
006FDA48   8B83E4020000           mov     eax, [ebx+$02E4]
006FDA4E   894648                 mov     [esi+$48], eax

* Reference to control TPJNewModFrm.N3 : TMenuItem
|
006FDA51   8B83E8020000           mov     eax, [ebx+$02E8]
006FDA57   89464C                 mov     [esi+$4C], eax

* Reference to control TPJNewModFrm.N4 : TMenuItem
|
006FDA5A   8B83EC020000           mov     eax, [ebx+$02EC]
006FDA60   894650                 mov     [esi+$50], eax

* Reference to control TPJNewModFrm.N5 : TMenuItem
|
006FDA63   8B83F0020000           mov     eax, [ebx+$02F0]
006FDA69   894654                 mov     [esi+$54], eax

* Reference to control TPJNewModFrm.N6 : TMenuItem
|
006FDA6C   8B83F4020000           mov     eax, [ebx+$02F4]
006FDA72   894658                 mov     [esi+$58], eax

* Reference to control TPJNewModFrm.N7 : TMenuItem
|
006FDA75   8B83F8020000           mov     eax, [ebx+$02F8]
006FDA7B   89465C                 mov     [esi+$5C], eax

* Reference to control TPJNewModFrm.N8 : TMenuItem
|
006FDA7E   8B83FC020000           mov     eax, [ebx+$02FC]
006FDA84   894660                 mov     [esi+$60], eax

* Reference to control TPJNewModFrm.N9 : TMenuItem
|
006FDA87   8B8300030000           mov     eax, [ebx+$0300]
006FDA8D   894664                 mov     [esi+$64], eax

* Reference to control TPJNewModFrm.N10 : TMenuItem
|
006FDA90   8B8304030000           mov     eax, [ebx+$0304]
006FDA96   894668                 mov     [esi+$68], eax

* Reference to control TPJNewModFrm.N11 : TMenuItem
|
006FDA99   8B8308030000           mov     eax, [ebx+$0308]
006FDA9F   89466C                 mov     [esi+$6C], eax

* Reference to control TPJNewModFrm.TvwTips : TTreeView
|
006FDAA2   8B831C030000           mov     eax, [ebx+$031C]

* Reference to field TTreeView.OFFS_00BC
|
006FDAA8   89B0BC000000           mov     [eax+$00BC], esi

* Reference to field TTreeView.OnMouseDown : TMouseEvent
|
006FDAAE   C780B8000000881E6E00   mov     dword ptr [eax+$00B8], $006E1E88

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDAB8   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TTreeView.OFFS_02CC
|
006FDABE   8990CC020000           mov     [eax+$02CC], edx

* Reference to field TTreeView.OnExpanding : TTVExpandingEvent
|
006FDAC4   C780C80200001C216E00   mov     dword ptr [eax+$02C8], $006E211C