anchor.diff:  
       property CanPage: boolean read FCanPage write SetCanPage default true;
       property CanSearch: boolean read FCanSearch write SetCanSearch default true;
  -    property MultiSearchToggleBox: boolean read GetMultiSearchToggleBox write SetMultiSearchToggleBox;
  -    property MultiSearch: boolean read GetMultiSearch write SetMultiSearch;
  +    property MultiSearchToggleBox: boolean read GetMultiSearchToggleBox write SetMultiSearchToggleBox default true;
  +    property MultiSearch: boolean read GetMultiSearch write SetMultiSearch default true;
  +    property SingleSearch: boolean read GetSingleSearch write SetSingleSearch default true;
       property Canvas: TCanvas read GetCanvas;
       property SelectionType: TSelectionType read FSelectionType write SetSelectionType;
   
  
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:   end;
  end;
  
  procedure TCustomVisualGrid.SetSingleSearch(AValue: boolean);
  begin
    if AValue = FTopPanelRight.Visible then
      exit;
    FTopPanelRight.Visible := AValue;
    CanSearch:=AValue or MultiSearchToggleBox;
  end;
  
  procedure TCustomVisualGrid.StandardDrawCell(Sender: TObject; ACol,
    ARow: Longint; Rect: TRect; State: TGridDrawState);
  var
  