TCalendar: nicer errormessage if a date is smaller than MinDateTime or larger than MaxDateTime.

lcl/calendar.pp

@@ -282,6 +282,12 @@ end;
 
 procedure TCustomCalendar.CheckRange(ADate, AMinDate, AMaxDate: TDateTime);
 begin
+  //otherwise you get a message like "Invalid Date: 31-12-9999. Must be between 1-1-0001 and 31-12-9999"
+  if (ADate < Trunc(SysUtils.MinDateTime)) then
+    raise EInvalidDate.CreateFmt(rsDateTooSmall, [DateToStr(SysUtils.MinDateTime)]);
+  if (ADate > Trunc(SysUtils.MaxDateTime)) then
+    raise EInvalidDate.CreateFmt(rsDateTooLarge, [DateToStr(SysUtils.MaxDateTime)]);
+
   if (ADate < AMinDate) or (ADate > AMaxDate) then
   raise EInvalidDate.CreateFmt(rsInvalidDateRangeHint, [DateToStr(ADate),
       DateToStr(AMinDate), DateToStr(AMaxDate)]);

lcl/languages/lclstrconsts.ca.po

@@ -221,6 +221,16 @@ msgstr ""
 msgid "Custom ..."
 msgstr ""
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr ""

lcl/languages/lclstrconsts.co.po

@@ -217,6 +217,16 @@ msgstr "Schedarii di cursore"
 msgid "Custom ..."
 msgstr "Persunalizatu…"
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Predefinitu"

lcl/languages/lclstrconsts.cs.po

@@ -220,6 +220,16 @@ msgstr "Ukazatel"
 msgid "Custom ..."
 msgstr "Vlastní..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Výchozí"

lcl/languages/lclstrconsts.de.po

@@ -219,6 +219,16 @@ msgstr "Zeiger"
 msgid "Custom ..."
 msgstr "Eigene ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Voreingestellt"

lcl/languages/lclstrconsts.es.po

@@ -218,6 +218,16 @@ msgstr "Cursor"
 msgid "Custom ..."
 msgstr "Personalizado ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Predeterminado"

lcl/languages/lclstrconsts.fi.po

@@ -216,6 +216,16 @@ msgstr "Kursori"
 msgid "Custom ..."
 msgstr "Mukautetut ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Oletus"

lcl/languages/lclstrconsts.fr.po

@@ -218,6 +218,16 @@ msgstr "Curseur"
 msgid "Custom ..."
 msgstr "Personnalisé..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Par défaut"

lcl/languages/lclstrconsts.he.po

@@ -220,6 +220,16 @@ msgstr "סמן"
 msgid "Custom ..."
 msgstr "מותאם אישית ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "ברירת מחדל"

lcl/languages/lclstrconsts.hu.po

@@ -218,6 +218,16 @@ msgstr "Kurzor"
 msgid "Custom ..."
 msgstr "Egyéni ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Alapértelmezett"

lcl/languages/lclstrconsts.id.po

@@ -222,6 +222,16 @@ msgstr ""
 msgid "Custom ..."
 msgstr ""
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr ""

lcl/languages/lclstrconsts.it.po

@@ -220,6 +220,16 @@ msgstr "cursore"
 msgid "Custom ..."
 msgstr "Personalizzato ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Standard"

lcl/languages/lclstrconsts.ja.po

@@ -218,6 +218,16 @@ msgstr "カーソルファイル"
 msgid "Custom ..."
 msgstr "カスタム色"
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "デフォルト色"

lcl/languages/lclstrconsts.lt.po

@@ -220,6 +220,16 @@ msgstr "Žymeklis"
 msgid "Custom ..."
 msgstr "Naudotojo…"
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Numatytasis"

lcl/languages/lclstrconsts.nl.po

@@ -223,6 +223,16 @@ msgstr "Cursor"
 msgid "Custom ..."
 msgstr "Aangepast ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Standaard"

lcl/languages/lclstrconsts.no.po

@@ -220,6 +220,16 @@ msgstr ""
 msgid "Custom ..."
 msgstr ""
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr ""

lcl/languages/lclstrconsts.pl.po

@@ -219,6 +219,16 @@ msgstr "Kursor"
 msgid "Custom ..."
 msgstr "Inny..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Domyślny"

lcl/languages/lclstrconsts.pot

@@ -207,6 +207,16 @@ msgstr ""
 msgid "Custom ..."
 msgstr ""
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr ""

lcl/languages/lclstrconsts.pt.po

@@ -216,6 +216,16 @@ msgstr "Cursor"
 msgid "Custom ..."
 msgstr "Personalizado ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Padrão"

lcl/languages/lclstrconsts.pt_BR.po

@@ -218,6 +218,16 @@ msgstr "Cursor"
 msgid "Custom ..."
 msgstr "Personalizado ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Padrão"

lcl/languages/lclstrconsts.ru.po

@@ -214,6 +214,16 @@ msgstr "Файлы курсоров"
 msgid "Custom ..."
 msgstr "Пользовательский ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "По умолчанию"

lcl/languages/lclstrconsts.sk.po

@@ -216,6 +216,16 @@ msgstr "Kurzorové súbory"
 msgid "Custom ..."
 msgstr "Vlastná ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Predvolené"

lcl/languages/lclstrconsts.tr.po

@@ -218,6 +218,16 @@ msgstr "İmleç"
 msgid "Custom ..."
 msgstr "Özel ..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "Varsayılan"

lcl/languages/lclstrconsts.uk.po

@@ -221,6 +221,16 @@ msgstr "Курсор"
 msgid "Custom ..."
 msgstr "Власний..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "За замовчуванням"

lcl/languages/lclstrconsts.zh_CN.po

@@ -219,6 +219,16 @@ msgstr "光标"
 msgid "Custom ..."
 msgstr "自定义..."
 
+#: lclstrconsts.rsdatetoolarge
+#, object-pascal-format
+msgid "Date cannot be past %s"
+msgstr ""
+
+#: lclstrconsts.rsdatetoosmall
+#, object-pascal-format
+msgid "Date cannot be before %s"
+msgstr ""
+
 #: lclstrconsts.rsdefaultcolorcaption
 msgid "Default"
 msgstr "默认"

lcl/lclstrconsts.pas

@@ -238,6 +238,8 @@ resourceString
   rsScrollBarOutOfRange = 'ScrollBar property out of range';
   rsInvalidDate = 'Invalid Date : %s';
   rsInvalidDateRangeHint = 'Invalid Date: %s. Must be between %s and %s';
+  rsDateTooLarge = 'Date cannot be past %s';
+  rsDateTooSmall = 'Date cannot be before %s';
   rsErrorOccurredInAtAddressFrame = 'Error occurred in %s at %sAddress %s%s'
     +' Frame %s';
   rsException = 'Exception';