anchor.diff:      if not (FReadOnly or Assigned(FCalendarForm)
                             or (csDesigning in ComponentState)) then begin
         FCalendarForm := TDTCalendarForm.CreateNewDTCalendarForm(nil, Self);
  -
  -    {$ifdef show_modally_on_modal_form}
  -      F := GetParentForm(Self);
  -      if Assigned(F) and (fsModal in F.FormState) then
  -        FCalendarForm.ShowModal
  -      else
  -    {$endif}
  -        FCalendarForm.Show;
  +      FCalendarForm.Show;
       end;
   
     end else begin
  
positive.code:   {$endif}
    Classes, SysUtils, Controls, LCLType, Graphics, Math, StdCtrls, Buttons,
    ExtCtrls, Forms, ComCtrls, Types, LMessages, LCLProc, CalendarControlWrapper
    {$ifdef LCLGtk2}, LCLVersion{$endif}
    ;
  
  const
  
negative.code:     AutoResizeButton;
  end;
  
  procedure TCustomZVDateTimePicker.DropDownCalendarForm;
  begin
    SetFocusIfPossible;
  
  