www.pudn.com > llllew.zip > 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.