TLabeledDbGrid: added cell color highlight when HighlightCurrRow property is enabled even using VCL Styles

Author: bruzzoneale

Source/Vcl.LabeledDBCtrls.pas

@@ -1754,7 +1754,11 @@ procedure TLabeledDbGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
           if DefaultWindowsStyleEnabled then
             CellColor := clInfoBk
           else
-            CellColor := GetCellColor;
+          //CellColor := GetCellColor;
+          begin
+            CellColor := LightenColor(GetStyledColor(clHighlight), 150);
+            Canvas.Font.Color :=LightenColor(GetStyledColor(clHighlightText), 25);
+          end;
         end
         else
           CellColor := GetCellColor;