From 801a25a549d8f75ffde7a34a4f540718d33622d0 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 12 May 2015 22:26:31 +0000
Subject: [PATCH] LCL: Fix a ChangeBoundLoop-Detected-Error with TControlBar.
 Issue #27855, patch from Vojtech Cihak.

git-svn-id: trunk@49007 -
---
 lcl/include/controlbar.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/controlbar.inc b/lcl/include/controlbar.inc
index 1ec1f1973e..5f06a37ae3 100644
--- a/lcl/include/controlbar.inc
+++ b/lcl/include/controlbar.inc
@@ -103,6 +103,7 @@ end;
 
 procedure TCustomControlBar.AlignControlToBand(ABand: TCtrlBand; ARightToLeft: Boolean);
 begin
+  ABand.Control.Align:=alNone;
   ABand.Control.Top := ABand.Top + (ABand.Height - ABand.Control.Height) div 2;
   if not ARightToLeft then
     ABand.Control.Left := ABand.Left + cFullGrabber