anchor.diff:      FHeaderColor : TColor;
       FGrandtotalsColor : TColor;
       procedure OnDrawGridCell (Sender: TObject; ACol, ARow: Integer; R: TRect; State: TKGridDrawState);
  +    procedure OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     public
       constructor Create; override;
       destructor Destroy; override;
  
positive.code: implementation
  
  uses
    sysutils, LCLType,
    kfunctions, kgraphics,
    {$IFDEF FPC}
    fpstypes, fpspreadsheet,
  
negative.code:   FKGrid.Options := FKGrid.Options - [goThemes, goThemedCells] + [goColSizing];
    FKGrid.OptionsEx:= [gxMouseWheelScroll];
    FKGridAsVirtualGrid := TmKGridAsVirtualGrid.Create(FKGrid);
    FKGrid.OnKeyDown:= OnKeyDown;
    Self.InternalInit(aPivoter, FKGridAsVirtualGrid);
  end;
  
  