anchor.diff:    end;
   
   
  -{@VFD_NEWFORM_DECL}
   
   implementation
   
  
positive.code: 
  procedure TfpgPopupCalendar.btnTodayClicked(Sender: TObject);
  begin
    if Now >= FMinDate then
    begin
      DateValue := Now;
  
negative.code: var
    d: TDateTime;
  begin
    ClosePopupMenusWindows;
    d := IncMonth(FDate);
    if d <= FMaxDate then
      DateValue := d;
  