attribunit.pas

灰鸽子2007VIP版源码

unit AttribUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TAttribForm=class(TForm)
    SkinForm: TspDynamicSkinForm;
    Edit1: TspSkinEdit;
    Bevel1: TspSkinBevel;
    spSkinStdLabel1: TspSkinStdLabel;
    spSkinStdLabel2: TspSkinStdLabel;
    spSkinStdLabel3: TspSkinStdLabel;
    Edit2: TspSkinEdit;
    Edit3: TspSkinEdit;
    Edit4: TspSkinEdit;
    Bevel2: TspSkinBevel;
    spSkinStdLabel4: TspSkinStdLabel;
    spSkinStdLabel5: TspSkinStdLabel;
    spSkinStdLabel6: TspSkinStdLabel;
    Edit5: TspSkinEdit;
    Edit6: TspSkinEdit;
    Edit7: TspSkinEdit;
    Bevel3: TspSkinBevel;
    spSkinStdLabel7: TspSkinStdLabel;
    CheckBox1: TspSkinCheckRadioBox;
    CheckBox3: TspSkinCheckRadioBox;
    CheckBox2: TspSkinCheckRadioBox;
    CheckBox4: TspSkinCheckRadioBox;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Image1: TImage;
    procedure Button2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_00590C04(Sender : TObject);
    procedure _PROC_00590C34(Sender : TObject);
    procedure _PROC_00590C3C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AttribForm: TAttribForm;

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

implementation

{$R *.DFM}

procedure TAttribForm.Button2Click(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
005908D0   E81337EFFF             call    00483FE8
005908D5   C3                     ret

*)
end;

procedure TAttribForm.Button1Click(Sender : TObject);
begin
(*
005908D8   55                     push    ebp
005908D9   8BEC                   mov     ebp, esp
005908DB   33C9                   xor     ecx, ecx
005908DD   51                     push    ecx
005908DE   51                     push    ecx
005908DF   51                     push    ecx
005908E0   51                     push    ecx
005908E1   51                     push    ecx
005908E2   51                     push    ecx
005908E3   51                     push    ecx
005908E4   51                     push    ecx
005908E5   53                     push    ebx
005908E6   56                     push    esi
005908E7   8BD8                   mov     ebx, eax
005908E9   33C0                   xor     eax, eax
005908EB   55                     push    ebp

* Possible String Reference to: '