Issue with AdvanceOnEnter and AdvanceAutoEdit


TMS Component Pack
Delphi 10.1 Berlin Update 2
Windows 7 X64

There is an issue with the grid when
AdvStringGrid1.Navigation.AdvanceOnEnter := True;
AdvStringGrid1.Navigation.AdvanceAutoEdit := False;

When you are on the last col of the grid, pressing enter does not end the edition process and you are stuck in edition.

To reproduce:
   AdvStringGrid1.FixedCols := 0;
   AdvStringGrid1.ColCount := 3;
   AdvStringGrid1.RowCount := 4;

   AdvStringGrid1.Options := AdvStringGrid1.Options + [goEditing];

   AdvStringGrid1.Navigation.AdvanceOnEnter := True;
   AdvStringGrid1.Navigation.AdvanceDirection := adLeftRightInRow;
   AdvStringGrid1.Navigation.AdvanceOnEnterLoop := False;

Run the project and spam enter. This works properly. (when you are on the last col, edit mode is toggled by pressing enter).
Now uncomment the last line,run the project again and spam enter. You will end up with the last cell stuck in edit mode. (edit mode is not toggled by pressing enter)

Can you fix this please?


We applied a fix for this specific case.