anchor.diff:        MoveSelectionLR(False);
   
       FRecalculatingTextSizesNeeded := True;
  -    UpdateShowArrowButton(FDateMode, FKind);
  +    UpdateShowArrowButton;
       UpdateDate;
     end;
   end;
  
positive.code: procedure TCustomZVDateTimePicker.SetDateMode(const AValue: TDTDateMode);
  begin
    FDateMode := AValue;
    UpdateShowArrowButton(AValue, FKind);
  end;
  
  procedure TCustomZVDateTimePicker.SetHideDateTimeParts(AValue: TDateTimeParts);
  
negative.code:   ReallyShowArrowButton: Boolean;
  
  begin
    if FDateMode = dmNone then begin
      DestroyArrowBtn;
      DestroyUpDown;
  
    end else begin
      ReallyShowArrowButton := (FDateMode = dmComboBox) and
                            not (dtpDay in FEffectiveHideDateTimeParts);
  
      if (ReallyShowArrowButton <> Assigned(FArrowButton)) or
  