anchor.diff:      Self.FilterOperator := TmFilterOperator((Sender as TMenuItem).Tag);
   end;
   
  -procedure TmFilterConditionPanel.OperatorMenuPopup(Sender: TObject);
  +procedure TmFilterConditionPanel.ClearMenuItemClick(Sender: TObject);
  +begin
  +  if (Sender is TMenuItem) then
  +    Self.Clear;
  +end;
  +
  +procedure TmFilterConditionPanel.FilterMenuPopup(Sender: TObject);
   var
     i : integer;
  -begin
  -  if Assigned(FOperatorsMenu) then
  -  begin
  -    for i := 0 to FOperatorsMenu.Items.Count - 1 do
  -      FOperatorsMenu.Items[i].Visible:= (TmFilterOperator(FOperatorsMenu.Items[i].Tag) in FAllowedOperators);
  +  almostOne : boolean;
  +begin
  +  if Assigned(FFilterMenu) and (FFilterMenu.Items.Count > 2) then
  +  begin
  +    almostOne:= false;
  +    for i := 0 to FOperatorsMenuItems.Count - 1 do
  +    begin
  +      TMenuItem(FOperatorsMenuItems.Items[i]).Visible:= (TmFilterOperator(TMenuItem(FOperatorsMenuItems.Items[i]).Tag) in FAllowedOperators);
  +      almostOne:= almostOne or TMenuItem(FOperatorsMenuItems.Items[i]).Visible;
  +    end;
  +    // show or hide the separator:
  +    FOperatorsMenuItemSeparator.Visible := almostOne;
     end;
   end;
   
  
positive.code:   FDateEditMax.Width:= FBottomPanel.Width div 2;
    FDateEditMax.Visible:= false;
    FLabel := Self.CreateStandardLabel;
    CreateStandardOperatorMenu(FLabel);
  end;
  
  procedure TmDateFilterConditionPanel.SetFilterCaption(aValue: String);
  
negative.code:   aFilter.FilterOperator := Self.FilterOperator;
  end;
  
  procedure TmFilterConditionPanel.ImportFromFilter(const aFilter: TmFilter);
  begin
    Self.FilterOperator := aFilter.FilterOperator;
  end;
  
  
  end.
  