- Timestamp:
- Feb 26, 2018, 10:10:02 AM (7 years ago)
- Location:
- Common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UListViewSort.pas
r504 r506 144 144 begin 145 145 with FStringGrid1 do begin 146 Options := Options - [goEditing, goAlwaysShowEditor]; 146 147 //Columns.Clear; 147 148 while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1); … … 150 151 Columns[I].Width := ListView.Columns[I].Width; 151 152 end; 153 Options := Options + [goEditing, goAlwaysShowEditor]; 152 154 end; 153 155 end; -
Common/UTheme.pas
r504 r506 138 138 Control := (Component as TControl); 139 139 if (Control is TEdit) or (Control is TSpinEdit) or (Control is TComboBox) and 140 (Control is TMemo) or (Control is TListView) or (Control is T StringGrid) or140 (Control is TMemo) or (Control is TListView) or (Control is TCustomDrawGrid) or 141 141 (Control is TCheckBox) then begin 142 142 Control.Color := FTheme.ColorWindow; … … 145 145 Control.Color := FTheme.ColorControl; 146 146 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; 147 152 end; 148 153 end;
Note:
See TracChangeset
for help on using the changeset viewer.