anchor.diff:      property Align;
       property PageSize;
       property CanPage;
  +    property CanSearch;
   
       property OnDrawVisualCell;
     end;
  
positive.code:     procedure PageNavigationClick(Sender: TObject);
    private
      FCanPage: boolean;
      function GetCanvas: TCanvas;
      procedure SetCanPage(AValue: boolean);
  {$IFDEF VISUALGRID_DEBUG}
      procedure ClickTest(Sender: TObject);
  {$ENDIF}
  
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
  
  