fdshow.pas

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

unit FDShow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tfrm4D=class(TForm)
    PaintBox1: TPaintBox;
    Panel1: TPanel;
    Edit2: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    FormStorage1: TFormStorage;
    RxGradientCaption1: TRxGradientCaption;
    Edit1: TRxSpinEdit;
    Edit3: TRxSpinEdit;
    OFFS_0328: N.A.;
    procedure PaintBox1Paint(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_00638138(Sender : TObject);
    procedure _PROC_006381B4(Sender : TObject);
    procedure _PROC_00638208(Sender : TObject);
    procedure _PROC_006382C9(Sender : TObject);
    procedure _PROC_006382F8(Sender : TObject);
    procedure Proc_00637B24(Sender : TObject);
    procedure Proc_00638194(Sender : TObject);
    procedure Proc_006381E8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frm4D: Tfrm4D;

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

implementation

{$R *.DFM}

procedure Tfrm4D.PaintBox1Paint(Sender : TObject);
begin
(*
00637CEC   55                     push    ebp
00637CED   8BEC                   mov     ebp, esp
00637CEF   6A00                   push    $00
00637CF1   6A00                   push    $00
00637CF3   6A00                   push    $00
00637CF5   53                     push    ebx
00637CF6   56                     push    esi
00637CF7   57                     push    edi
00637CF8   8BD8                   mov     ebx, eax
00637CFA   33C0                   xor     eax, eax
00637CFC   55                     push    ebp

* Possible String Reference to: '閫卉