fcl-db: base: add into DB unit global callback function LoginDialogExProc for Login prompt dialog.

git-svn-id: trunk@30400 -

packages/fcl-db/src/base/db.pas

@@ -1723,7 +1723,9 @@ type
     function MoveNext: Boolean;
     property Current: TFields read GetCurrent;
   end;
-  
+
+{ TDataLink }
+
   TDataLink = class(TPersistent)
   private
     FFirstRecord,
@@ -1960,7 +1962,7 @@ type
     procedure Loaded; override;
     procedure SetConnected (Value : boolean); virtual;
     property ForcedClose : Boolean read FForcedClose write FForcedClose;
-    property Streamedconnected: Boolean read FStreamedConnected write FStreamedConnected;
+    property StreamedConnected: Boolean read FStreamedConnected write FStreamedConnected;
   public
     procedure Close(ForceClose: Boolean=False);
     destructor Destroy; override;
@@ -2179,6 +2181,10 @@ const
   ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
     ftDBaseOle, ftTypedBinary, ftOraBlob, ftOraClob, ftWideMemo];
 
+var
+  LoginDialogExProc: function(const ADatabaseName: string; var AUserName, APassword: string; UserNameReadOnly: Boolean): Boolean = nil;
+
+
 { Auxiliary functions }
 
 Procedure DatabaseError (Const Msg : String); overload;