From 9f6e9183d38fc95e130ab687064dca02aac6bf73 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Apr 2020 09:31:02 +0000
Subject: [PATCH] jvcllaz: improved drawing of TJvTabBar by TJvTabBarXPPainter
 in Linux, still not perfect.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7418 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvPageComps/jvtabbar.pas          | 5 +++--
 components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas | 1 +
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/jvcllaz/run/JvPageComps/jvtabbar.pas b/components/jvcllaz/run/JvPageComps/jvtabbar.pas
index 71a258a71..d67ad4de2 100644
--- a/components/jvcllaz/run/JvPageComps/jvtabbar.pas
+++ b/components/jvcllaz/run/JvPageComps/jvtabbar.pas
@@ -1476,8 +1476,9 @@ begin
   CalcTabsRects;
   Bmp := TBitmap.Create;
   try
-    Bmp.Width := ClientWidth;
-    Bmp.Height := ClientHeight;
+    Bmp.SetSize(ClientWidth, ClientHeight);
+    Bmp.Canvas.Brush.Color := clWhite;
+    Bmp.Canvas.FillRect(0, 0, Bmp.Width, Bmp.Height);
     CurrentPainter.DrawBackground(Bmp.Canvas, Self, ClientRect);
     if (FBtnLeftScroll.State <> sbsHidden) and (FBtnRightScroll.State <> sbsHidden) then
     begin
diff --git a/components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas b/components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas
index e5506a2ba..412876ba8 100644
--- a/components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas
+++ b/components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas
@@ -128,6 +128,7 @@ begin
     end
     else
       Dec(TextRect.Right, 3);
+    Canvas.Brush.Style := bsClear;
     ThemeServices.DrawText(Canvas.Handle, TabDetails, Tab.Caption, TextRect, DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS, 0);
 
     if Tab.TabBar.CloseButton then