How to set post at field and not row

FNC TMS FNC UI Pack
1

fncgrid has a Autopost apcell or aprow
Where is it set in fncdatagrid ?

FncDatagrid is defaulting to aprow autopost
I need it to autopost at apcell

Thanks
Garnet

2

We'll investigate asap.

3

AutoPost (or PostMode) has been removed as a feature, because the datagrid uses a different way of navigating through the data. As soon as a MoveBy is done, it automatically posts to the dataset. By default this is actually a apRow post mode. You can automatically post the cell content after changing the contents by using

procedure TForm1.TMSFNCDataGrid1AfterCloseInplaceEditor(Sender: TObject;
  ACell: TTMSFNCDataGridCellCoord; ACancel: Boolean;
  AValue: TTMSFNCDataGridCellValue);
begin
  if not ACancel then
  begin
    if TMSFNCDataGridDatabaseAdapter1.DataLink.DataSet.State in [dsEdit] then
      TMSFNCDataGridDatabaseAdapter1.DataLink.DataSet.Post;
  end;
end;
4

It does not work for checkbox fields using
DataGrid1AfterCloseInplaceEditor`, but does work for others.
I tried using it here and it does not work either because when I click the checkbox,it messes up the grid with data everywhere until I click on column0 which is the key column and everything looks good how to fix the data everywhere when I click it:
procedure TTableForm.CATEGORYDataGridCellCheckBoxChange(Sender: TObject;
AColumn, ARow: Integer);
begin
IF (DataGridDatabaseAdapter6B.DataLink.DataSet.State in [dsEdit]) then
begin
DataGridDatabaseAdapter6B.DataLink.DataSet.Post;
end;
end;

Thanks
Garnet

5

showing the following procedures for the following images after click checkbox

procedure TTableForm.CATEGORYDataGridAfterCloseInplaceEditor(Sender: TObject;
ACell: TTMSFNCDataGridCellCoord; ACancel: Boolean;
AValue: TTMSFNCDataGridCellValue);
begin
if not ACancel then
begin
if DataGridDatabaseAdapter6B.DataLink.DataSet.State in [dsEdit] then
DataGridDatabaseAdapter6B.DataLink.DataSet.Post;
LABEL1.Text := 'Status: Updated : '+AVALUE.ToString;
end;
end;

procedure TTableForm.CATEGORYDataGridCellCheckBoxChange(Sender: TObject;
AColumn, ARow: Integer);
begin
if DataGridDatabaseAdapter6B.DataLink.DataSet.State in [dsEdit] then
begin
DataGridDatabaseAdapter6B.DataLink.DataSet.Post;
LABEL1.Text := 'Status: Updated : checkbox click';
end;
end;

categorya
categorya475×362 4.55 KB

category
category638×362 5.53 KB

Thanks
Garnett

6

Hi,

We've introduced some changes/improvements to the TTMSFNCDataGridDatabaseAdapter. Next version will have those changes applied. Then you will be able to use this code:

procedure TForm1.TMSFNCDataGrid1CellCheckBoxChange(Sender: TObject; AColumn,
  ARow: Integer);
begin
  TMSFNCDataGridDatabaseAdapter1.BeginUpdate;
  if TMSFNCDataGridDatabaseAdapter1.DataSetIsEditing then
    TMSFNCDataGridDatabaseAdapter1.DataSetPost;
  TMSFNCDataGridDatabaseAdapter1.EndUpdate;
end;