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 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