LCL: TForm.Create: give a hint how to fix resourceless forms

git-svn-id: trunk@29267 -

lcl/include/customform.inc

@@ -1880,7 +1880,8 @@ begin
       Include(FFormState, fsCreating);
       try
         if not InitResourceComponent(Self, TForm) then
-          raise EResNotFound.CreateFmt(rsResourceNotFound, [ClassName]);
+          raise EResNotFound.CreateFmt(
+            rsFormResourceSNotFoundForResourcelessFormsCreateNew, [ClassName]);
       finally
         Exclude(FFormState, fsCreating);
       end;

lcl/languages/lclstrconsts.ca.po

@@ -530,6 +530,10 @@ msgstr "FixedRows (files fixades) no poden ser >= RowCount (recompte de files)"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Formació del corrent \"%s\" amb  error: %s"

lcl/languages/lclstrconsts.cs.po

@@ -528,6 +528,10 @@ msgstr "FixedRows nemůže být >= RowCount"
 msgid "Form"
 msgstr "Formulář"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Chyba zřetězení \"%s\" chyba: %s"

lcl/languages/lclstrconsts.de.po

@@ -533,6 +533,10 @@ msgstr "FixedRows kann nicht größer/gleich RowCount sein"
 msgid "Form"
 msgstr "Form"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Form-Streaming \"%s\" Fehler: %s"

lcl/languages/lclstrconsts.es.po

@@ -530,6 +530,10 @@ msgstr "FixedRows no puede ser >= RowCount"
 msgid "Form"
 msgstr "Formulario"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Flujo de Formulario \"%s\" error: %s"

lcl/languages/lclstrconsts.fi.po

@@ -521,6 +521,10 @@ msgstr "FixedRows ei voi olla suurempi kuin kaikkien rivien määrä (RowCount)"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr ""

lcl/languages/lclstrconsts.fr.po

@@ -532,6 +532,10 @@ msgstr "FixedRows ne peut pas être supérieur  RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Dans le flux de fiche \"%s\" : erreur %s"

lcl/languages/lclstrconsts.he.po

@@ -526,6 +526,10 @@ msgstr "FixedRows can't be >= RowCount"
 msgid "Form"
 msgstr "טופס"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "זרימת טופס  \"%s\" שגיאה: %s"

lcl/languages/lclstrconsts.id.po

@@ -531,6 +531,10 @@ msgstr "FixedRows tidak bisa >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Pengaliran form \"%s\" salah: %s"

lcl/languages/lclstrconsts.it.po

@@ -529,6 +529,10 @@ msgstr "FixedRows non può essere >= RowCount"
 msgid "Form"
 msgstr "Form"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Streaming della form \"%s\" errore: %s"

lcl/languages/lclstrconsts.lt.po

@@ -532,6 +532,10 @@ msgstr "„FixedRows“ reikšmė negali būti lygi ar didesnė nei „RowCount
 msgid "Form"
 msgstr "Forma"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Formą siunčiant srautu „%s“ įvyko klaida: %s"

lcl/languages/lclstrconsts.nl.po

@@ -530,6 +530,10 @@ msgstr "FixedRows kan niet >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "\"%s\" fout: %s bij het streamen van form."

lcl/languages/lclstrconsts.no.po

@@ -530,6 +530,10 @@ msgstr "FixedRows kan ikke være >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Form streaming \"%s\" feil: %s"

lcl/languages/lclstrconsts.pl.po

@@ -532,6 +532,10 @@ msgstr "FixedRows nie może być >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Błąd przy zapisie formularza do strumienia  \"%s\": %s"

lcl/languages/lclstrconsts.po

@@ -521,6 +521,10 @@ msgstr ""
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr ""

lcl/languages/lclstrconsts.pt.po

@@ -529,6 +529,10 @@ msgstr "\"FixedRows\" não pode ser >= \"RowCount\""
 msgid "Form"
 msgstr "Formulário"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Fluxo formulário \"%s\" com erro: %s"

lcl/languages/lclstrconsts.pt_BR.po

@@ -529,6 +529,10 @@ msgstr "\"FixedRows\" não pode ser >= \"RowCount\""
 msgid "Form"
 msgstr "Formulário"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Fluxo formulário \"%s\" com erro: %s"

lcl/languages/lclstrconsts.ru.po

@@ -528,6 +528,10 @@ msgstr "FixedRows не может быть >= RowCount"
 msgid "Form"
 msgstr "Форма"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Ошибка потоков \"%s\" форм: %s"

lcl/languages/lclstrconsts.sk.po

@@ -535,6 +535,10 @@ msgstr "FixedRows nemôže byť >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Chyba streamovania formulára \"%s\": %s"

lcl/languages/lclstrconsts.tr.po

@@ -530,6 +530,10 @@ msgstr "FixedRows >= RowCount olamaz"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Form akışı \"%s\" hatası: %s"

lcl/languages/lclstrconsts.ua.po

@@ -523,6 +523,10 @@ msgstr "FixedRows не може  бути >= RowCount"
 msgid "Form"
 msgstr ""
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "Помилка потоків \"%s\" форм: %s"

lcl/languages/lclstrconsts.zh_CN.po

@@ -533,6 +533,10 @@ msgstr "FixedRows 不能 >= RowCount"
 msgid "Form"
 msgstr "窗体"
 
+#: lclstrconsts.rsformresourcesnotfoundforresourcelessformscreatenew
+msgid "Form resource %s not found. For resourceless forms CreateNew constructor must be used."
+msgstr ""
+
 #: lclstrconsts.rsformstreamingerror
 msgid "Form streaming \"%s\" error: %s"
 msgstr "窗体流 \"%s\" 错误: %s"

lcl/lclstrconsts.pas

@@ -254,6 +254,8 @@ resourceString
   rsControlHasNoParentWindow = 'Control ''%s'' has no parent window';
   rsControlClassCantContainChildClass = 'Control of class ''%s'' can''t have control of class ''%s'' as a child';
   lisLCLResourceSNotFound = 'Resource %s not found';
+  rsFormResourceSNotFoundForResourcelessFormsCreateNew = 'Form resource %s '
+    +'not found. For resourceless forms CreateNew constructor must be used.';
   rsErrorCreatingDeviceContext = 'Error creating device context for %s.%s';
   rsIndexOutOfBounds = '%s Index %d out of bounds 0 .. %d';
   rsUnknownPictureExtension = 'Unknown picture extension';