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