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

* Handle default font color (trunk)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4410 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2015-12-29 18:57:13 +00:00
parent 286d9b5de4
commit ff1da55ac3
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -8049,6 +8049,7 @@ procedure TVirtualTreeColumns.DrawButtonText(DC: HDC; Caption: String; Bounds: T
var
TextSpace: Integer;
TextColor: TColor;
Size: TSize;
begin
@ -8065,12 +8066,11 @@ begin
if not Enabled then
if FHeader.Treeview.VclStyleEnabled then
begin
SetTextColor(DC, ColorToRGB(FHeader.Treeview.FColors.HeaderFontColor));
{$ifdef Windows}
Windows.DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat);
{$else}
LCLIntf.DrawText(DC, PChar(Caption), Length(Caption), Bounds, DrawFormat);
{$endif}
TextColor := FHeader.Treeview.FColors.HeaderFontColor;
if TextColor = clDefault then
TextColor := clCaptionText;
SetTextColor(DC, ColorToRGB(TextColor));
DrawText(DC, PChar(Caption), Length(Caption), Bounds, DrawFormat);
end
else
begin
@ -8084,9 +8084,12 @@ begin
else
begin
if Hot then
SetTextColor(DC, ColorToRGB(FHeader.Treeview.FColors.HeaderHotColor))
TextColor := FHeader.Treeview.FColors.HeaderHotColor
else
SetTextColor(DC, ColorToRGB(FHeader.Treeview.FColors.HeaderFontColor));
TextColor := FHeader.Treeview.FColors.HeaderFontColor;
if TextColor = clDefault then
TextColor := clCaptionText;
SetTextColor(DC, ColorToRGB(TextColor));
DrawText(DC, PChar(Caption), Length(Caption), Bounds, DrawFormat);
end;
end;
@ -32954,6 +32957,8 @@ begin
end;
end;
end;
if Canvas.Font.Color = clDefault then
Canvas.Font.Color := clWindowText;
end;
end;