selstock.pas

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

unit selstock;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tsel_stock=class(TForm)
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Button4: TBitBtn;
    AnnoButton: TBitBtn;
    MindButton: TBitBtn;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    ButRangChg: TBitBtn;
    StaticText3: TStaticText;
    Button10: TBitBtn;
    Button9: TBitBtn;
    Button8: TBitBtn;
    CheckBox1: TCheckBox;
    Label6: TLabel;
    Cirlabel: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    foldesLabel: TLabel;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    BtwLabel: TLabel;
    Label7: TLabel;
    Button11: TBitBtn;
    Button12: TBitBtn;
    ComboBox5: TComboBox;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button3: TBitBtn;
    Button13: TBitBtn;
    TabControl1: TTabControl;
    TvwTips: TTreeView;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label8: TLabel;
    Button14: TBitBtn;
    Button15: TBitBtn;
    RxGradientCaption1: TRxGradientCaption;
    N11: TMenuItem;
    Button6: TBitBtn;
    ScrollBox1: TScrollBox;
    Memo1: TMemo;
    CQCheck: TCheckBox;
    BitBtn1: TBitBtn;
    ListView1: TListView;
    OFFS_03EC: N.A.;
    OFFS_03ED: N.A.;
    OFFS_03EE: N.A.;
    OFFS_03C3: N.A.;
    OFFS_03C2: N.A.;
    OFFS_03C4: N.A.;
    OFFS_042B: N.A.;
    OFFS_0430: N.A.;
    OFFS_0408: N.A.;
    OFFS_0429: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button10Click(Sender : TObject);
    procedure MindButtonClick(Sender : TObject);
    procedure AnnoButtonClick(Sender : TObject);
    procedure CheckBox1Click(Sender : TObject);
    procedure ButRangChgClick(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button12Click(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure Button11Click(Sender : TObject);
    procedure threadterminated(Sender : TObject);
    procedure Button14Click(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Button15Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure _PROC_006E57AC(Sender : TObject);
    procedure _PROC_006E5BB7(Sender : TObject);
    procedure _PROC_006E5DB4(Sender : TObject);
    procedure _PROC_006E607D(Sender : TObject);
    procedure _PROC_006E68BE(Sender : TObject);
    procedure _PROC_006E6940(Sender : TObject);
    procedure _PROC_006E6AD0(Sender : TObject);
    procedure _PROC_006E6B0C(Sender : TObject);
    procedure _PROC_006E6F88(Sender : TObject);
    procedure _PROC_006E6F97(Sender : TObject);
    procedure _PROC_006E769C(Sender : TObject);
    procedure _PROC_006E76CC(Sender : TObject);
    procedure Proc_006E607C(Sender : TObject);
    procedure Proc_006E68B8(Sender : TObject);
    procedure Proc_006E6ABC(Sender : TObject);
    procedure Proc_006E57A8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  sel_stock: Tsel_stock;

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

implementation

{$R *.DFM}

procedure Tsel_stock.FormCreate(Sender : TObject);
begin
(*
006E5338   53                     push    ebx
006E5339   56                     push    esi
006E533A   8BD8                   mov     ebx, eax

* Reference to field Tsel_stock.OFFS_0438
|
006E533C   8D8338040000           lea     eax, [ebx+$0438]
006E5342   33C9                   xor     ecx, ecx
006E5344   BA10000000             mov     edx, $00000010

* Reference to: system.@FillChar;
|
006E5349   E85ADBD1FF             call    00402EA8

* Reference to field Tsel_stock.OFFS_0438
|
006E534E   8D9338040000           lea     edx, [ebx+$0438]
006E5354   A118CB7700             mov     eax, dword ptr [$0077CB18]
006E5359   8B00                   mov     eax, [eax]

* Reference to: Unit_0070F7F0.Proc_0071AF64
|
006E535B   E8045C0300             call    0071AF64

* Reference to field Tsel_stock.OFFS_03EF
|
006E5360   8D83EF030000           lea     eax, [ebx+$03EF]
006E5366   33C9                   xor     ecx, ecx
006E5368   BA46000000             mov     edx, $00000046

* Reference to: system.@FillChar;
|
006E536D   E836DBD1FF             call    00402EA8

* Reference to field Tsel_stock.OFFS_03D0
|
006E5372   8D83D0030000           lea     eax, [ebx+$03D0]
006E5378   33C9                   xor     ecx, ecx
006E537A   BA10000000             mov     edx, $00000010

* Reference to: system.@FillChar;
|
006E537F   E824DBD1FF             call    00402EA8
006E5384   33C0                   xor     eax, eax

* Reference to field Tsel_stock.OFFS_03C8
|
006E5386   8983C8030000           mov     [ebx+$03C8], eax

* Reference to control Tsel_stock.GroupBox1 : TGroupBox
|
006E538C   8B83D4020000           mov     eax, [ebx+$02D4]

* Reference to field TGroupBox.Top : Integer
|
006E5392   8B5034                 mov     edx, [eax+$34]
006E5395   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.SetClientWidth(TCustomForm;Integer);
|
006E5397   E8D8DCD6FF             call    00453074

* Reference to field Tsel_stock.OFFS_03EC : Byte
|
006E539C   C683EC03000000         mov     byte ptr [ebx+$03EC], $00

* Reference to field Tsel_stock.OFFS_03ED : Byte
|
006E53A3   C683ED03000000         mov     byte ptr [ebx+$03ED], $00

* Reference to field Tsel_stock.OFFS_03EE : Byte
|
006E53AA   C683EE03000000         mov     byte ptr [ebx+$03EE], $00

* Reference to field Tsel_stock.OFFS_03C3 : Byte
|
006E53B1   C683C303000000         mov     byte ptr [ebx+$03C3], $00
006E53B8   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006E53BA   E861E7D6FF             call    00453B20
006E53BF   BA98576E00             mov     edx, $006E5798

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

* Reference to field Tsel_stock.OFFS_03C0
|
006E53C9   668983C0030000         mov     [ebx+$03C0], ax

* Reference to: Unit_00409434.Proc_0040C268
|
006E53D0   E8936ED2FF             call    0040C268
006E53D5   83C4F8                 add     esp, -$08
006E53D8   DD1C24                 fstp    qword ptr [esp]
006E53DB   9B                     wait

* Reference to control Tsel_stock.DateTimePicker1 : TDateTimePicker
|
006E53DC   8B8388030000           mov     eax, [ebx+$0388]

* Reference to: comctrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
006E53E2   E8E54CDAFF             call    0048A0CC

* Reference to: Unit_00409434.Proc_0040C268
|
006E53E7   E87C6ED2FF             call    0040C268
006E53EC   83C4F8                 add     esp, -$08
006E53EF   DD1C24                 fstp    qword ptr [esp]
006E53F2   9B                     wait

* Reference to control Tsel_stock.DateTimePicker2 : TDateTimePicker
|
006E53F3   8B838C030000           mov     eax, [ebx+$038C]

* Reference to: comctrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
006E53F9   E8CE4CDAFF             call    0048A0CC

* Reference to control Tsel_stock.RadioButton1 : TRadioButton
|
006E53FE   8BB370030000           mov     esi, [ebx+$0370]
006E5404   8BD3                   mov     edx, ebx

* Reference to field TRadioButton.OFFS_010C
|
006E5406   8B860C010000           mov     eax, [esi+$010C]

* Possible reference to virtual method TRadioButton.OFFS_0108
|
006E540C   FF9608010000           call    dword ptr [esi+$0108]

* Reference to field Tsel_stock.OFFS_03BC
|
006E5412   83BBBC03000000         cmp     dword ptr [ebx+$03BC], +$00
006E5419   7512                   jnz     006E542D
006E541B   B201                   mov     dl, $01

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

* Reference to: Unit_006E0CF8.Proc_006E0D54
|
006E5422   E82DB9FFFF             call    006E0D54

* Reference to field Tsel_stock.OFFS_03BC
|
006E5427   8983BC030000           mov     [ebx+$03BC], eax

* Reference to field Tsel_stock.OFFS_03BC
|
006E542D   8B83BC030000           mov     eax, [ebx+$03BC]
006E5433   C6808802000000         mov     byte ptr [eax+$0288], $00

* Reference to field Tsel_stock.OFFS_03EC : Byte
|
006E543A   8A93EC030000           mov     dl, byte ptr [ebx+$03EC]
006E5440   889089020000           mov     [eax+$0289], dl
006E5446   899880020000           mov     [eax+$0280], ebx

* Reference to field Tsel_stock.OFFS_03C0
|
006E544C   668B93C0030000         mov     dx, word ptr [ebx+$03C0]
006E5453   66899084020000         mov     [eax+$0284], dx
006E545A   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006E545C   E8BFE6D6FF             call    00453B20
006E5461   BAA4576E00             mov     edx, $006E57A4

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

* Reference to field Tsel_stock.OFFS_03BC
|
006E546B   8BB3BC030000           mov     esi, [ebx+$03BC]
006E5471   66898686020000         mov     [esi+$0286], ax

* Reference to control Tsel_stock.TvwTips : TTreeView
|
006E5478   8B8384030000           mov     eax, [ebx+$0384]
006E547E   894604                 mov     [esi+$04], eax

* Reference to control Tsel_stock.ScrollBox1 : TScrollBox
|
006E5481   8B83A8030000           mov     eax, [ebx+$03A8]
006E5487   89460C                 mov     [esi+$0C], eax

* Reference to control Tsel_stock.Memo1 : TMemo
|
006E548A   8B83AC030000           mov     eax, [ebx+$03AC]
006E5490   894608                 mov     [esi+$08], eax

* Reference to control Tsel_stock.ComboBox1 : TComboBox
|
006E5493   8B83EC020000           mov     eax, [ebx+$02EC]
006E5499   894610                 mov     [esi+$10], eax