paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 10:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fixed themed text draw of selected treeview item.

Browse Source
This commit is contained in:
zeljan1 2025-01-12 15:28:36 +01:00
parent b348ac054c
commit 395b854b3c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt5/qtthemes.pas
View File

@ -695,7 +695,17 @@ begin
QPainter_fillRect(Context.Widget, @TextRect, QtSolidPattern);
end;
end;
{$IFDEF MSWINDOWS}
if StyleName = 'windowsvista' then // fix for text of selected treeitem.
begin
if (Palette <> nil) and (QPalette_currentColorGroup(Palette) = QPaletteActive) then
begin
AQColor := Default(TQColor);
ColorRefToTQColor(ColorToRGB(clWindowText), AQColor);
QPalette_setColor(Palette, QPaletteHighlightedText, PQColor(@AQColor));
end;
end;
{$ENDIF}
QStyle_drawItemText(Style, Context.Widget, @R,
DTFlagsToQtFlags(Flags), Palette,
not IsDisabled(Details), @W, QPaletteHighlightedText)