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 4 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 28 | Line 28
28  
29   unit IBDialogs;
30  
31 + {$Mode Delphi}
32 +
33   interface
34  
35 < uses SysUtils, Windows, Messages, Classes, Graphics, Controls,
36 <  Forms, StdCtrls, ExtCtrls, DBLogDlg;
35 > uses
36 > {$IFDEF LINUX }
37 >  unix,
38 > {$ELSE}
39 >  Windows,
40 > {$ENDIF}
41 >  SysUtils, Messages, Classes, Graphics, Controls,
42 >  Forms, StdCtrls, ExtCtrls, dblogindlg;
43  
44   function ServerLoginDialog(const AServerName: string;
45    var AUserName, APassword: string): Boolean;
# Line 41 | Line 49 | implementation
49   function ServerLoginDialog(const AServerName: string;
50    var AUserName, APassword: string): Boolean;
51   begin
52 <  with TLoginDialog.Create(nil) do
52 >  with TLoginDlg.Create(nil) do
53    try
54 <    Caption := 'InterBase Server Login';
54 >    Caption := 'Firebird Server Login';
55      Label3.Caption := 'Server Name: ';
56      DatabaseName.Caption := AServerName;
57      UserName.Text := AUserName;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines