diff --git a/examples/anchordocking/minide/unit1.pas b/examples/anchordocking/minide/unit1.pas
index 35356dc850..c6a5c3baa1 100644
--- a/examples/anchordocking/minide/unit1.pas
+++ b/examples/anchordocking/minide/unit1.pas
@@ -229,7 +229,7 @@ begin
     try
       // restore the layout
       // this will close unneeded forms and call OnCreateControl for all needed
-      DockMaster.LoadLayoutFromConfig(XMLConfig);
+      DockMaster.LoadLayoutFromConfig(XMLConfig,true);
     finally
       XMLConfig.Free;
     end;
diff --git a/lcl/include/dragobject.inc b/lcl/include/dragobject.inc
index 6050a695ff..78ac2bb36c 100644
--- a/lcl/include/dragobject.inc
+++ b/lcl/include/dragobject.inc
@@ -147,14 +147,15 @@ end;
 
 procedure TDragDockObject.HideDockImage;
 begin
-  WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disHide);
+  if FEraseDockRect.Left<MaxInt then
+    WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disHide);
   FEraseDockRect := Rect(MaxInt, 0, MaxInt, 0);
 end;
 
 procedure TDragDockObject.MoveDockImage;
 begin
   //Draw the form outlines when the position has changed
-  if not CompareMem(@DockRect, @EraseDockRect, SizeOf(TRect)) then
+  if not CompareRect(@DockRect, @EraseDockRect) then
   begin
     WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disMove);
     EraseDockRect := DockRect;