From: Carlo B. <car...@us...> - 2004-12-06 08:51:33
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19834/Source/Brokers/UIB Modified Files: InstantUIBConnection.pas Log Message: published OnLogin event of UIBConnector Index: InstantUIBConnection.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnection.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantUIBConnection.pas 3 Dec 2004 16:04:29 -0000 1.2 --- InstantUIBConnection.pas 6 Dec 2004 08:51:23 -0000 1.3 *************** *** 50,53 **** --- 50,54 ---- published property Database: TJvUIBDataBase read FDatabase; + property OnLogin; end; *************** *** 91,95 **** function TInstantUIBConnection.Login: Boolean; var ! Username, Password, OldPassword: String; begin Username := FDatabase.UserName; --- 92,96 ---- function TInstantUIBConnection.Login: Boolean; var ! Username, Password: String; begin Username := FDatabase.UserName; |