anchor.diff:      procedure PageNavigationClick(Sender: TObject);
     private
       FCanPage: boolean;
  +    FCanSearch: boolean;
       function GetCanvas: TCanvas;
       procedure SetCanPage(AValue: boolean);
  +    procedure SetCanSearch(AValue: boolean);
   {$IFDEF VISUALGRID_DEBUG}
       procedure ClickTest(Sender: TObject);
   {$ENDIF}
  
positive.code:     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 Canvas: TCanvas read GetCanvas;
  
      property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
  
negative.code:       FBottomPanel.ControlStyle := FBottomPanel.ControlStyle + [csNoDesignVisible];
  end;
  
  procedure TCustomVisualGrid.SetCanSearch(AValue: boolean);
  begin
    if FCanSearch=AValue then
      Exit;
  
    FCanSearch:=AValue;
    FTopPanel.Visible:=FCanSearch;
    if csDesigning in ComponentState then
      if FTopPanel.Visible then
        FTopPanel.ControlStyle := FTopPanel.ControlStyle - [csNoDesignVisible]
      else
        FTopPanel.ControlStyle := FTopPanel.ControlStyle + [csNoDesignVisible];
  end;
  
  procedure TCustomVisualGrid.RefreshGrid;
  begin
  
  