anchor.diff:      Canvas: TCanvas; Rect: TRect; State: TGridDrawState; const RowData: Variant; var Handled: boolean) of object;
   
     EVisualGridError = class(Exception);
  +
  +  TVisualGridOptions = set of (vgoColSizing);
   
     { TCustomVisualGrid }
   
  
positive.code: begin
    if FFetchDataInThread=AValue then Exit;
    FFetchDataInThread:=AValue;
  end;
  
  procedure TCustomVisualGrid.SetRows(ARow: Integer; AValue: Variant);
  
negative.code:     procedure SetCaptionVisible(AValue: boolean);
      procedure SetCells(ACol, ARow: Integer; AValue: Variant);
      procedure SetFetchDataInThread(AValue: boolean);
      procedure SetOptions(AValue: TVisualGridOptions);
      procedure SetRows(ARow: Integer; AValue: Variant);
      procedure SetShowAllData(AValue: boolean);
      procedure SetAutoPageSize(AValue: boolean);
  