diff --git a/lcl/interfaces/qt/qtthemes.pas b/lcl/interfaces/qt/qtthemes.pas
index f4b4b46cce..91f84c7d49 100644
--- a/lcl/interfaces/qt/qtthemes.pas
+++ b/lcl/interfaces/qt/qtthemes.pas
@@ -568,7 +568,7 @@ var
   Context: TQtDeviceContext;
   Widget: QWidgetH;
   W: WideString;
-  TextRect: TRect;
+  TextRect, SelRect: TRect;
   AOldMode: Integer;
   ATextPalette: Cardinal;
   AQColor: TQColor;
@@ -709,6 +709,13 @@ begin
         begin
           if IsDisabled(Details) then
             QPalette_setCurrentColorGroup(Palette, QPaletteDisabled);
+          if GetControlState(Details) and QStyleState_Selected <> 0 then
+          begin
+            Context.font.Metrics.boundingRect(@SelRect, @R, DTFlagsToQtFlags(Flags), @W);
+            ColorRefToTQColor(ColorToRGB(clHighlight), AQColor);
+            QPainter_fillRect(Context.Widget, @SelRect,  PQColor(@AQColor));
+            ATextPalette := QPaletteHighlightedText;
+          end;
         end;
 
         QStyle_drawItemText(Style, Context.Widget, @R,