doaredit.pas

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

unit DOArEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls
type
  TfrmCtrl=class(TForm)
    Panel2: TPanel;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Panel1: TPanel;
    vpcCtrl: TPageControl;
    vtsStyle: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    procedure _PROC_006C1210(Sender : TObject);
    procedure _PROC_006C1250(Sender : TObject);
    procedure _PROC_006C1280(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmCtrl: TfrmCtrl;

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

implementation

{$R *.DFM}

procedure TfrmCtrl._PROC_006C1210(Sender : TObject);
begin
(*
006C1210   55                     push    ebp
006C1211   8BEC                   mov     ebp, esp
006C1213   53                     push    ebx
006C1214   56                     push    esi
006C1215   57                     push    edi
006C1216   8BF9                   mov     edi, ecx
006C1218   8BF2                   mov     esi, edx
006C121A   8BD8                   mov     ebx, eax

* Reference to control TfrmCtrl.vcbbColor : TColorComboBox
|
006C121C   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference to : TFontComboBox._PROC_00506FDC()
|
006C1222   E8B55DE4FF             call    00506FDC
006C1227   8906                   mov     [esi], eax

* Reference to control TfrmCtrl.vcbbStyle : TLineStyle
|
006C1229   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: stdctrls.TCustomEdit.ClearSelection(TCustomEdit);
|
006C122F   E88CF9D6FF             call    00430BC0
006C1234   8807                   mov     [edi], al

* Reference to control TfrmCtrl.vcbbWeight : TLineWeight
|
006C1236   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to: stdctrls.TCustomEdit.ClearSelection(TCustomEdit);
|
006C123C   E87FF9D6FF             call    00430BC0
006C1241   8B5508                 mov     edx, [ebp+$08]
006C1244   8902                   mov     [edx], eax
006C1246   5F                     pop     edi
006C1247   5E                     pop     esi
006C1248   5B                     pop     ebx
006C1249   5D                     pop     ebp
006C124A   C20400                 ret     $0004

*)
end;

procedure TfrmCtrl._PROC_006C1250(Sender : TObject);
begin
(*
006C1250   55                     push    ebp
006C1251   8BEC                   mov     ebp, esp
006C1253   33C0                   xor     eax, eax
006C1255   55                     push    ebp

* Possible String Reference to: '椴'