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

AnchorDocking: Fixed load layout for visible=false forms minimize button not show. Issue #34347. Patch from Andrey Zubarev

Browse Source 
git-svn-id: trunk@60099 -
This commit is contained in:
michl 2019-01-17 22:45:28 +00:00
parent 9730cd7027
commit 4bb6efce90
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/anchordocking/anchordocking.pas
View File

@ -898,7 +898,8 @@ function DockedControlIsVisible(Control: TControl): boolean;
begin
while Control<>nil do begin
if (not Control.IsControlVisible)
and (not (Control is TAnchorDockPage)) then
and (not (Control is TAnchorDockPage))
and (Control.parent<>nil) then
exit(false);
Control:=Control.Parent;
end;