paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-06 13:25:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't use ThemeServices for drawing node text if treeview is not themed

Browse Source 
git-svn-id: trunk@24886 -
This commit is contained in:
paul 2010-04-24 17:01:07 +00:00
parent cc6a63ed9d
commit 1c2ac82980
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/treeview.inc
View File

@ -4525,12 +4525,18 @@ var
Canvas.Brush.Color := FSelectedColor; Canvas.Brush.Color := FSelectedColor;
Canvas.Font.Color := InvertColor(Brush.Color); Canvas.Font.Color := InvertColor(Brush.Color);
Canvas.FillRect(NodeRect); Canvas.FillRect(NodeRect);
end; end
else
if not (tvoThemedDraw in Options) then
Canvas.Font.Color := Font.Color;
end end
else else
Details := ThemeServices.GetElementDetails(ttItemNormal); Details := ThemeServices.GetElementDetails(ttItemNormal);
ThemeServices.DrawText(Canvas, Details, AText, NodeRect, DT_CENTER or DT_VCENTER, 0); if (tvoThemedDraw in Options) then
ThemeServices.DrawText(Canvas, Details, AText, NodeRect, DT_CENTER or DT_VCENTER, 0)
else
DrawText(Canvas.Handle, PChar(AText), -1, NodeRect, DT_CENTER or DT_VCENTER);
end; end;