anchor.diff:      property ShowAllData;
       property CanPage;
       property CanSearch;
  +    property Options;
       property SelectionType;
       property FetchDataInThread;
   
  
positive.code:       OnDrawCell := StandardDrawCell;
        OnMouseUp := GridMouseUp;
        OnSelection := GridSelection;
        Options := (Options - [goRangeSelect]) + [goColSizing];
        FixedCols := 0;
      end;
      FDefaultDrawGridOptions := FDrawGrid.Options;
  
negative.code: begin
    if FFetchDataInThread=AValue then Exit;
    FFetchDataInThread:=AValue;
  end;
  
  procedure TCustomVisualGrid.SetOptions(AValue: TVisualGridOptions);
  begin
    if FOptions=AValue then Exit;
  
    FOptions:=AValue;
    if vgoColSizing in FOptions then
      FDrawGrid.Options := FDrawGrid.Options + [goColSizing]
    else
      FDrawGrid.Options := FDrawGrid.Options - [goColSizing];
  end;
  
  procedure TCustomVisualGrid.SetRows(ARow: Integer; AValue: Variant);
  