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 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

# Line 49 | Line 49 | type
49      private
50        FSetCursorDepth: integer;
51    public
52 <    function ServerLoginDialog(const AServerName: string;
53 <                               var AUserName, APassword: string): Boolean;
54 <    function LoginDialogEx(const ADatabaseName: string;
52 >    function ServerLoginDialog(var AServerName: string;
53 >                               var AUserName, APassword: string): Boolean;  virtual;
54 >    function LoginDialogEx(var ADatabaseName: string;
55                                 var AUserName, APassword: string;
56 <                               NameReadOnly: Boolean): Boolean;
56 >                               NameReadOnly: Boolean): Boolean; virtual;
57      procedure SetCursor;
58      procedure RestoreCursor;
59    end;
# Line 70 | Line 70 | type
70      Button1: TButton;
71      Button2: TButton;
72      DatabaseName: TLabel;
73 <    Label1: TLabel;
73 >    TargetCaption: TLabel;
74      Label2: TLabel;
75      Label3: TLabel;
76      Password: TEdit;
# Line 81 | Line 81 | type
81      { public declarations }
82    end;
83  
84 < function TIBLCLInterface.ServerLoginDialog(const AServerName: string;
85 <         var AUserName, APassword: string): Boolean;
84 > function TIBLCLInterface.ServerLoginDialog(var AServerName: string;
85 >  var AUserName, APassword: string): Boolean;
86   begin
87    with TIBXLoginDlg.Create(nil) do
88    try
89      Caption := 'Firebird Server Login';
90 <    Label3.Caption := 'Server Name: ';
90 >    TargetCaption.Caption := 'Server Name: ';
91      DatabaseName.Caption := AServerName;
92      UserName.Text := AUserName;
93      Result := False;
# Line 103 | Line 103 | begin
103    end;
104   end;
105  
106 < function TIBLCLInterface.LoginDialogEx(const ADatabaseName: string;
106 > function TIBLCLInterface.LoginDialogEx(var ADatabaseName: string;
107    var AUserName, APassword: string; NameReadOnly: Boolean): Boolean;
108   begin
109    with TIBXLoginDlg.Create(Application) do

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines