anchor.diff:    Name := 'fpgPopupCalendar';
     SetPosition(370, 182, 233, 142);
     Hint := '';
  -  //  WindowTitle := 'fpgPopupCalendar';
  -  //  Sizeable := False;
  -  //  WindowPosition := wpUser;
   
     edtYear := TfpgEdit.Create(self);
     with edtYear do
  
positive.code:   if FDate = AValue then
      Exit; //==>
  
    if (trunc(FDate) >= trunc(FMinDate)) then
      {$IFDEF DEBUG}
      writeln('Passed min test')
      {$ENDIF}
    else
      exit;
  
    if (FDate <= FMaxDate) then
      {$IFDEF DEBUG}
      writeln('Passed max test')
      {$ENDIF}
  
negative.code: 
    {@VFD_BODY_END: fpgPopupCalendar}
    {%endregion}
  
    btnToday.Text := rsToday;
  end;
  
  