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

LCL: anchordocking: enlargecontrol: updating title

Browse Source 
git-svn-id: trunk@14003 -
This commit is contained in:
mattias 2008-02-06 14:38:21 +00:00
parent 32a23b4bf2
commit cb9458c6c0
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/ldocktree.pas
View File

@ -1,4 +1,3 @@
{ $Id$ }
{
/***************************************************************************
LDockTree.pas
@ -1450,7 +1449,7 @@ end;
function TCustomAnchoredDockManager.GetPreferredTitlePosition(AWidth,
AHeight: integer): TAnchorKind;
begin
if (AWidth<=AHeight) and (AWidth<200) then
if AWidth>((AHeight*3) div 2) then
Result:=akLeft
else
Result:=akTop;
@ -1460,13 +1459,18 @@ procedure TCustomAnchoredDockManager.UpdateTitlePosition(Control: TControl);
var
TitlePos: TAnchorKind;
begin
TitlePos:=GetPreferredTitlePosition(Control.Width,Control.Height);
if TitlePos=akLeft then begin
Control.BorderSpacing.Left:=TitleWidth;
Control.BorderSpacing.Top:=0;
if Control.Parent is TLazDockForm then begin
TitlePos:=GetPreferredTitlePosition(Control.Width,Control.Height);
if TitlePos=akLeft then begin
Control.BorderSpacing.Left:=TitleWidth;
Control.BorderSpacing.Top:=0;
end else begin
Control.BorderSpacing.Left:=0;
Control.BorderSpacing.Top:=TitleHeight;
end;
end else begin
Control.BorderSpacing.Left:=0;
Control.BorderSpacing.Top:=TitleHeight;
Control.BorderSpacing.Top:=0;
end;
end;
@ -2205,6 +2209,7 @@ begin
end;
end;
end;
UpdateTitlePosition(Control);
end;
end else begin
@ -2253,6 +2258,8 @@ begin
MainSplitter.AnchorToNeighbour(ShrinkSide,0,EnlargeSplitter);
EnlargeSplitter.AnchorSame(Side,Neighbour);
Control.AnchorSame(Side,Neighbour);
UpdateTitlePosition(Control);
UpdateTitlePosition(Neighbour);
end;
end;
finally