anchor.diff:        if grdCompilerDirs.Cells[j, i] = cCheck then
           GProject.UnitDirsGrid[j, i] := True;
       end;
  +  end;
  +
  +  CleanupUserMacrosGrid;
  +  GProject.ClearAndInitMacrosGrid(grdUserMacros.RowCount);
  +  for i := 0 to grdUserMacros.RowCount-1 do
  +  begin
  +    GProject.MacroNames.Values[grdUserMacros.Cells[6, i]] := grdUserMacros.Cells[7, i];
     end;
   end;
   
  
positive.code:   begin
      if Trim(grdCompilerDirs.Cells[10, i]) = '' then
        grdCompilerDirs.DeleteRow(i);
    end;
  end;
  
  
negative.code:     procedure SetupCellEdit(AGrid: TfpgStringGrid);
      procedure CleanupCompilerMakeOptionsGrid;
      procedure CleanupCompilerDirs;
      procedure CleanupUserMacrosGrid;
      procedure SaveToMacroList(AList: TIDEMacroList);
    public
      constructor Create(AOwner: TComponent); override;
  