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

SpkToolbar: Use new property InactiveTabHeaderFontColor when painting inactive tabs.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5349 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-14 12:05:14 +00:00
parent 36650b5004
commit 812b1db7f8
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@ -1378,12 +1378,14 @@ procedure TSpkToolbar.ValidateBuffer;
var var
x, y: integer; x, y: integer;
TabRect: T2DIntRect; TabRect: T2DIntRect;
clr: TColor;
begin begin
TabRect := FTabRects[index]; TabRect := FTabRects[index];
FBuffer.canvas.font.Assign(AFont); FBuffer.canvas.font.Assign(AFont);
if AOverrideTextColor <> clNone then if AOverrideTextColor <> clNone then
FBuffer.Canvas.Font.Color := AOverrideTextColor; clr := AOverrideTextColor else
clr := AFont.Color;
x := TabRect.left + (TabRect.Width - FBuffer.Canvas.textwidth( x := TabRect.left + (TabRect.Width - FBuffer.Canvas.textwidth(
FTabs[index].Caption)) div 2; FTabs[index].Caption)) div 2;
y := TabRect.top + (TabRect.Height - FBuffer.Canvas.Textheight('Wy')) div 2; y := TabRect.top + (TabRect.Height - FBuffer.Canvas.Textheight('Wy')) div 2;
@ -1392,7 +1394,7 @@ procedure TSpkToolbar.ValidateBuffer;
x, x,
y, y,
FTabs[index].Caption, FTabs[index].Caption,
AFont.Color, clr,
FTabClipRect); FTabClipRect);
end; end;