anchor.diff:  
     L, T, W, H: Integer;
     R: TRect;
  +  M: TMonitor;
   begin
     if Assigned(Caller) then begin
       CallerZVDateTimePicker := Caller;
  
positive.code: 
      H := 2 * ZVDateTimePickerMax.Height + LabelNull.Height + ButtonPanel.Height + 58;
  
      R := Screen.MonitorFromWindow(CallerZVDateTimePicker.Handle).WorkareaRect;
      L := (R.Left + R.Right - W) div 2;
      T := (R.Top + R.Bottom - H) div 2;
  
  
negative.code: - - - - - - - - - - - - - - - - -
  Author: Zoran Vučenović, January and February 2010
          Зоран Вученовић, јануар и фебруар 2010.
  
     This unit is part of ZVDateTimeCtrls package for Lazarus. It contains
  component and property editors for TZVDateTimePicker control.
  