zbnalertset.pas

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

unit ZBNAlertSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TAlertSetfrm=class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button4: TBitBtn;
    Button5: TBitBtn;
    RxGradientCaption1: TRxGradientCaption;
    Alertlist: TListView;
    Memo1: TMemo;
    ScrollBox1: TScrollBox;
    Label2: TLabel;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label3: TLabel;
    ListView1: TListView;
    OFFS_0315: N.A.;
    OFFS_0314: N.A.;
    OFFS_0364: N.A.;
    OFFS_036C: N.A.;
    procedure Button5Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure SpupClick(Sender : TObject);
    procedure SpdownClick(Sender : TObject);
    procedure AnnoButtonClick(Sender : TObject);
    procedure AlertlistChange(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure Memo1Enter(Sender : TObject);
    procedure neweditKeyPress(Sender : TObject);
    procedure Proc_0064F110(Sender : TObject);
    procedure Proc_0064F490(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AlertSetfrm: TAlertSetfrm;

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

implementation

{$R *.DFM}

procedure TAlertSetfrm.Button5Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00650218   E89F5EE0FF             call    004560BC
0065021D   C3                     ret

*)
end;

procedure TAlertSetfrm.FormCreate(Sender : TObject);
begin
(*
00650220   53                     push    ebx
00650221   8BD8                   mov     ebx, eax
00650223   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00650225   E8F638E0FF             call    00453B20
0065022A   BA64026500             mov     edx, $00650264

* Reference to: graphics.TCanvas.TextWidth(TCanvas;AnsiString):Integer;
|
0065022F   E850F0DCFF             call    0041F284

* Reference to field TAlertSetfrm.OFFS_030C
|
00650234   6689830C030000         mov     [ebx+$030C], ax
0065023B   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
0065023D   E8DE38E0FF             call    00453B20
00650242   BA70026500             mov     edx, $00650270

* Reference to: graphics.TCanvas.TextHeight(TCanvas;AnsiString):Integer;
|
00650247   E854F0DCFF             call    0041F2A0

* Reference to field TAlertSetfrm.OFFS_030E
|
0065024C   6689830E030000         mov     [ebx+$030E], ax

* Reference to field TAlertSetfrm.OFFS_0315 : Byte
|
00650253   C6831503000000         mov     byte ptr [ebx+$0315], $00
0065025A   5B                     pop     ebx
0065025B   C3                     ret

*)
end;

procedure TAlertSetfrm.SpupClick(Sender : TObject);
begin
(*
006505A0   55                     push    ebp
006505A1   8BEC                   mov     ebp, esp
006505A3   83C4D4                 add     esp, -$2C
006505A6   53                     push    ebx
006505A7   56                     push    esi
006505A8   57                     push    edi
006505A9   33C9                   xor     ecx, ecx
006505AB   894DD4                 mov     [ebp-$2C], ecx
006505AE   894DD8                 mov     [ebp-$28], ecx
006505B1   894DF0                 mov     [ebp-$10], ecx
006505B4   894DF4                 mov     [ebp-$0C], ecx
006505B7   8BDA                   mov     ebx, edx
006505B9   8945FC                 mov     [ebp-$04], eax
006505BC   33C0                   xor     eax, eax
006505BE   55                     push    ebp

* Possible String Reference to: '