dblogdlg.pas

翎风软件源代码

unit DBLogDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
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);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  LoginDialog: TLoginDialog;


implementation

{$R *.DFM}

procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
0047AA5C   53                     push    ebx
0047AA5D   56                     push    esi
0047AA5E   8BD8                   mov     ebx, eax

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

* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
0047AA66   E8596DFBFF             call    004317C4

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

* Reference to field TLabel.Width : Integer
|
0047AA71   8B5638                 mov     edx, [esi+$38]
0047AA74   035630                 add     edx, [esi+$30]
0047AA77   3BC2                   cmp     eax, edx
0047AA79   7F24                   jnle    0047AA9F

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

* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
0047AA81   E83E6DFBFF             call    004317C4
0047AA86   8BD0                   mov     edx, eax

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

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

* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
0047AA9A   E8256BFBFF             call    004315C4
0047AA9F   5E                     pop     esi
0047AAA0   5B                     pop     ebx
0047AAA1   C3                     ret

*)
end;

end.