Skip to content

Commit

Permalink
Issue #1899: fix wrong column number on column selector above data grid
Browse files Browse the repository at this point in the history
  • Loading branch information
ansgarbecker committed Feb 4, 2024
1 parent 651c290 commit d43893b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion source/main.pas
Expand Up @@ -6059,7 +6059,7 @@ procedure TMainForm.DataGridBeforePaint(Sender: TBaseVirtualTree; TargetCanvas:
Col.Text := '#';
for i:=0 to WantedColumns.Count-1 do begin
InitColumn(i, WantedColumns[i]);
if coVisible in vt.Header.Columns[i].Options then
if coVisible in vt.Header.Columns[i+1].Options then
Inc(VisibleColumns);
end;

Expand Down

0 comments on commit d43893b

Please sign in to comment.