Issue #861: same style for row id column in grid and table editor

This commit is contained in:
Ansgar Becker
2023-10-10 06:42:52 +02:00
parent 9f05f5ff8b
commit 495ced5bae
2 changed files with 6 additions and 5 deletions

View File

@@ -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]);

View File

@@ -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