anchor.diff:      DestroyUpDown;
   
     end else begin
  -    ReallyShowArrowButton := (NewDateMode = dmComboBox) and (NewKind <> dtkTime);
  +    ReallyShowArrowButton := (NewDateMode = dmComboBox) and
  +                          not (dtpDay in FEffectiveHideDateTimeParts);
   
       if (ReallyShowArrowButton <> Assigned(FArrowButton)) or
                          (Assigned(FArrowButton) = Assigned(FUpDown)) then begin
  
positive.code: begin
    if FKind <> AValue then begin
      FKind := AValue;
      UpdateShowArrowButton(FDateMode, AValue);
      AdjustEffectiveHideDateTimeParts;
    end;
  end;
  
negative.code:       MoveSelectionLR(False);
  
      FRecalculatingTextSizesNeeded := True;
      UpdateShowArrowButton(FDateMode, FKind);
      UpdateDate;
    end;
  end;
  