anchor.diff:  
   procedure TfpgPopupCalendar.grdName1Clicked(Sender: TObject);
   begin
  +  ClosePopupMenusWindows;
     if FSingleClickSelect then
       TearDown;
   end;
  
positive.code: var
    d: TDateTime;
  begin
    d := IncMonth(FDate, -12);
    if d >= FMinDate then
      DateValue := d;
  
negative.code:     FHolidayColor: TfpgColor;
      FSelectedColor: TfpgColor;
      FSingleClickSelect: boolean;
      FMonthsPopupMenu: TfpgPopupMenu;
      function    GetDateElement(Index: integer): Word;
      procedure   PopulateDays;
      procedure   CalculateMonthOffset;
  