anchor.diff:  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);
  
positive.code:   begin
      FCurrentValue:= aValue;
      FEdit.Text := aDescription;
    end;
  end;
  
  
negative.code:   if VarIsNull(aValue) then
      Self.Clear
    else
    begin
      FEdit.Text := VarToStr(aValue);
      Self.FilterOperator := foEq;
    end;
  end;
  
  function TmEditFilterConditionPanel.IsEmpty: boolean;
  