paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-27 07:01:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: really find MainIDE site in AdjustMainIDEWindowHeight.

Browse Source 
git-svn-id: trunk@51347 -
This commit is contained in:
ondrej 2016-01-19 20:35:05 +00:00
parent ca7210f335
commit be1b2f57c3
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,7 +42,7 @@ uses
// LazUtils // LazUtils
LazFileCache, LazFileUtils, LazFileCache, LazFileUtils,
// IdeIntf // IdeIntf
LCLIntf, IDEWindowIntf, IDEOptionsIntf, LCLIntf, IDEWindowIntf, IDEOptionsIntf, LazIDEIntf,
// AnchorDocking // AnchorDocking
AnchorDockStr, AnchorDocking, AnchorDesktopOptions, AnchorDockOptionsDlg; AnchorDockStr, AnchorDocking, AnchorDesktopOptions, AnchorDockOptionsDlg;
@ -266,13 +266,16 @@ begin
Site := nil; Site := nil;
for I := 0 to AIDEWindow.ControlCount-1 do for I := 0 to AIDEWindow.ControlCount-1 do
if AIDEWindow.Controls[I] is TAnchorDockHostSite then if AIDEWindow.Controls[I] is TAnchorDockHostSite then
begin begin
Site := TAnchorDockHostSite(AIDEWindow.Controls[I]); Site := TAnchorDockHostSite(AIDEWindow.Controls[I]);
Break; if (Site.Parent<>nil) and (Site.Parent=LazarusIDE.GetMainBar) then
end; Break // found
else
Site := nil;
end;
if not Assigned(Site) then if (Site=nil) or (Site.BoundSplitter=nil) then
Exit; Exit;
Site.BoundSplitter.Enabled := not AAdjustHeight; Site.BoundSplitter.Enabled := not AAdjustHeight;