anchor.diff:    FDateEdit.Parent := Self;
     FDateEdit.Align:= alBottom;
     FLabel := Self.CreateStandardLabel;
  +  CreateStandardOperatorMenu(FLabel);
   end;
   
   procedure TmDateFilterConditionPanel.SetFilterCaption(aValue: String);
  
positive.code: end;
  
  function TmEditFilterConditionPanel.GetFilterValue: Variant;
  begin
    if FEdit.Text = '' then
      Result := null
    else
    begin
      if FForceUppercase then
        Result := Uppercase(FEdit.Text)
      else
        Result := FEdit.Text;
    end;
  end;
  
  procedure TmEditFilterConditionPanel.SetFilterValue(aValue: Variant);
  
negative.code: begin
    FEdit.OnEditingDone:= nil;
    try
      if FValueType = efInteger then
      begin
        if not IsNumeric(FEdit.Text, false) then
          FEdit.Text := '';
      end
      else
      if FValueType = efFloat then
      begin
        if not IsNumeric(FEdit.Text, true) then
          FEdit.Text := '';
      end
      else
      if FValueType = efUppercaseString then
      begin
        FEdit.Text:= UpperCase(FEdit.Text);
      end;
    finally
      FEdit.OnEditingDone:= Self.OnEditValueChanged;
    end;
  