RxFPC:fix compile rxdbgridexportpdf.pas after fpc rev. 35083

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5466 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/languages/rxconst.es.po

@@ -245,6 +245,22 @@ msgstr "Menu panel herramienta"
 msgid "Transparent"
 msgstr "Transparente"
 
+#: rxconst.svariableisnotboolean
+msgid "Variable %s is not boolean"
+msgstr ""
+
+#: rxconst.svariableisnotdt
+msgid "Variable %s is not date/time"
+msgstr ""
+
+#: rxconst.svariableisnotfloat
+msgid "Variable %s is not float"
+msgstr ""
+
+#: rxconst.svariableisnotinteger
+msgid "Variable %s is not integer"
+msgstr ""
+
 #: rxconst.svariableisnotstring
 msgid "Variable %s is not string"
 msgstr ""

components/rx/trunk/languages/rxconst.po

@@ -241,6 +241,22 @@ msgstr ""
 msgid "Transparent"
 msgstr ""
 
+#: rxconst.svariableisnotboolean
+msgid "Variable %s is not boolean"
+msgstr ""
+
+#: rxconst.svariableisnotdt
+msgid "Variable %s is not date/time"
+msgstr ""
+
+#: rxconst.svariableisnotfloat
+msgid "Variable %s is not float"
+msgstr ""
+
+#: rxconst.svariableisnotinteger
+msgid "Variable %s is not integer"
+msgstr ""
+
 #: rxconst.svariableisnotstring
 msgid "Variable %s is not string"
 msgstr ""

components/rx/trunk/languages/rxconst.ru.po

@@ -241,6 +241,22 @@ msgstr "Настройка панели инструментов"
 msgid "Transparent"
 msgstr "Прозрачно"
 
+#: rxconst.svariableisnotboolean
+msgid "Variable %s is not boolean"
+msgstr ""
+
+#: rxconst.svariableisnotdt
+msgid "Variable %s is not date/time"
+msgstr ""
+
+#: rxconst.svariableisnotfloat
+msgid "Variable %s is not float"
+msgstr ""
+
+#: rxconst.svariableisnotinteger
+msgid "Variable %s is not integer"
+msgstr ""
+
 #: rxconst.svariableisnotstring
 msgid "Variable %s is not string"
 msgstr ""

components/rx/trunk/languages/rxconst.uk.po

@@ -258,6 +258,22 @@ msgstr "Налаштування панелі інструментів"
 msgid "Transparent"
 msgstr "Прозоро"
 
+#: rxconst.svariableisnotboolean
+msgid "Variable %s is not boolean"
+msgstr ""
+
+#: rxconst.svariableisnotdt
+msgid "Variable %s is not date/time"
+msgstr ""
+
+#: rxconst.svariableisnotfloat
+msgid "Variable %s is not float"
+msgstr ""
+
+#: rxconst.svariableisnotinteger
+msgid "Variable %s is not integer"
+msgstr ""
+
 #: rxconst.svariableisnotstring
 msgid "Variable %s is not string"
 msgstr ""

components/rx/trunk/rxconfigvalues.pas

@@ -339,7 +339,7 @@ begin
   if FDataType = cvtBoolean then
     Result:=FValue
   else
-    raise Exception.CreateFmt('Variable %s is not boolean', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotBoolean, [FName]);
 end;
 
 function TConfigValue.GetAsDateTime: TDateTime;
@@ -347,7 +347,7 @@ begin
   if FDataType = cvtDateTime then
     Result:=FValue
   else
-    raise Exception.CreateFmt('Variable %s is not date/time', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotDT, [FName]);
 end;
 
 function TConfigValue.GetAsFloat: Double;
@@ -355,7 +355,7 @@ begin
   if FDataType = cvtFloat then
     Result:=FValue
   else
-    raise Exception.CreateFmt('Variable %s is not float', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotFloat, [FName]);
 end;
 
 function TConfigValue.GetAsInteger: integer;
@@ -363,7 +363,7 @@ begin
   if FDataType = cvtInteger then
     Result:=FValue
   else
-    raise Exception.CreateFmt('Variable %s is not integer', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotInteger, [FName]);
 end;
 
 function TConfigValue.GetAsString: string;
@@ -385,7 +385,7 @@ begin
     end
   end
   else
-    raise Exception.CreateFmt('Variable %s is not boolean', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotBoolean, [FName]);
 end;
 
 procedure TConfigValue.SetAsDateTime(const AValue: TDateTime);
@@ -399,7 +399,7 @@ begin
     end
   end
   else
-    raise Exception.CreateFmt('Variable %s is not date/time', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotDT, [FName]);
 end;
 
 procedure TConfigValue.SetAsFloat(const AValue: Double);
@@ -413,7 +413,7 @@ begin
     end
   end
   else
-    raise Exception.CreateFmt('Variable %s is not float', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotFloat, [FName]);
 end;
 
 procedure TConfigValue.SetAsInteger(const AValue: integer);
@@ -427,7 +427,7 @@ begin
     end
   end
   else
-    raise Exception.CreateFmt('Variable %s is not integer', [FName]);
+    raise Exception.CreateFmt(sVariableIsNotInteger, [FName]);
 end;
 
 procedure TConfigValue.SetAsString(const AValue: string);

components/rx/trunk/rxconst.pas

@@ -122,6 +122,10 @@ resourcestring
 
   { TConfigValues }
   sVariableIsNotString  = 'Variable %s is not string';
+  sVariableIsNotInteger = 'Variable %s is not integer';
+  sVariableIsNotFloat   = 'Variable %s is not float';
+  sVariableIsNotDT      = 'Variable %s is not date/time';
+  sVariableIsNotBoolean = 'Variable %s is not boolean';
 
 implementation
 

components/rx/trunk/rxdbgridexportpdf.pas

@@ -1017,7 +1017,7 @@ begin
   CreateFontDirList;
   if gTTFontCache.Count = 0 then
   begin
-    gTTFontCache.BuildFontFacheIgnoresErrors:=true;
+    gTTFontCache.BuildFontCacheIgnoresErrors:=true;
     CreateFontDirList;
     gTTFontCache.SearchPath.Assign(FontDirList);
     FreeAndNil(FontDirList);