anchor.diff:      DoAfterScroll;
     end;
   end;
  -
  -(*procedure TmCustomVirtualDataset.SetMasterSource(Value: TDataSource);
  -begin
  -  if IsLinkedTo(Value) then
  -    DatabaseError(SCircularDataLink, Self);
  -  MasterDataLink.DataSource := Value;
  -end;*)
   
   procedure TmCustomVirtualDataset.UpdateDisplayFormats;
   var
  
positive.code:       Value := VarAsType(Data, vtBoolean)
      else
        Value := Data;
      VariantToBuffer(Field, Value, Pointer(Buffer), False);   {TODO -oTS -cGeneral : take a look at NativeFormat }
    end;
  end;
  
  
negative.code: end;
  
  
  procedure TmCustomVirtualDataset.AfterConstruction;
  begin
    inherited;
  