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