Commit 801a25a5 authored by Juha Manninen's avatar Juha Manninen
Browse files

LCL: Fix a ChangeBoundLoop-Detected-Error with TControlBar. Issue #27855, patch from Vojtech Cihak.

git-svn-id: trunk@49007 -
parent c26b722a
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment