pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: improved drawing of TJvTabBar by TJvTabBarXPPainter in Linux, still not perfect.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7418 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-29 09:31:02 +00:00
parent 91fdc9ea7f
commit 9f6e9183d3
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/jvcllaz/run/JvPageComps/jvtabbar.pas
View File

@ -1476,8 +1476,9 @@ begin
CalcTabsRects; CalcTabsRects;
Bmp := TBitmap.Create; Bmp := TBitmap.Create;
try try
Bmp.Width := ClientWidth; Bmp.SetSize(ClientWidth, ClientHeight);
Bmp.Height := ClientHeight; Bmp.Canvas.Brush.Color := clWhite;
Bmp.Canvas.FillRect(0, 0, Bmp.Width, Bmp.Height);
CurrentPainter.DrawBackground(Bmp.Canvas, Self, ClientRect); CurrentPainter.DrawBackground(Bmp.Canvas, Self, ClientRect);
if (FBtnLeftScroll.State <> sbsHidden) and (FBtnRightScroll.State <> sbsHidden) then if (FBtnLeftScroll.State <> sbsHidden) and (FBtnRightScroll.State <> sbsHidden) then
begin begin

1
components/jvcllaz/run/JvPageComps/jvtabbarxppainter.pas
View File

@ -128,6 +128,7 @@ begin
end end
else else
Dec(TextRect.Right, 3); 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); ThemeServices.DrawText(Canvas.Handle, TabDetails, Tab.Caption, TextRect, DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS, 0);
if Tab.TabBar.CloseButton then if Tab.TabBar.CloseButton then