Changeset 506

Timestamp:

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

Author:

chronos

Message:

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

Location:

Common

Files:

• UListViewSort.pas (modified) (2 diffs)
• UTheme.pas (modified) (2 diffs)

Common/UListViewSort.pas

@@ -144 +144 @@
 begin
   with FStringGrid1 do begin
+    Options := Options - [goEditing, goAlwaysShowEditor];
     //Columns.Clear;
     while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
@@ -150 +151 @@
       Columns[I].Width := ListView.Columns[I].Width;
     end;
+    Options := Options + [goEditing, goAlwaysShowEditor];
   end;
 end;

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;