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

anchordocking: update percent position after anchor change. Issue

Browse Source 
git-svn-id: trunk@51184 -
This commit is contained in:
ondrej 2016-01-04 12:24:28 +00:00
parent cd9428cf47
commit f5509e82cb
1 changed files with 9 additions and 2 deletions

11
components/anchordocking/anchordocking.pas
View File

@ -6047,6 +6047,9 @@ begin
akRight: Anchors:=AnchorAlign[alRight];
akBottom: Anchors:=AnchorAlign[alBottom];
end;
UpdatePercentPosition;
//debugln(['TAnchorDockSplitter.SetResizeAnchor ',DbgSName(Self),' ResizeAnchor=',dbgs(ResizeAnchor),' Align=',dbgs(Align),' Anchors=',dbgs(Anchors)]);
end;
@ -6074,10 +6077,14 @@ begin
case ResizeAnchor of
akTop, akBottom:
if FDockParentClientSize.cy > 0 then
FPercentPosition := Top / FDockParentClientSize.cy;
FPercentPosition := Top / FDockParentClientSize.cy
else
FPercentPosition := -1;
else
if FDockParentClientSize.cx > 0 then
FPercentPosition := Left / FDockParentClientSize.cx;
FPercentPosition := Left / FDockParentClientSize.cx
else
FPercentPosition := -1;
end;
end;