anchor.diff:      property PageSize: Integer read FPageSize write SetPageSize default 100;
       property PageIndex: Integer read FPageIndex write SetPageIndex default -1;
       property CanPage: boolean read FCanPage write SetCanPage default true;
  +    property CanSearch: boolean read FCanSearch write SetCanSearch default true;
       property Canvas: TCanvas read GetCanvas;
   
       property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
  
positive.code:       FBottomPanel.ControlStyle := FBottomPanel.ControlStyle + [csNoDesignVisible];
  end;
  
  procedure TCustomVisualGrid.RefreshGrid;
  begin
  
  
negative.code:   PageSize := 100;
    PageIndex := -1;
    FCanPage := true;
    FCanSearch := true;
  
    {$IFDEF VISUALGRID_DEBUG}
    with TButton.Create(Self) do
  