anchor.diff:    fpg_scrollbar,
     fpg_constants;
   
  +type
  +  // friend class to get access to Protected methods
  +  TPopupMenuFriend = class(TfpgPopupMenu);
  +
   
   {@VFD_NEWFORM_IMPL}
   
  
positive.code:     itm.Tag := 12;
    end;
  
  //  SetDefaultPopupMenuItemsState;
    FMonthsPopupMenu.ShowAt(self, edtMonth.Left, edtMonth.Bottom);
  end;
  
  constructor TfpgPopupCalendar.Create(AOwner: TComponent; AOrigFocusWin: TfpgWidget);
  
negative.code:   begin
      FYearPopupWindow := TYearSelectForm.CreateCustom(nil, YearOf(MinDate), YearOf(MaxDate));
      FYearPopupWindow.OnClose  := @YearPopupWindowClose;
      FYearPopupWindow.Year := Year;
    end;
  
    FYearPopupWindow.ShowAt(self, edtYear.Left, edtYear.Bottom);
  end;
  
  