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

LCL: ChildSizing.Layout align right only when BidiMode=bdRightToLeft

Browse Source 
git-svn-id: trunk@20618 -
This commit is contained in:
mattias 2009-06-13 14:27:33 +00:00
parent 36306bcd2a
commit ad7de21ad9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/wincontrol.inc
View File

@ -1408,7 +1408,7 @@ begin
LineMax:=ChildCount[asboHorizontal];
Row:=i div LineMax;
Col:=i mod LineMax;
if (BiDiMode<>bdLeftToRight) then
if (BiDiMode=bdRightToLeft) then
Col:=LineMax-Col-1;
ChildBox:=Childs[asboHorizontal][Col].Childs[asboVertical][Row];
ChildBox.SetControl(ChildControl);
@ -1419,7 +1419,7 @@ begin
LineMax:=ChildCount[asboVertical];
Col:=i div LineMax;
Row:=i mod LineMax;
if (BiDiMode<>bdLeftToRight) then
if (BiDiMode=bdRightToLeft) then
Col:=LineMax-Col-1;
ChildBox:=Childs[asboVertical][Row].Childs[asboHorizontal][Col];
ChildBox.SetControl(ChildControl);
@ -2143,7 +2143,7 @@ begin
//WriteDebugReport('after SumTable');
ResizeTable(ChildSizing,TargetWidth,TargetHeight);
//WriteDebugReport('after ResizeTable');
if BiDiMode<>bdLeftToRight then
if BiDiMode=bdRightToLeft then
AlignToRight(TargetWidth);
//WriteDebugReport('after AlignToRight');
ComputeTableControlBounds(ChildSizing,BiDiMode);