paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 13:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@56244 -
This commit is contained in:
juha 2017-10-30 07:59:19 +00:00
parent a43dd15a73
commit 0bf8f0f4c9
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/anchordocking/design/registeranchordocking.pas
View File

@ -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(

6
ide/mainbase.pas
View File

@ -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;