anchor.diff:    end;
   end;
   
  -procedure TCustomZVDateTimePicker.UpdateShowArrowButton(
  -                             NewDateMode: TDTDateMode; NewKind: TDateTimeKind);
  +procedure TCustomZVDateTimePicker.UpdateShowArrowButton;
   
     procedure CreateArrowBtn;
     begin
  
positive.code:       MoveSelectionLR(False);
  
      FRecalculatingTextSizesNeeded := True;
      UpdateShowArrowButton(FDateMode, FKind);
      UpdateDate;
    end;
  end;
  
negative.code: procedure TCustomZVDateTimePicker.SetDateMode(const AValue: TDTDateMode);
  begin
    FDateMode := AValue;
    UpdateShowArrowButton;
  end;
  
  procedure TCustomZVDateTimePicker.SetHideDateTimeParts(AValue: TDateTimeParts);
  