anchor.diff:    Result := FMultiSearchToggleBox.Visible;
   end;
   
  +function TCustomVisualGrid.GetSingleSearch: boolean;
  +begin
  +  Result := FTopPanelRight.Visible;
  +end;
  +
   procedure TCustomVisualGrid.SetMultiSearchToggleBox(AValue: boolean);
   begin
     if FMultiSearchToggleBox.Visible=AValue then
       Exit;
     FMultiSearchToggleBox.Visible:=AValue;
  +  FMultiSearchButton.Visible:=AValue;
  +
  +  CanSearch:=AValue or SingleSearch;
   end;
   
   procedure TCustomVisualGrid.SetMultiSearch(AValue: boolean);
  
positive.code:     function GetCanvas: TCanvas;
      function GetMultiSearch: boolean;
      function GetMultiSearchToggleBox: boolean;
      procedure SetMultiSearchToggleBox(AValue: boolean);
      procedure SetMultiSearch(AValue: boolean);
      procedure SetShowAllData(AValue: boolean);
  
negative.code:     property CanSearch;
      property MultiSearchToggleBox;
      property MultiSearch;
      property SingleSearch;
      property SelectionType;
  
      property OnDrawVisualCell;
  