ViewVC Help

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

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

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

#	Line 1 | Line 1
1	+	(*
2	+	*  IBX For Lazarus (Firebird Express)
3	+	*
4	+	*  The contents of this file are subject to the Initial Developer's
5	+	*  Public License Version 1.0 (the "License"); you may not use this
6	+	*  file except in compliance with the License. You may obtain a copy
7	+	*  of the License here:
8	+	*
9	+	*    http://www.firebirdsql.org/index.php?op=doc&id=idpl
10	+	*
11	+	*  Software distributed under the License is distributed on an "AS
12	+	*  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13	+	*  implied. See the License for the specific language governing rights
14	+	*  and limitations under the License.
15	+	*
16	+	*  The Initial Developer of the Original Code is Tony Whyman.
17	+	*
18	+	*  The Original Code is (C) 2011 Tony Whyman, MWA Software
19	+	*  (http://www.mwasoftware.co.uk).
20	+	*
21	+	*  All Rights Reserved.
22	+	*
23	+	*  Contributor(s): ______________________________________.
24	+	*
25	+	*)
26	+
27		unit dblogindlg;
28
29		{$mode objfpc}{$H+}
#	Line 10 | Line 36 | uses
36
37		type
38
39	<	{ TLoginDlg }
39	>	{ TIBXLoginDlg }
40
41	<	TLoginDlg = class(TForm)
41	>	TIBXLoginDlg = class(TForm)
42		Bevel1: TBevel;
43		Button1: TButton;
44		Button2: TButton;
#	Line 31 | Line 57 | type
57		function LoginDialogEx(const ADatabaseName: string;
58		var AUserName, APassword: string; NameReadOnly: Boolean): Boolean;
59		var
60	<	LoginDlg: TLoginDlg;
60	>	IBXLoginDlg: TIBXLoginDlg;
61
62		implementation
63
64	+	{$R *.lfm}
65	+
66		function LoginDialogEx(const ADatabaseName: string;
67		var AUserName, APassword: string; NameReadOnly: Boolean): Boolean;
68		begin
69	<	with TLoginDlg.Create(Application) do
69	>	with TIBXLoginDlg.Create(Application) do
70		try
71		DatabaseName.Caption := ADatabaseName;
72		UserName.Text := AUserName;
#	Line 52 | Line 80 | begin
80		AUserName := UserName.Text;
81		APassword := Password.Text;
82		Result := True;
83	<	end;
83	>	end
84		finally
85		Free;
86		end;
87		end;
88
89
62	–	initialization
63	–	{$I dblogindlg.lrs}
64	–
90		end.
91

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines