From 02956076e4cb177fed6f6f84434eaa2f3695ca44 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 5 Jun 2017 22:41:40 +0000
Subject: [PATCH] Merged revision(s) 55213 #f7785d9196 from trunk: LCL: Fixed
 access violation with Application.BidiMode bdRightToLeft and
 ChildSizing.Layout cclTopToBottomThenLeftToRight. Issue #31966 ........

git-svn-id: branches/fixes_1_8@55253 -
---
 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 37c70243d9..a13e00f245 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1560,7 +1560,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);