anchor.diff:    end;
   end;
   
  +procedure TfpgPopupCalendar.edtMonthClicked(Sender: TObject);
  +begin
  +  ShowDefaultPopupMenu;
  +end;
  +
  +procedure TfpgPopupCalendar.miMonthClicked(Sender: TObject);
  +var
  +  itm: TfpgMenuItem;
  +begin
  +  itm := Sender as TfpgMenuItem;
  +  SetDateElement(2 {month index}, itm.Tag);
  +end;
  +
   procedure TfpgPopupCalendar.TearDown;
   var
     lD: Word;
  
positive.code: var
    d: TDateTime;
  begin
    d := IncMonth(FDate, -12);
    if d >= FMinDate then
      DateValue := d;
  
negative.code: 
  procedure TfpgPopupCalendar.btnTodayClicked(Sender: TObject);
  begin
    ClosePopupMenusWindows;
    if Now >= FMinDate then
    begin
      DateValue := Now;
  