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

LCL: TToolBar: fixed layout when Horizontal and rows right to left, bug #26962

Browse Source 
git-svn-id: trunk@46888 -
This commit is contained in:
mattias 2014-11-19 16:18:35 +00:00
parent ca7db2fdc6
commit 09f76fa935
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/toolbar.inc
View File

@ -868,7 +868,10 @@ begin
end;
// adjust NewWidth, NewHeight
NewWidth := Max(NewWidth, x + w + AdjustClientFrame.Right);
if Vertical or RowsLeftToRight then
NewWidth := Max(NewWidth, x + w + AdjustClientFrame.Right)
else
NewWidth := Max(NewWidth, ARect.Right - x + ARect.Left + AdjustClientFrame.Right);
NewHeight := Max(NewHeight, y + h + AdjustClientFrame.Bottom);
// step to next position