[Instantobjects-cvscommit] SF.net SVN: instantobjects: [624] trunk/Source/Core/InstantPresentation.pas

[<jcm...@us...>]

Revision: 624
Author:   jcmoraisjr
Date:     2006-02-23 09:44:25 -0800 (Thu, 23 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=624&view=rev

Log Message:
-----------
Fixed TInstantSelector.GetConnector, that was retrieving DefaultConnector even in designtime and without select it.

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-02-23 16:55:26 UTC (rev 623)
+++ trunk/Source/Core/InstantPresentation.pas	2006-02-23 17:44:25 UTC (rev 624)
@@ -4504,7 +4504,7 @@
 
 function TInstantSelector.GetConnector: TInstantConnector;
 begin
-  if Assigned(FConnector) then
+  if Assigned(FConnector) or (csDesigning in ComponentState) then
     Result := FConnector
   else
     Result := InstantDefaultConnector;