anchor.diff:    {$endif}
     Classes, SysUtils, Controls, LCLType, Graphics, Math, StdCtrls, Buttons,
     ExtCtrls, Forms, ComCtrls, Types, LMessages, LCLProc, CalendarControlWrapper
  -  {$ifdef LCLGtk2}, LCLVersion{$endif}
     ;
   
   const
  
positive.code:     AutoResizeButton;
  end;
  
  {$ifdef LCLGtk2}
  // On Gtk2, it seems that if a non-modal form is shown on top
  // of a modal one, it can't get user interaction. So it is useless then.
  // Therefore, if our parent is shown modally, we must show the calendar
  // on a modal form too.
    {$if lcl_fullversion < 00093100}
    // This seems to be fixed, so this is not needed in recent Lazarus versions.
      {$define show_modally_on_modal_form}
    {$endif}
  {$endif}
  
  procedure TCustomZVDateTimePicker.DropDownCalendarForm;
  {$ifdef show_modally_on_modal_form}
  var
    F: TCustomForm;
  {$endif}
  begin
    SetFocusIfPossible;
  
  
negative.code:     if not (FReadOnly or Assigned(FCalendarForm)
                            or (csDesigning in ComponentState)) then begin
        FCalendarForm := TDTCalendarForm.CreateNewDTCalendarForm(nil, Self);
        FCalendarForm.Show;
      end;
  
    end else begin
  