anchor.diff:  begin
     if FKind <> AValue then begin
       FKind := AValue;
  -    UpdateShowArrowButton(FDateMode, AValue);
       AdjustEffectiveHideDateTimeParts;
     end;
   end;
  
positive.code:       MoveSelectionLR(False);
  
      FRecalculatingTextSizesNeeded := True;
      UpdateDate;
    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
  