Changeset 506 for Common


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • Common/UListViewSort.pas

    r504 r506  
    144144begin
    145145  with FStringGrid1 do begin
     146    Options := Options - [goEditing, goAlwaysShowEditor];
    146147    //Columns.Clear;
    147148    while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
     
    150151      Columns[I].Width := ListView.Columns[I].Width;
    151152    end;
     153    Options := Options + [goEditing, goAlwaysShowEditor];
    152154  end;
    153155end;
  • Common/UTheme.pas

    r504 r506  
    138138    Control := (Component as TControl);
    139139    if (Control is TEdit) or (Control is TSpinEdit) or (Control is TComboBox) and
    140     (Control is TMemo) or (Control is TListView) or (Control is TStringGrid) or
     140    (Control is TMemo) or (Control is TListView) or (Control is TCustomDrawGrid) or
    141141    (Control is TCheckBox) then begin
    142142      Control.Color := FTheme.ColorWindow;
     
    145145      Control.Color := FTheme.ColorControl;
    146146      Control.Font.Color := FTheme.ColorControlText;
     147    end;
     148
     149    if Control is TCustomDrawGrid then begin
     150      (Control as TCustomDrawGrid).Editor.Color := FTheme.ColorWindow;
     151      (Control as TCustomDrawGrid).Editor.Font.Color := FTheme.ColorWindowText;
    147152    end;
    148153  end;
Note: See TracChangeset for help on using the changeset viewer.