anchor.diff:    FGrid.RowCount:= 0;
     FGrid.ColCount:= 0;
     FGrid.ClearGrid;
  -  FGrid.OnDrawCell:= Self.OnDrawGridCell;
     FGrid.Flat:= true;
  -  FGrid.Options := FGrid.Options - [goThemes, goThemedCells];
  -  FGrid.OptionsEx:= [gxMouseWheelScroll];
  -  FNumericColumns := TmIntegerDictionary.Create(false);
  +  FGridHelper := TmKGridAsPivotHelper.Create;
  +  FGridHelper.Init(FPivoter, FGrid);
   end;
   
   destructor TUramakiKGridAsPivotPlate.Destroy;
   begin
     FPivoter.Free;
     FreeAndNil(FToolbar);
  -  FNumericColumns.Free;
  +  FGridHelper.Free;
     inherited Destroy;
   end;
   
  
positive.code:     FPivoter : TmPivoter;
      FDataProvider : IVDDataProvider;
      FGrid : TKGrid;
      FFilterPanel : TmFilterPanel;
      FToolbar : TUramakiToolbar;
      FConfigurePopupMenu : TPopupMenu;
      FNumericColumns : TmIntegerDictionary;
  
      procedure OnClearFilter (Sender : TObject);
      procedure OnExecuteFilter (Sender : TObject);
  
negative.code:   end;
  end;
  
  constructor TUramakiKGridAsPivotPlate.Create(TheOwner: TComponent);
  begin
    inherited Create(TheOwner);
  