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

Merged revision(s) 56244 #0bf8f0f4c9 from trunk:

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

git-svn-id: branches/fixes_1_8@56247 -
This commit is contained in:
maxim 2017-10-30 21:42:01 +00:00
parent 989c5ebe8c
commit 4149cf0778
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

@ -1795,14 +1795,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;