gwtools.pas

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

unit GWTools;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmTools=class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton16: TToolButton;
    ToolButton19: TToolButton;
    ActionList1: TActionList;
    procedure ToolButton10Click(Sender : TObject);
    procedure ToolButton8Click(Sender : TObject);
    procedure ToolButton7Click(Sender : TObject);
    procedure ToolButton15Click(Sender : TObject);
    procedure ToolButton9Click(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure ToolButton3Click(Sender : TObject);
    procedure ToolButton13Click(Sender : TObject);
    procedure ToolButton17Click(Sender : TObject);
    procedure ToolButton4Click(Sender : TObject);
    procedure ToolButton14Click(Sender : TObject);
    procedure ToolButton16Click(Sender : TObject);
    procedure ToolButton6Click(Sender : TObject);
    procedure FormActivate(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormKeyPress(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure ToolButton19Click(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmTools: TfrmTools;

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

implementation

{$R *.DFM}

procedure TfrmTools.ToolButton10Click(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
0076FD14   A158D37700             mov     eax, dword ptr [$0077D358]
0076FD19   8B00                   mov     eax, [eax]

* Reference to : THJ32Main.N144Click()
|
0076FD1B   E83C18F4FF             call    006B155C
0076FD20   C3                     ret

*)
end;

procedure TfrmTools.ToolButton8Click(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
0076FD24   A158D37700             mov     eax, dword ptr [$0077D358]
0076FD29   8B00                   mov     eax, [eax]

* Reference to : THJ32Main.mnuZBEditClick()
|
0076FD2B   E800F5F3FF             call    006AF230
0076FD30   C3                     ret

*)
end;

procedure TfrmTools.ToolButton7Click(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
0076FD34   8B1558D37700           mov     edx, [$0077D358]
0076FD3A   8B12                   mov     edx, [edx]
0076FD3C   92                     xchg    eax, edx

* Reference to : THJ32Main.N3Click()
|
0076FD3D   E81A1CF4FF             call    006B195C
0076FD42   C3                     ret

*)
end;

procedure TfrmTools.ToolButton15Click(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
0076FD44   8B1558D37700           mov     edx, [$0077D358]
0076FD4A   8B12                   mov     edx, [edx]
0076FD4C   92                     xchg    eax, edx

* Reference to : THJ32Main.N157Click()
|
0076FD4D   E8560BF4FF             call    006B08A8
0076FD52   C3                     ret

*)
end;

procedure TfrmTools.ToolButton9Click(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
0076FD54   8B1558D37700           mov     edx, [$0077D358]
0076FD5A   8B12                   mov     edx, [edx]
0076FD5C   92                     xchg    eax, edx

* Reference to : THJ32Main.N511Click()
|
0076FD5D   E866ECF3FF             call    006AE9C8
0076FD62   C3                     ret

*)
end;

procedure TfrmTools.ToolButton1Click(Sender : TObject);
begin
(*
0076FD64   55                     push    ebp
0076FD65   8BEC                   mov     ebp, esp
0076FD67   6A00                   push    $00
0076FD69   53                     push    ebx
0076FD6A   8BDA                   mov     ebx, edx
0076FD6C   33C0                   xor     eax, eax
0076FD6E   55                     push    ebp

* Possible String Reference to: '镋<