pvindpd.pas

来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 92 行

unit PvIndpd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmPV=class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label2: TLabel;
    UpDown1: TUpDown;
    Bevel1: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    mlblStrtTime: TLabel;
    mlblEndTime: TLabel;
    Label6: TLabel;
    BitBtn3: TBitBtn;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Label1: TLabel;
    FormStorage1: TFormStorage;
    RxGradientCaption1: TRxGradientCaption;
    OFFS_031C: N.A.;
    procedure BitBtn2Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure HjPriceVolGraphic1Click(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure Edit2Change(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure _PROC_0063AC8F(Sender : TObject);
    procedure _PROC_0063ACA5(Sender : TObject);
    procedure _PROC_0063AFE1(Sender : TObject);
    procedure _PROC_0063B010(Sender : TObject);
    procedure Proc_0063ACA4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmPV: TfrmPV;

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

implementation

{$R *.DFM}

procedure TfrmPV.BitBtn2Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0063AAE4   E8D3B5E1FF             call    004560BC
0063AAE9   C3                     ret

*)
end;

procedure TfrmPV.BitBtn1Click(Sender : TObject);
begin
(*
0063AAEC   55                     push    ebp
0063AAED   8BEC                   mov     ebp, esp
0063AAEF   33C9                   xor     ecx, ecx
0063AAF1   51                     push    ecx
0063AAF2   51                     push    ecx
0063AAF3   51                     push    ecx
0063AAF4   51                     push    ecx
0063AAF5   51                     push    ecx
0063AAF6   51                     push    ecx
0063AAF7   51                     push    ecx
0063AAF8   53                     push    ebx
0063AAF9   56                     push    esi
0063AAFA   57                     push    edi
0063AAFB   8945FC                 mov     [ebp-$04], eax
0063AAFE   33C0                   xor     eax, eax
0063AB00   55                     push    ebp

* Possible String Reference to: '棣嵻