InstantFPC: added localization, patch by Marcelo B Paula with some changes, part of bug #22393

git-svn-id: trunk@37898 -

.gitattributes

@@ -1181,6 +1181,7 @@ components/instantfpc/Makefile.fpc svneol=native#text/plain
 components/instantfpc/instantfpclaz.lpk svneol=native#text/plain
 components/instantfpc/instantfpclaz.pas svneol=native#text/plain
 components/instantfpc/instantfpcregisterlaz.pas svneol=native#text/plain
+components/instantfpc/languages/instantfpcregisterlaz.po svneol=native#text/plain
 components/jcf2/CommandLine/CommandLineConstants.pas svneol=native#text/pascal
 components/jcf2/CommandLine/CommandLineReturnCode.pas svneol=native#text/pascal
 components/jcf2/CommandLine/D11/JCF.dpr svneol=native#text/plain

components/instantfpc/instantfpclaz.lpk

@@ -30,6 +30,10 @@
         <UnitName Value="InstantFPCRegisterLaz"/>
       </Item1>
     </Files>
+    <i18n>
+      <EnableI18N Value="True"/>
+      <OutDir Value="languages"/>
+    </i18n>
     <Type Value="DesignTime"/>
     <RequiredPkgs Count="2">
       <Item1>
@@ -45,5 +49,8 @@
     <PublishOptions>
       <Version Value="2"/>
     </PublishOptions>
+    <CustomOptions Items="ExternHelp" Version="2">
+      <_ExternHelp Items="Count"/>
+    </CustomOptions>
   </Package>
 </CONFIG>

components/instantfpc/instantfpcregisterlaz.pas

@@ -7,9 +7,6 @@ interface
 uses
   Classes, SysUtils, ProjectIntf, Forms, LazIDEIntf;
 
-const
-  FileDescNameInstantFPC = 'InstantFPC program';
-  ProjDescNameInstantFPCProject = 'InstantFPC project';
 type
   { TFileDescInstantFPCScript }
 
@@ -33,6 +30,18 @@ type
     function CreateStartFiles(AProject: TLazProject): TModalResult; override;
   end;
 
+
+resourcestring
+  rsInstantFPCPr = 'InstantFPC program';
+  rsSingleFileFr = '%s%sSingle file Free Pascal program executed by InstantFPC';
+  rsInstantFPCSc = 'InstantFPC script';
+  rsSingleFilePr = '%s%sSingle file program using InstantFPC to compile and '
+    +'execute';
+
+const
+  FileDescNameInstantFPC : string = rsInstantFPCPr;
+  ProjDescNameInstantFPCProject : string = 'InstantFPC project';
+
 procedure Register;
 
 implementation
@@ -55,13 +64,12 @@ end;
 
 function TProjectInstantFPCDescriptor.GetLocalizedName: string;
 begin
-  Result:='InstantFPC program';
+  Result:=rsInstantFPCPr;
 end;
 
 function TProjectInstantFPCDescriptor.GetLocalizedDescription: string;
 begin
-  Result:=GetLocalizedName+#13
+  Result:=Format(rsSingleFileFr, [GetLocalizedName, #13]);
-    +'Single file Free Pascal program executed by instantfpc';
 end;
 
 function TProjectInstantFPCDescriptor.InitProject(AProject: TLazProject
@@ -123,13 +131,12 @@ end;
 
 function TFileDescInstantFPCScript.GetLocalizedName: string;
 begin
-  Result:='InstantFPC script';
+  Result:=rsInstantFPCSc;
 end;
 
 function TFileDescInstantFPCScript.GetLocalizedDescription: string;
 begin
-  Result:=GetLocalizedName+#13
+  Result:=Format(rsSingleFilePr, [GetLocalizedName, #13]);
-         +'Single file program using instantfpc to compile and execute';
 end;
 
 function TFileDescInstantFPCScript.CreateSource(const Filename, SourceName,

components/instantfpc/languages/instantfpcregisterlaz.po

@@ -0,0 +1,19 @@
+msgid ""
+msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: instantfpcregisterlaz.rsinstantfpcpr
+msgid "InstantFPC program"
+msgstr ""
+
+#: instantfpcregisterlaz.rsinstantfpcsc
+msgid "InstantFPC script"
+msgstr ""
+
+#: instantfpcregisterlaz.rssinglefilefr
+msgid "%s%sSingle file Free Pascal program executed by InstantFPC"
+msgstr ""
+
+#: instantfpcregisterlaz.rssinglefilepr
+msgid "%s%sSingle file program using InstantFPC to compile and execute"
+msgstr ""
+