anchor.diff:    begin
       FCurrentValue:= aValue;
       FEdit.Text := aDescription;
  +    Self.FilterOperator := foEq;
     end;
   end;
   
  
positive.code:   public
      constructor Create(TheOwner: TComponent); override;
      procedure SetFilterCaption (aValue : String); override;
      procedure ExportToFilter (aFilter : TmFilter); override;
      procedure ImportFromFilter (const aFilter: TmFilter); override;
      function IsEmpty : boolean; override;
  
negative.code: begin
    inherited;
    FLabel.Caption := Self.FormatFilterCaption(aValue);
  end;
  
  procedure TmDateFilterConditionPanel.SetFilterValue(aValue: Variant);
  begin
    if VarIsNull(aValue) then
      Self.Clear
    else
    begin
      Self.FilterOperator := foEq;
      FDateEditMin.Text := VarToStr(aValue);
    end;
  end;
  
  procedure TmDateFilterConditionPanel.ExportToFilter (aFilter : TmFilter);
  