Bug fix for shortcuts background color.

Author: FMXExpress

Source/VCL/devShortcuts/devShortcutsEditorForm.dfm

@@ -45,6 +45,7 @@ object frmShortcutsEditor: TfrmShortcutsEditor
     ColumnClick = False
     ReadOnly = True
     RowSelect = True
+    ParentColor = True
     TabOrder = 0
     ViewStyle = vsReport
     OnCustomDrawItem = lvShortcutsCustomDrawItem

Source/VCL/devShortcuts/devShortcutsEditorForm.pas

@@ -24,7 +24,7 @@ interface
 uses
 {$IFDEF WIN32}
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Menus, devShortcuts;
+  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Menus, devShortcuts, Vcl.Themes;
 {$ENDIF}
 {$IFDEF LINUX}
 SysUtils, Variants, Classes, QGraphics, QControls, QForms,
@@ -193,9 +193,9 @@ procedure TfrmShortcutsEditor.lvShortcutsCustomDrawItem(Sender: TCustomListView;
   with Sender.Canvas do begin
     if not (cdsSelected in State) then begin
       if Item.Index mod 2 = 0 then
-        Brush.Color := clWhite
+        Brush.Color := lvShortcuts.Color
       else
-        Brush.Color := $E0E0E0;
+        Brush.Color := StyleServices.GetStyleColor(scGenericBackground);
     end;
   end;
 end;