OS: Debian 10 LXDE 64bit
Lazarus 2.0.12
FPC 3.2.0
TMS FNC UI Pack v3.5.2.1
rows:
1 PRVI
2 DRUGI
3 TRECI
if kursor first row (PRVI)
click to last row (TRECI) and insert
PRVI
1 PRVI
2 DRUGI
not 3 TRECI
and blank row
(This happens differently, depending on what I've done before.
the problem is when I got to the back row)
Source code:
TForm1 = class(TForm)
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
MemDataset1: TMemDataset;
TMSFNCGrid1: TTMSFNCGrid;
TMSFNCGridDatabaseAdapter1: TTMSFNCGridDatabaseAdapter;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
With MemDataset1.FieldDefs do begin
Add('PaketD', ftString, 14, True);
Add('Paket', ftString, 14, True);
End;
MemDataset1.CreateTable;
DataSource1.DataSet := MemDataset1;
MemDataset1.Open;
TMSFNCGridDatabaseAdapter1.Active := true;
end;