From 6ec7357462ff9aed2cd869e65652c6a0bebe687b Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 10 May 2014 14:40:00 +0000
Subject: [PATCH] LCL, TCoolbar: Share code from IsRowEnd function.

git-svn-id: trunk@44993 -
---
 lcl/comctrls.pp         |  1 +
 lcl/include/coolbar.inc | 14 ++++++++------
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 60f265e4de..798abd9b2a 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -2342,6 +2342,7 @@ type
     FVertical: Boolean;
     FOnChange: TNotifyEvent;
     function GetAlign: TAlign;
+    function RowEndHelper(ALeft, AVisInd: Integer): Boolean;
     procedure SetBandBorderStyle(AValue: TBorderStyle);
     procedure SetBands(AValue: TCoolBands);
     procedure SetBitmap(aValue: TBitmap);
diff --git a/lcl/include/coolbar.inc b/lcl/include/coolbar.inc
index 945225bc74..7619ffb601 100644
--- a/lcl/include/coolbar.inc
+++ b/lcl/include/coolbar.inc
@@ -457,9 +457,7 @@ begin
     if (FVisiBands[i].Break or Vertical) or aRowEnd then aLeft := cBorderWidth;
     aHeight := Max(aHeight, FVisiBands[i].CalcPreferredHeight);
     inc(aLeft, FVisiBands[i].Width);
-    aRowEnd := (i = aCountM1) or ((i < aCountM1)
-      and ((FVisiBands[i+1].Break or Vertical)
-      or ((aLeft+FVisiBands[i+1].Width) > (ClientWidth-2*cBorderWidth))));
+    aRowEnd := (i = aCountM1) or ( (i < aCountM1) and RowEndHelper(ALeft, i) );
     //Set all Bands in row to uniform height
     if aRowEnd then begin
       for y := aStartIndex to i do
@@ -590,11 +588,15 @@ begin
   CalculateAndAlign;
 end;
 
+function TCustomCoolBar.RowEndHelper(ALeft, AVisInd: Integer): Boolean;
+begin
+  Result := FVisiBands[AVisInd+1].Break  or Vertical
+    or (ALeft+FVisiBands[AVisInd+1].Width > ClientWidth);
+end;
+
 function TCustomCoolBar.IsRowEnd(ALeft, AVisibleIndex: Integer): Boolean;
 begin
-  Result := (AVisibleIndex < (length(FVisiBands)-1))
-    and ((FVisiBands[AVisibleIndex+1].Break or Vertical)
-    or ((ALeft+FVisiBands[AVisibleIndex+1].Width) > ClientWidth));
+  Result := (AVisibleIndex < length(FVisiBands)-1) and RowEndHelper(ALeft, AVisibleIndex);
 end;
 
 procedure TCustomCoolBar.InsertControl(AControl: TControl; Index: integer);