ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBDialogs.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBDialogs.pas (file contents):
Revision 6 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC

# Line 33 | Line 33 | unit IBDialogs;
33   interface
34  
35   uses
36 < {$IFDEF LINUX }
37 <  unix,
38 < {$ELSE}
36 > {$IFDEF WINDOWS }
37    Windows,
38 + {$ELSE}
39 +  unix,
40   {$ENDIF}
41    SysUtils, Messages, Classes, Graphics, Controls,
42    Forms, StdCtrls, ExtCtrls, dblogindlg;
# Line 49 | Line 49 | implementation
49   function ServerLoginDialog(const AServerName: string;
50    var AUserName, APassword: string): Boolean;
51   begin
52 <  with TLoginDlg.Create(nil) do
52 >  with TIBXLoginDlg.Create(nil) do
53    try
54      Caption := 'Firebird Server Login';
55      Label3.Caption := 'Server Name: ';

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines