From f7785d91968d08383f06318f125089960bf5db40 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Sun, 4 Jun 2017 15:40:37 +0000
Subject: [PATCH] LCL: Fixed access violation with Application.BidiMode
 bdRightToLeft and ChildSizing.Layout cclTopToBottomThenLeftToRight. Issue
 #31966

git-svn-id: trunk@55213 -
---
 lcl/include/wincontrol.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 0ccaa4f654..0796ba31aa 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1563,7 +1563,7 @@ begin
         Col:=i div LineMax;
         Row:=i mod LineMax;
         if (BiDiMode=bdRightToLeft) then
-          Col:=LineMax-Col-1;
+          Col:=ChildCount[asboHorizontal]-Col-1;
         ChildBox:=Children[asboVertical][Row].Children[asboHorizontal][Col];
         ChildBox.SetControl(ChildControl);
         ChildBox.ApplyChildsizingBorders(ChildSizing);