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

Merged revision(s) 55213 #f7785d9196 from trunk:

Browse Source 
LCL: Fixed access violation with Application.BidiMode bdRightToLeft and ChildSizing.Layout cclTopToBottomThenLeftToRight. Issue #31966
........

git-svn-id: branches/fixes_1_8@55253 -
This commit is contained in:
maxim 2017-06-05 22:41:40 +00:00
parent a0d5e25efe
commit 02956076e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -1560,7 +1560,7 @@ begin
Col:=i div LineMax; Col:=i div LineMax;
Row:=i mod LineMax; Row:=i mod LineMax;
if (BiDiMode=bdRightToLeft) then if (BiDiMode=bdRightToLeft) then
Col:=LineMax-Col-1; Col:=ChildCount[asboHorizontal]-Col-1;
ChildBox:=Children[asboVertical][Row].Children[asboHorizontal][Col]; ChildBox:=Children[asboVertical][Row].Children[asboHorizontal][Col];
ChildBox.SetControl(ChildControl); ChildBox.SetControl(ChildControl);
ChildBox.ApplyChildsizingBorders(ChildSizing); ChildBox.ApplyChildsizingBorders(ChildSizing);