anchor.diff:    if FDate = AValue then
       Exit; //==>
   
  -  if (trunc(FDate) >= trunc(FMinDate)) then
  +  if (trunc(AValue) >= trunc(FMinDate)) then
       {$IFDEF DEBUG}
       writeln('Passed min test')
       {$ENDIF}
     else
       exit;
   
  -  if (FDate <= FMaxDate) then
  +  if (trunc(AValue) <= trunc(FMaxDate)) then
       {$IFDEF DEBUG}
       writeln('Passed max test')
       {$ENDIF}
  
positive.code: 
    {@VFD_BODY_END: fpgPopupCalendar}
    {%endregion}
  {
    // Setup localization
    // UI Designer doesn't support resource strings yet!
    grdName1.ColumnTitle[0] := rsShortSun;
    grdName1.ColumnTitle[1] := rsShortMon;
    grdName1.ColumnTitle[2] := rsShortTue;
    grdName1.ColumnTitle[3] := rsShortWed;
    grdName1.ColumnTitle[4] := rsShortThu;
    grdName1.ColumnTitle[5] := rsShortFri;
    grdName1.ColumnTitle[6] := rsShortSat;
  }
    btnToday.Text := rsToday;
  end;
  
  
negative.code:   Name := 'fpgPopupCalendar';
    SetPosition(370, 182, 233, 142);
    Hint := '';
  
    edtYear := TfpgEdit.Create(self);
    with edtYear do
  