[JVCL-Checkins] SF.net SVN: jvcl: [10674] trunk/jvcl/run/JvDockControlForm.pas

[<ob...@us...>]

Revision: 10674
Author:   obones
Date:     2006-06-09 00:15:52 -0700 (Fri, 09 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/jvcl/?rev=10674&view=rev

Log Message:
-----------
Mantis 3753: Slightly better reading for DoFloatAllForm

Modified Paths:
--------------
    trunk/jvcl/run/JvDockControlForm.pas
Modified: trunk/jvcl/run/JvDockControlForm.pas
===================================================================
--- trunk/jvcl/run/JvDockControlForm.pas	2006-06-08 18:21:31 UTC (rev 10673)
+++ trunk/jvcl/run/JvDockControlForm.pas	2006-06-09 07:15:52 UTC (rev 10674)
@@ -1075,7 +1075,8 @@
   try
     for I := 0 to Screen.CustomFormCount - 1 do
       if not (Screen.CustomForms[I] is TJvDockableForm) and
-        Assigned(FinddockClient(Screen.CustomForms[I])) then
+        (Assigned(FinddockClient(Screen.CustomForms[I])) or
+         Assigned(FinddockServer(Screen.CustomForms[I]))) then
         TempList.Add(Screen.CustomForms[I]);
 
     for I := 0 to TempList.Count - 1 do


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.