Commit 0bf8f0f4 authored by Juha Manninen's avatar Juha Manninen
Browse files

AnchorDocking: Show also inactive tabed windows in Window-menu. Issue #32618,...

AnchorDocking: Show also inactive tabed windows in Window-menu. Issue #32618, patch from Pascal Riekenberg.

git-svn-id: trunk@56244 -
parent a43dd15a
......@@ -251,7 +251,12 @@ begin
Result:=false;
if AForm is TAnchorDockHostSite then exit;
if (DockMaster.FindControl(AForm.Name)=nil) and (AForm.Parent<>nil) then exit;
Result:=true;
Result := AForm.IsVisible
or (
Assigned(AForm.Parent)
and Assigned(AForm.Parent.Parent)
and (AForm.Parent.Parent is TAnchorDockPage)
);
end;
procedure TIDEAnchorDockMaster.AdjustMainIDEWindowHeight(
......
......@@ -1785,14 +1785,14 @@ begin
for i:=0 to Screen.FormCount-1 do begin
AForm:=Screen.Forms[i];
//debugln(['TMainIDEBase.UpdateWindowMenu ',DbgSName(AForm),' Vis=',AForm.IsVisible,' Des=',DbgSName(AForm.Designer)]);
if (not AForm.IsVisible) or (AForm=MainIDEBar) or (AForm=SplashForm)
or IsFormDesign(AForm) or (WindowsList.IndexOf(AForm)>=0) then
if (AForm=MainIDEBar) or (AForm=SplashForm) or IsFormDesign(AForm)
or (WindowsList.IndexOf(AForm)>=0) then
continue;
if IDEDockMaster<>nil then
begin
if not IDEDockMaster.AddableInWindowMenu(AForm) then continue;
end else begin
if AForm.Parent<>nil then continue;
if (AForm.Parent<>nil) or not AForm.IsVisible then continue;
end;
WindowsList.Add(AForm);
end;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment