[Instantobjects-cvscommit] Source/Brokers/UIB InstantUIBConnection.pas,1.4,1.5

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6895/Source/Brokers/UIB

Modified Files:
	InstantUIBConnection.pas 
Log Message:
FDatabase.SetSubComponent(True) for TInstantUIBConnection and some other properties published.

Index: InstantUIBConnection.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnection.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantUIBConnection.pas	21 Feb 2005 10:22:34 -0000	1.4
--- InstantUIBConnection.pas	1 Apr 2005 15:02:53 -0000	1.5
***************
*** 29,32 ****
--- 29,34 ----
  unit InstantUIBConnection;
  
+ {$I ..\..\Core\InstantDefines.inc}
+ 
  interface
  
***************
*** 53,57 ****
--- 55,65 ----
    published
      property Database: TJvUIBDataBase read FDatabase;
+     property LoginPrompt;
      property OnLogin;
+     property Connected;
+     property AfterConnect;
+     property AfterDisconnect;
+     property BeforeConnect;
+     property BeforeDisconnect;
    end;
  
***************
*** 65,68 ****
--- 73,79 ----
    FDatabase := TJvUIBDataBase.Create(Self);
    FDatabase.Name := 'Database';
+ {$IFDEF D5+}
+   FDatabase.SetSubComponent(True);
+ {$ENDIF}
  end;