anchor.diff:        MoveSelectionLR(False);
   
       FRecalculatingTextSizesNeeded := True;
  -    UpdateShowArrowButton(FDateMode, FKind);
  +    UpdateShowArrowButton;
       UpdateDate;
     end;
   end;
  
positive.code:   end;
  end;
  
  procedure TCustomZVDateTimePicker.UpdateShowArrowButton(
                               NewDateMode: TDTDateMode; NewKind: TDateTimeKind);
  
    procedure CreateArrowBtn;
    begin
  
negative.code:     procedure MoveSelectionLR(const ToLeft: Boolean);
      procedure DestroyCalendarForm;
      procedure DropDownCalendarForm;
      procedure UpdateShowArrowButton;
      procedure DestroyUpDown;
      procedure DestroyArrowBtn;
      procedure ArrowMouseDown(Sender: TObject; Button: TMouseButton;
  