anchor.diff:      FFiltered := false;
     end;
     FSummaryManager.NotifyChanges;
  +  if Assigned(FOnFilter) then
  +    FOnFilter(Self);
   end;
   
   procedure TmCustomVirtualDataset.ClearFilter;
  
positive.code:     property AutomaticInitFieldsFormat : boolean read FAutomaticInitFieldsFormat write FAutomaticInitFieldsFormat;
  
      property DatasetDataProvider : TmVirtualDatasetDataProvider read FVirtualDatasetProvider write FVirtualDatasetProvider;
    end;
  
    TmVirtualDataset = class(TmCustomVirtualDataset)
  
negative.code:   protected
      FSorted : boolean;
      FFiltered : boolean;
      FOnFilter : TmOnFilterVirtualDataset;
  
      function DoSort : boolean;
      procedure ClearSort;
  