anchor.diff:  procedure TfpgPopupCalendar.ShowDefaultPopupMenu;
   var
     itm: TfpgMenuItem;
  +  pt: TPoint;
   begin
     if not Assigned(FMonthsPopupMenu) then
     begin
       FMonthsPopupMenu := TfpgPopupMenu.Create(nil);
  -//    FMonthsPopupMenu.DontCloseWidget := self;  // now we can control when the popup window closes
       itm := FMonthsPopupMenu.AddMenuItem(rslongjan, '', @miMonthClicked);
       itm.Tag := 1;
       itm := FMonthsPopupMenu.AddMenuItem(rslongfeb, '', @miMonthClicked);
  
positive.code:   fpg_scrollbar,
    fpg_constants;
  
  
  {@VFD_NEWFORM_IMPL}
  
  
negative.code:     itm.Tag := 12;
    end;
  
    // translate Edit coordinates
    pt := WindowToScreen(self, Point(edtMonth.Left, edtMonth.Bottom));
    TPopupMenuFriend(FMonthsPopupMenu).PrepareToShow;  // forces height calculation
    // If dropdown will not fit below Edit, then we place it above
    if (pt.y + FMonthsPopupMenu.Height) > fpgApplication.ScreenHeight then
      pt.y := pt.y - edtMonth.Height - FMonthsPopupMenu.Height;
  
  //  SetDefaultPopupMenuItemsState;
    FMonthsPopupMenu.ShowAt(nil, pt.x, pt.y);
  end;
  
  constructor TfpgPopupCalendar.Create(AOwner: TComponent; AOrigFocusWin: TfpgWidget);
  