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