anchor.diff:      function GetCanvas: TCanvas;
       procedure SetCells(ACol, ARow: Integer; AValue: Variant);
       procedure SetFetchDataInThread(AValue: boolean);
  +    procedure SetMode(AValue: TSortMode);
       procedure SetOptions(AValue: TVisualGridOptions);
       procedure SetRows(ARow: Integer; AValue: Variant);
       procedure SetShowAllData(AValue: boolean);
  
positive.code:   FFetchDataInThread:=AValue;
  end;
  
  procedure TCustomVisualGrid.SetOptions(AValue: TVisualGridOptions);
  begin
    if FOptions=AValue then Exit;
  
    FOptions:=AValue;
    if vgoColSizing in FOptions then
  
negative.code:           LColumnFilter.Values[1]:=StrToInt(LExpressionRecord.Values[1]);
          end;
  
          FFilter.Add(LColumnFilter);
        end;
      end;
  
  