diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index eaa9bf6085..d057819338 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4525,12 +4525,18 @@ var
           Canvas.Brush.Color := FSelectedColor;
           Canvas.Font.Color := InvertColor(Brush.Color);
           Canvas.FillRect(NodeRect);
-        end;
+        end
+      else
+      if not (tvoThemedDraw in Options) then
+        Canvas.Font.Color := Font.Color;
     end
     else
       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;