paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: undo MakeFullyVisible - it moves windows to other desktops

Browse Source 
git-svn-id: trunk@41983 -
This commit is contained in:
mattias 2013-07-03 13:00:35 +00:00
parent 9cbfcbcbcd
commit 06c4055b7c
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/anchordocking/anchordocking.pas
View File

@ -2495,22 +2495,12 @@ begin
end; end;
procedure TAnchorDockMaster.MakeVisible(AControl: TControl; SwitchPages: boolean); procedure TAnchorDockMaster.MakeVisible(AControl: TControl; SwitchPages: boolean);
var
Form: TCustomForm;
begin begin
while AControl<>nil do begin while AControl<>nil do begin
AControl.Visible:=true; AControl.Visible:=true;
if SwitchPages and (AControl is TAnchorDockPage) then if SwitchPages and (AControl is TAnchorDockPage) then
TAnchorDockPageControl(AControl.Parent).PageIndex:= TAnchorDockPageControl(AControl.Parent).PageIndex:=
TAnchorDockPage(AControl).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; AControl:=AControl.Parent;
end; end;
end; end;