Changeset 175 for trunk/Packages/Common/UTheme.pas

Timestamp:

Feb 26, 2018, 10:08:13 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Wrong theming of TCustomDrawGrid Editor.
• Fixed: Update Editor width in TListViewSort filter gridview.

File:

• trunk/Packages/Common/UTheme.pas (modified) (2 diffs)

trunk/Packages/Common/UTheme.pas

@@ -138 +138 @@
     Control := (Component as TControl);
     if (Control is TEdit) or (Control is TSpinEdit) or (Control is TComboBox) and
-    (Control is TMemo) or (Control is TListView) or (Control is TStringGrid) or
+    (Control is TMemo) or (Control is TListView) or (Control is TCustomDrawGrid) or
     (Control is TCheckBox) then begin
       Control.Color := FTheme.ColorWindow;
@@ -145 +145 @@
       Control.Color := FTheme.ColorControl;
       Control.Font.Color := FTheme.ColorControlText;
+    end;
+
+    if Control is TCustomDrawGrid then begin
+      (Control as TCustomDrawGrid).Editor.Color := FTheme.ColorWindow;
+      (Control as TCustomDrawGrid).Editor.Font.Color := FTheme.ColorWindowText;
     end;
   end;