anchor.diff:      function Check : boolean;
       procedure Init (aFormulas : TmFormulaFields);
       procedure UpdateFormulaFields;
  -
     end;
   
   implementation
   
   uses
  -  mDBGrid;
  +  Graphics,
  +  mUtility, mMathUtility;
   
   {$R *.lfm}
   
  
positive.code: 
  procedure TFormulaFieldsConfFrame.AddButtonClick(Sender: TObject);
  begin
    FDataset.DisableControls;
    try
      FDataset.Append;
      FDataset.FieldByName('FldName').AsString := 'NEWFIELD';
      FDataset.FieldByName('FldType').AsString := 'DOUBLE';
      FDataset.FieldByName('FldFormula').AsString := '1';
      FDataset.Post;
    finally
      FDataset.EnableControls;
    end;
  end;
  
  procedure TFormulaFieldsConfFrame.RemoveButtonClick(Sender: TObject);
  begin
    if FDataset.IsEmpty then
      exit;
  
    FDataset.DisableControls;
    try
      FDataset.Delete;
    finally
      FDataset.EnableControls;
    end;
  end;
  
  procedure TFormulaFieldsConfFrame.OnSelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl);
  begin
    if Column.FieldName = 'FldType' then
    begin
      if (Editor is TCustomComboBox) then
      begin
  
negative.code: interface
  
  uses
    Classes, SysUtils, BufDataset, FileUtil, Forms, Controls, DBGrids, Grids,
    StdCtrls, ExtCtrls,Dialogs,
    SynEdit,
    mVirtualDatasetFormulas;
  
  resourcestring
  