anchor.diff:      property FetchDataInThread;
   
       property OnDrawVisualCell;
  +    property OnPreparePopupMenu;
     end;
   
   procedure Register;
  
positive.code: function TCustomVisualGrid.GetSingleSearch: boolean;
  begin
    Result := FTopPanelRight.Visible;
  end;
  
  procedure TCustomVisualGrid.SetCells(ACol, ARow: Integer; AValue: Variant);
  
negative.code:     FCanPage: boolean;
      FCanSearch: boolean;
      FSelectionType: TSelectionType;
      function GetCaption: TCaption;
      function GetCaptionAlignment: TAlignment;
      function GetCaptionFont: TFont;
      function GetCells(ACol, ARow: Integer): Variant;
      function GetRows(ARow: Integer): Variant;
      function GetSelection: TVisualGridSelection;
      function GetCaptionVisible: boolean;
      procedure SetAllEditsAsReadOny(AReadOnly: boolean);
      function GetCanvas: TCanvas;
      function GetMultiSearch: boolean;
      function GetMultiSearchToggleBox: boolean;
      function GetSingleSearch: boolean;
      procedure SetCaption(AValue: TCaption);
      procedure SetCaptionAlignment(AValue: TAlignment);
      procedure SetCaptionFont(AValue: TFont);
      procedure SetCaptionVisible(AValue: boolean);
      procedure SetCells(ACol, ARow: Integer; AValue: Variant);
      procedure SetFetchDataInThread(AValue: boolean);
      procedure SetMultiSearchToggleBox(AValue: boolean);
  