--- ibx/trunk/runtime/IBDialogs.pas	2011/02/18 16:26:16	5
+++ ibx/trunk/runtime/IBDialogs.pas	2012/08/05 18:28:19	7
@@ -33,10 +33,10 @@ unit IBDialogs;
 interface
 
 uses
-{$IFDEF LINUX }
-  unix,
-{$ELSE}
+{$IFDEF WINDOWS }
   Windows,
+{$ELSE}
+  unix,
 {$ENDIF}
   SysUtils, Messages, Classes, Graphics, Controls,
   Forms, StdCtrls, ExtCtrls, dblogindlg;
@@ -49,7 +49,7 @@ implementation
 function ServerLoginDialog(const AServerName: string;
   var AUserName, APassword: string): Boolean;
 begin
-  with TLoginDlg.Create(nil) do
+  with TIBXLoginDlg.Create(nil) do
   try
     Caption := 'Firebird Server Login';
     Label3.Caption := 'Server Name: ';