anchor.diff:    end;
   end;
   
  -procedure TUramakiKGridAsPivotPlate.OnDrawGridCell(Sender: TObject; ACol, ARow: Integer; R: TRect; State: TKGridDrawState);
  -begin
  -  // https://forum.lazarus.freepascal.org/index.php/topic,44833.msg315562.html#msg315562
  -
  -  FGrid.Cell[ACol, ARow].ApplyDrawProperties;
  -
  -  if (ARow < FGrid.FixedRows) and (ACol >= FGrid.FixedCols) then
  -  begin
  -    FGrid.CellPainter.HAlign:=halCenter;
  -    FGrid.CellPainter.VAlign:=valCenter;
  -    FGrid.CellPainter.BackColor:= COLOR_clButton;
  -  end
  -  else if FNumericColumns.Contains(ACol) then
  -  begin
  -    FGrid.CellPainter.HAlign:=halRight;
  -  end;
  -
  -  FGrid.CellPainter.DefaultDraw;
  -end;
  -
   constructor TUramakiKGridAsPivotPlate.Create(TheOwner: TComponent);
   begin
     inherited Create(TheOwner);
  
positive.code: 
  uses
    sysutils,
    kgraphics,
    mWaitCursor, mPivotSettings, mPivotSettingsForm, mPivoterToKGrid;
  
  { TUramakiKGridAsPivotPlate }
  
  
negative.code:     FPivoter : TmPivoter;
      FDataProvider : IVDDataProvider;
      FGrid : TKGrid;
      FGridHelper : TmKGridAsPivotHelper;
      FFilterPanel : TmFilterPanel;
      FToolbar : TUramakiToolbar;
      FConfigurePopupMenu : TPopupMenu;
  
      procedure OnClearFilter (Sender : TObject);
      procedure OnExecuteFilter (Sender : TObject);
  