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

@@ -1137,6 +1137,8 @@ begin
     ACanvas.Handle := DC;
     try
       for i := 0 to DockSite.ControlCount - 1 do
+      begin
+        if DockSite.Controls[i].HostDockSite = DockSite then
         begin
           ARect := DockSite.Controls[i].BoundsRect;
           case DockSite.Controls[i].DockOrientation of
@@ -1153,6 +1155,7 @@ begin
           end;
           PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
         end;
+      end;
     finally
       ACanvas.Free;
     end;