ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBDialogs.pas

Comparing ibx/trunk/runtime/IBDialogs.pas (file contents):
Revision 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 7 by tony, Sun Aug 5 18:28:19 2012 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 WINDOWS }
37	>	Windows,
38	>	{$ELSE}
39	>	unix,
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 TIBXLoginDlg.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