anchor.diff:  var
     d: TDateTime;
   begin
  +  ClosePopupMenusWindows;
     d := IncMonth(FDate, -12);
     if d >= FMinDate then
       DateValue := d;
  
positive.code: 
  procedure TfpgPopupCalendar.btnTodayClicked(Sender: TObject);
  begin
    if Now >= FMinDate then
    begin
      DateValue := Now;
  
negative.code: 
  procedure TfpgPopupCalendar.grdName1Clicked(Sender: TObject);
  begin
    ClosePopupMenusWindows;
    if FSingleClickSelect then
      TearDown;
  end;
  