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

lcl: anchor docking: update caption when we undock control (issue #0012196 by Benito van der Zander)

Browse Source 
git-svn-id: trunk@20255 -
This commit is contained in:
paul 2009-05-27 03:20:53 +00:00
parent 663367c26a
commit d7bdad9b50
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/ldocktree.pas
View File

@ -2528,6 +2528,10 @@ begin
//DebugLn('TCustomAnchoredDockManager.UndockControl Splitter not needed: ',DbgSName(AnchorSplitter),'(',dbgs(AnchorSplitter.BoundsRect),')');
DeleteSideSplitter(AnchorSplitter,OppositeAnchor[a],
OldAnchorControls[OppositeAnchor[a]]);
//update caption
if (ParentControl is TLazDockPage) and (TLazDockPage(ParentControl).ControlCount > 1) and
(TLazDockPage(ParentControl).Controls[0] = Control) then
TLazDockPage(ParentControl).Caption := TLazDockPage(ParentControl).Controls[1].Caption;
Done:=true;
end;
end;