TToolBar: fix divider drawing when flat=true: draw 2 lines. Fixes issue #21193

git-svn-id: trunk@38926 -
This commit is contained in:
bart 2012-09-30 21:24:21 +00:00
parent 51374d258b
commit 5141e6ad8e

View File

@ -204,7 +204,7 @@ procedure TToolButton.Paint;
begin
if FToolBar.IsVertical then
begin
if (ARect.Bottom - ARect.Top) > 10 then
if (ARect.Bottom - ARect.Top) >= 10 then
begin
ARect.Top := (ARect.Top + ARect.Bottom) div 2 - 5;
ARect.Bottom := ARect.Top + 5;
@ -217,7 +217,7 @@ procedure TToolButton.Paint;
end
else
begin
if (ARect.Right - ARect.Left) > 10 then
if (ARect.Right - ARect.Left) >= 10 then
begin
ARect.Left := (ARect.Left + ARect.Right) div 2 - 5;
ARect.Right := ARect.Left + 5;