anchor.diff:    if Length(Selections) = 0 then
       Exit(-1);
     Result := Selections[0].Left;
  +end;
  +
  +function TVisualGridSelection.GetColCount: longint;
  +begin
  +  if Length(Selections) = 0 then
  +    Exit(0);
  +  Result := Selections[0].Width;
   end;
   
   function TVisualGridSelection.GetRow: longint;
  
positive.code:     property SingleSearch: boolean read GetSingleSearch write SetSingleSearch default true;
      property Canvas: TCanvas read GetCanvas;
      property SelectionType: TSelectionType read FSelectionType write SetSelectionType;
  
      property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
      property OnPreparePopupMenu: TPreparePopupMenuEvent read FOnPreparePopupMenu write FOnPreparePopupMenu;
  
negative.code:     FMultiSearchToggleBox.State:=cbUnchecked;
  
    MultiSearchToggleBoxChange(Self);
  end;
  
  procedure TCustomVisualGrid.SetRows(ARow: Integer; AValue: Variant);
  begin
    FDataTable.Rows[ARow] := AValue;
    FDrawGrid.InvalidateRow(ARow + 1); // + fixed row
  end;
  
  procedure TCustomVisualGrid.SetShowAllData(AValue: boolean);
  