Fix #1887 - Data grid surprisingly resets horizontal scroll position

This commit is contained in:
Jochen Neubeck
2024-02-25 09:28:34 +01:00
committed by Ansgar Becker
parent 068893c629
commit 484c08b2ed

View File

@@ -6090,12 +6090,6 @@ begin
DataGridFocusedNodeIndex := Min(DataGridFocusedNodeIndex, Int64(vt.RootNodeCount)-1);
SelectNode(vt, DataGridFocusedNodeIndex);
for i:=0 to vt.Header.Columns.Count-1 do begin
if vt.Header.Columns[i].Text = DataGridFocusedColumnName then begin
vt.FocusedColumn := i;
break;
end;
end;
if RefreshingData then begin
if (FDataGridLastClickedColumnHeader >= 0) and (FDataGridLastClickedColumnHeader < vt.Header.Columns.Count) then begin // See issue #3309
@@ -6108,6 +6102,12 @@ begin
vt.OffsetXY := OldScrollOffset;
end;
for i:=0 to vt.Header.Columns.Count-1 do begin
if vt.Header.Columns[i].Text = DataGridFocusedColumnName then begin
vt.FocusedColumn := i;
break;
end;
end;
// Reset remembered data for last clicked column header
FDataGridLastClickedColumnHeader := NoColumn;