qspt.pas

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

unit Qspt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmQSPT=class(TForm)
    Panel1: TPanel;
    TrvColumn: TTreeView;
    PopupMenu1: TPopupMenu;
    aaa1: TMenuItem;
    Panel3: TPanel;
    NtbMode: TNotebook;
    StgItem: TStringGrid;
    Panel2: TPanel;
    ImageList: TImageList;
    TimHtmTimOut: TTimer;
    WebDetail: TEmbeddedWB;
    OFFS_039C: N.A.;
    OFFS_036C: N.A.;
    OFFS_0378: N.A.;
    OFFS_037C: N.A.;
    OFFS_0380: N.A.;
    OFFS_03A0: N.A.;
    OFFS_0394: N.A.;
    OFFS_0368: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure TrvColumnClick(Sender : TObject);
    procedure StgItemDblClick(Sender : TObject);
    procedure WebDetailDownloadComplete(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure TrvColumnExpanded(Sender : TObject);
    procedure TrvColumnCollapsed(Sender : TObject);
    procedure TrvColumnKeyDown(Sender : TObject);
    procedure TrvColumnChange(Sender : TObject);
    procedure StgItemKeyDown(Sender : TObject);
    procedure StgItemDrawCell(Sender : TObject);
    procedure TrvColumnExit(Sender : TObject);
    procedure TimHtmTimOutTimer(Sender : TObject);
    procedure WebDetailTranslateAccelerator(Sender : TObject);
    procedure WebDetailShowContextMenu(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_005C79A1(Sender : TObject);
    procedure _PROC_005C79E4(Sender : TObject);
    procedure _PROC_005C7B18(Sender : TObject);
    procedure _PROC_005C7C68(Sender : TObject);
    procedure _PROC_005C7CD8(Sender : TObject);
    procedure _PROC_005C7D28(Sender : TObject);
    procedure _PROC_005C7DBC(Sender : TObject);
    procedure _PROC_005C7DD4(Sender : TObject);
    procedure _PROC_005C8379(Sender : TObject);
    procedure _PROC_005C8819(Sender : TObject);
    procedure _PROC_005C88EC(Sender : TObject);
    procedure _PROC_005C88F1(Sender : TObject);
    procedure _PROC_005C8F65(Sender : TObject);
    procedure _PROC_005C90CD(Sender : TObject);
    procedure _PROC_005C9539(Sender : TObject);
    procedure _PROC_005C9630(Sender : TObject);
    procedure _PROC_005C99CC(Sender : TObject);
    procedure _PROC_005C9A40(Sender : TObject);
    procedure _PROC_005C9E2D(Sender : TObject);
    procedure _PROC_005CA4EC(Sender : TObject);
    procedure _PROC_005CA5B4(Sender : TObject);
    procedure _PROC_005CA614(Sender : TObject);
    procedure Proc_005C7860(Sender : TObject);
    procedure Proc_005C8818(Sender : TObject);
    procedure Proc_005C88F0(Sender : TObject);
    procedure Proc_005CA010(Sender : TObject);
    procedure Proc_005C9E2C(Sender : TObject);
    procedure Proc_005C8F64(Sender : TObject);
    procedure Proc_005C79A0(Sender : TObject);
    procedure Proc_005C8378(Sender : TObject);
    procedure Proc_005C90CC(Sender : TObject);
    procedure Proc_005C9538(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmQSPT: TFrmQSPT;

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

implementation

{$R *.DFM}

procedure TFrmQSPT.FormCreate(Sender : TObject);
begin
(*
005C92B8   55                     push    ebp
005C92B9   8BEC                   mov     ebp, esp
005C92BB   33C9                   xor     ecx, ecx
005C92BD   51                     push    ecx
005C92BE   51                     push    ecx
005C92BF   51                     push    ecx
005C92C0   51                     push    ecx
005C92C1   51                     push    ecx
005C92C2   51                     push    ecx
005C92C3   51                     push    ecx
005C92C4   53                     push    ebx
005C92C5   56                     push    esi
005C92C6   8BD8                   mov     ebx, eax
005C92C8   33C0                   xor     eax, eax
005C92CA   55                     push    ebp

* Possible String Reference to: '殡ャ