anchor.diff:      FMonthsPopupMenu.Close;
       FreeAndNil(FMonthsPopupMenu);
     end;
  +
  +  if Assigned(FYearPopupWindow) then
  +  begin
  +    FYearPopupWindow.Close;
  +    FreeAndNil(FYearPopupWindow);
  +  end;
  +end;
  +
  +procedure TfpgPopupCalendar.YearPopupWindowClose(Sender: TObject);
  +begin
  +  Year := FYearPopupWindow.Year;
   end;
   
   function TfpgPopupCalendar.GetDateElement(Index: integer): Word;
  
positive.code:     procedure   grdName1KeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
      procedure   grdName1DrawCell(Sender: TObject; const ARow, ACol: Integer; const ARect: TfpgRect; const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean);
      procedure   edtMonthClicked(Sender: TObject);
      procedure   miMonthClicked(Sender: TObject);
      procedure   TearDown;
      procedure   SetSingleClickSelect(const AValue: boolean);
  
negative.code:   end;
  
  
  {@VFD_NEWFORM_DECL}
  
  
  implementation
  
  