diff --git a/source/main.pas b/source/main.pas index aa6dfaa7..049435f9 100644 --- a/source/main.pas +++ b/source/main.pas @@ -3359,7 +3359,7 @@ begin col := NewTab.Grid.Header.Columns.Add; col.CaptionAlignment := taRightJustify; col.Alignment := taRightJustify; - col.Options := col.Options + [coFixed]- [coAllowClick, coAllowFocus]; + col.Options := col.Options + [coFixed]- [coAllowClick, coAllowFocus, coEditable, coResizable]; col.Text := '#'; for i:=0 to NewTab.Results.ColumnCount-1 do begin col := NewTab.Grid.Header.Columns.Add; @@ -6030,7 +6030,7 @@ begin Col := vt.Header.Columns.Add; Col.CaptionAlignment := taRightJustify; Col.Alignment := taRightJustify; - Col.Options := col.Options + [coFixed]- [coAllowClick, coAllowFocus]; + Col.Options := col.Options + [coFixed]- [coAllowClick, coAllowFocus, coEditable, coResizable]; Col.Text := '#'; for i:=0 to WantedColumns.Count-1 do begin InitColumn(i, WantedColumns[i]); diff --git a/source/table_editor.pas b/source/table_editor.pas index 440d30d0..3777656f 100644 --- a/source/table_editor.pas +++ b/source/table_editor.pas @@ -1354,13 +1354,14 @@ begin end; // No specific colors for selected nodes, would interfere with blue selection background - if vsSelected in Node.States then Exit; - // Break early if nothing to do - if not (Column in [2, 7]) then Exit; + // Disabled in Oct 2023, probably works better than expected + //if vsSelected in Node.States then Exit; // Give datatype column specific color, as set in preferences TextColor := TargetCanvas.Font.Color; case Column of + 0: TextColor := clGrayText; + 2: TextColor := DatatypeCategories[Col.DataType.Category].Color; 7: case Col.DefaultType of