mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 10:50:53 +02:00
TToolBar: fix divider drawing when flat=true: draw 2 lines. Fixes issue #21193
git-svn-id: trunk@38926 -
This commit is contained in:
parent
51374d258b
commit
5141e6ad8e
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user