From 06c4055b7ca672b9fcab66c0496d4d556b7f6309 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 3 Jul 2013 13:00:35 +0000
Subject: [PATCH] anchordocking: undo MakeFullyVisible - it moves windows to
 other desktops

git-svn-id: trunk@41983 -
---
 components/anchordocking/anchordocking.pas | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 9e03ebd5ad..7205a07608 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -2495,22 +2495,12 @@ begin
 end;
 
 procedure TAnchorDockMaster.MakeVisible(AControl: TControl; SwitchPages: boolean);
-var
-  Form: TCustomForm;
 begin
   while AControl<>nil do begin
     AControl.Visible:=true;
     if SwitchPages and (AControl is TAnchorDockPage) then
       TAnchorDockPageControl(AControl.Parent).PageIndex:=
         TAnchorDockPage(AControl).PageIndex;
-    if AControl.Parent=nil then begin
-      if AControl is TCustomForm then begin
-        Form:=TCustomForm(AControl);
-        if Form.Monitor<>nil then
-          Form.MakeFullyVisible(nil,true);
-      end;
-      break;
-    end;
     AControl:=AControl.Parent;
   end;
 end;