paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Calc TCoolBar's aRowEnd also when BandBorderStyle <> bsSingle. Issue #32278, patch from Andrey Zubarev.

Browse Source 
git-svn-id: trunk@55702 -
This commit is contained in:
juha 2017-08-19 16:03:31 +00:00
parent 6169b87086
commit b7db927ade
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/coolbar.inc
View File

@ -1305,14 +1305,14 @@ begin
Canvas.Brush.Style := bsClear;
Canvas.TextOut(aRect.Left, aRect.Top, FVisiBands[i].Text);
end;
if not FRightToLeft or Vertical then
aRowEnd := IsRowEnd(aLeft, i)
else
aRowEnd := IsRowEnd(Width-x, i);
if BandBorderStyle = bsSingle then begin
//paint a Separator border below the row of bands ____
x := aLeft;
inc(aLeft, FVisiBands[i].Width);
if not FRightToLeft or Vertical then
aRowEnd := IsRowEnd(aLeft, i)
else
aRowEnd := IsRowEnd(Width-x, i);
if (aRowEnd or ((i = aCountM1) and not AutoSize)) then begin
if not Vertical or not FRightToLeft then
PaintSeparator(aTop+FVisiBands[i].FHeight)