dblogdlg.pas

传奇3delphi代码 请自己看吧 包括地图

unit DBLogDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TLoginDialog=class(TForm)
    Panel: TPanel;
    Bevel: TBevel;
    DatabaseName: TLabel;
    OKButton: TButton;
    CancelButton: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Password: TEdit;
    UserName: TEdit;
    procedure FormShow(Sender : TObject);
    procedure DBLogDlg.Finalization(Sender : TObject);
    procedure DBLogDlg.Initialization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  LoginDialog: TLoginDialog;

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

implementation

{$R *.DFM}

procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
00474164   53                     push    ebx
00474165   56                     push    esi
00474166   8BD8                   mov     ebx, eax

* Reference to control TLoginDialog.Panel : TPanel
|
00474168   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: Controls.Proc_0042BD20
|
0047416E   E8AD7BFBFF             call    0042BD20

* Reference to control TLoginDialog.DatabaseName : TLabel
|
00474173   8BB3D8020000           mov     esi, [ebx+$02D8]

* Reference to field TLabel.OFFS_0038
|
00474179   8B5638                 mov     edx, [esi+$38]
0047417C   035630                 add     edx, [esi+$30]
0047417F   3BC2                   cmp     eax, edx
00474181   7F24                   jnle    004741A7

* Reference to control TLoginDialog.Panel : TPanel
|
00474183   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: Controls.Proc_0042BD20
|
00474189   E8927BFBFF             call    0042BD20
0047418E   8BD0                   mov     edx, eax

* Reference to control TLoginDialog.DatabaseName : TLabel
|
00474190   8B83D8020000           mov     eax, [ebx+$02D8]
00474196   2B5030                 sub     edx, dword ptr [eax+$30]
00474199   83EA05                 sub     edx, +$05

* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047419C   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: Controls.Proc_0042BB20
|
004741A2   E87979FBFF             call    0042BB20
004741A7   5E                     pop     esi
004741A8   5B                     pop     ebx
004741A9   C3                     ret

*)
end;

procedure TLoginDialog.DBLogDlg.Finalization(Sender : TObject);
begin
(*
004741AC   55                     push    ebp
004741AD   8BEC                   mov     ebp, esp
004741AF   33C0                   xor     eax, eax
004741B1   55                     push    ebp

* Possible String Reference to: '槎豇