anchor.diff:        Shift: TShiftState; X, Y: Integer);
       procedure SearchKindPopupMenuClick(Sender: TObject);
       procedure GridSelection(Sender: TObject; aCol, aRow: Integer);
  +    procedure GridHeaderClick(Sender: TObject; IsColumn: Boolean; Index: Integer);
       procedure PageIndexEditingDone(Sender: TObject);
       procedure PageSizeEditingDone(Sender: TObject);
       procedure PageNavigationClick(Sender: TObject);
  
positive.code:     FOnSelection(Self, Selection);
  end;
  
  {$IFNDEF WINDOWS}
  initialization
    {$I *.inc}
  
negative.code:     property ColCount: longint read GetColCount;
    end;
  
    TCustomVisualGrid = class;
  
    { TVisualColumn }
  
  