paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:36:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set canvas.font.color if treeview item is selected otherwise we cannot see text anymore (qt,gtk,gtk2)

Browse Source 
git-svn-id: trunk@24849 -
This commit is contained in:
zeljko 2010-04-23 11:09:14 +00:00
parent 7b5a4418e3
commit 37436b5e47
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/treeview.inc
View File

@ -4527,6 +4527,11 @@ var
end
else
Details := ThemeServices.GetElementDetails(ttItemNormal);
if ((tvoThemedDraw in Options) or
(tvoRowSelect in Options)) and IsSelected then
Canvas.Font.Color := InvertColor(Brush.Color);
ThemeServices.DrawText(Canvas, Details, AText, NodeRect, DT_CENTER or DT_VCENTER, 0);
end;