dockSite: call paint dock frame only only for docked controls

git-svn-id: trunk@13653 -

lcl/graphtype.pp

@@ -37,11 +37,18 @@ uses
 
 type
   TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF;
-  TGraphicsFillStyle = (
+  TGraphicsFillStyle =
+  (
     fsSurface, // fill till the color (it fills all execpt this color)
     fsBorder   // fill this color (it fills only conneted pixels of this color)
-    );
+  );
-  TGraphicsBevelCut = (bvNone, bvLowered, bvRaised, bvSpace);
+  TGraphicsBevelCut =
+  (
+    bvNone,
+    bvLowered,
+    bvRaised,
+    bvSpace
+  );
   TGraphicsDrawEffect =
   (
     gdeNormal,      // no effect

lcl/ldocktree.pas

@@ -1138,20 +1138,23 @@ begin
     try
       for i := 0 to DockSite.ControlCount - 1 do
       begin
-        ARect := DockSite.Controls[i].BoundsRect;
+        if DockSite.Controls[i].HostDockSite = DockSite then
-        case DockSite.Controls[i].DockOrientation of
+        begin
-          doHorizontal:
+          ARect := DockSite.Controls[i].BoundsRect;
-            begin
+          case DockSite.Controls[i].DockOrientation of
-              ARect.Bottom := ARect.Top;
+            doHorizontal:
-              Dec(ARect.Top, DefaultDockGrabberSize);
+              begin
-            end;
+                ARect.Bottom := ARect.Top;
-          doVertical:
+                Dec(ARect.Top, DefaultDockGrabberSize);
-            begin
+              end;
-              ARect.Right := ARect.Left;
+            doVertical:
-              Dec(ARect.Left, DefaultDockGrabberSize);
+              begin
-            end;
+                ARect.Right := ARect.Left;
+                Dec(ARect.Left, DefaultDockGrabberSize);
+              end;
+          end;
+          PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
         end;
-        PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
       end;
     finally
       ACanvas.Free;