View Issue Details

IDProjectCategoryView StatusLast Update
0022393LazarusIDEpublic2012-07-08 16:21
ReporterMarcelo B PaulaAssigned ToMaxim Ganetsky 
PrioritynormalSeverityminorReproducibilityN/A
Status closedResolutionfixed 
Product Version1.1 (SVN)Product Build 
Target VersionFixed in Version1.1 (SVN) 
Summary0022393: InstantFPC package localization
DescriptionThe attached files implements localization to the Lazarus InstantFPC package.
TagsNo tags attached.
Fixed in Revision37898, 37899
LazTarget-
Widgetset
Attached Files
  • instantfpc.diff (2,805 bytes)
    Index: components/instantfpc/instantfpclaz.lpk
    ===================================================================
    --- components/instantfpc/instantfpclaz.lpk	(revis�o 37894)
    +++ components/instantfpc/instantfpclaz.lpk	(c�pia de trabalho)
    @@ -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>
    Index: components/instantfpc/instantfpcregisterlaz.pas
    ===================================================================
    --- components/instantfpc/instantfpcregisterlaz.pas	(revis�o 37894)
    +++ components/instantfpc/instantfpcregisterlaz.pas	(c�pia de trabalho)
    @@ -7,9 +7,6 @@
     uses
       Classes, SysUtils, ProjectIntf, Forms, LazIDEIntf;
     
    -const
    -  FileDescNameInstantFPC = 'InstantFPC program';
    -  ProjDescNameInstantFPCProject = 'InstantFPC project';
     type
       { TFileDescInstantFPCScript }
     
    @@ -33,6 +30,19 @@
         function CreateStartFiles(AProject: TLazProject): TModalResult; override;
       end;
     
    +
    +resourcestring
    +  rsInstantFPCPr = 'InstantFPC program';
    +  rsInstantFPCPr2 = 'InstantFPC project';
    +  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 = rsInstantFPCPr2;
    +
     procedure Register;
     
     implementation
    @@ -55,13 +65,12 @@
     
     function TProjectInstantFPCDescriptor.GetLocalizedName: string;
     begin
    -  Result:='InstantFPC program';
    +  Result:=rsInstantFPCPr;
     end;
     
     function TProjectInstantFPCDescriptor.GetLocalizedDescription: string;
     begin
    -  Result:=GetLocalizedName+#13
    -    +'Single file Free Pascal program executed by instantfpc';
    +  Result:=Format(rsSingleFileFr, [GetLocalizedName, #13]);
     end;
     
     function TProjectInstantFPCDescriptor.InitProject(AProject: TLazProject
    @@ -123,13 +132,12 @@
     
     function TFileDescInstantFPCScript.GetLocalizedName: string;
     begin
    -  Result:='InstantFPC script';
    +  Result:=rsInstantFPCSc;
     end;
     
     function TFileDescInstantFPCScript.GetLocalizedDescription: string;
     begin
    -  Result:=GetLocalizedName+#13
    -         +'Single file program using instantfpc to compile and execute';
    +  Result:=Format(rsSingleFilePr, [GetLocalizedName, #13]);
     end;
     
     function TFileDescInstantFPCScript.CreateSource(const Filename, SourceName,
    
    instantfpc.diff (2,805 bytes)
  • instantfpc_lang.zip (1,237 bytes)

Activities

2012-07-08 02:46

 

instantfpc.diff (2,805 bytes)
Index: components/instantfpc/instantfpclaz.lpk
===================================================================
--- components/instantfpc/instantfpclaz.lpk	(revis�o 37894)
+++ components/instantfpc/instantfpclaz.lpk	(c�pia de trabalho)
@@ -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>
Index: components/instantfpc/instantfpcregisterlaz.pas
===================================================================
--- components/instantfpc/instantfpcregisterlaz.pas	(revis�o 37894)
+++ components/instantfpc/instantfpcregisterlaz.pas	(c�pia de trabalho)
@@ -7,9 +7,6 @@
 uses
   Classes, SysUtils, ProjectIntf, Forms, LazIDEIntf;
 
-const
-  FileDescNameInstantFPC = 'InstantFPC program';
-  ProjDescNameInstantFPCProject = 'InstantFPC project';
 type
   { TFileDescInstantFPCScript }
 
@@ -33,6 +30,19 @@
     function CreateStartFiles(AProject: TLazProject): TModalResult; override;
   end;
 
+
+resourcestring
+  rsInstantFPCPr = 'InstantFPC program';
+  rsInstantFPCPr2 = 'InstantFPC project';
+  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 = rsInstantFPCPr2;
+
 procedure Register;
 
 implementation
@@ -55,13 +65,12 @@
 
 function TProjectInstantFPCDescriptor.GetLocalizedName: string;
 begin
-  Result:='InstantFPC program';
+  Result:=rsInstantFPCPr;
 end;
 
 function TProjectInstantFPCDescriptor.GetLocalizedDescription: string;
 begin
-  Result:=GetLocalizedName+#13
-    +'Single file Free Pascal program executed by instantfpc';
+  Result:=Format(rsSingleFileFr, [GetLocalizedName, #13]);
 end;
 
 function TProjectInstantFPCDescriptor.InitProject(AProject: TLazProject
@@ -123,13 +132,12 @@
 
 function TFileDescInstantFPCScript.GetLocalizedName: string;
 begin
-  Result:='InstantFPC script';
+  Result:=rsInstantFPCSc;
 end;
 
 function TFileDescInstantFPCScript.GetLocalizedDescription: string;
 begin
-  Result:=GetLocalizedName+#13
-         +'Single file program using instantfpc to compile and execute';
+  Result:=Format(rsSingleFilePr, [GetLocalizedName, #13]);
 end;
 
 function TFileDescInstantFPCScript.CreateSource(const Filename, SourceName,
instantfpc.diff (2,805 bytes)

2012-07-08 02:46

 

instantfpc_lang.zip (1,237 bytes)

Maxim Ganetsky

2012-07-08 14:01

developer   ~0060902

Last edited: 2012-07-08 14:29

Applied with some modifications:

1. rsInstantFPCPr2 resourcestring was removed, this string doesn't have any need to be translated.
2. In rsSingleFileFr and rsSingleFilePr I fixed case instantfpc -> InstantFPC.

Your translation was regenerated in accordance with these notes. Please check it.

Thanks.

Marcelo B Paula

2012-07-08 16:21

reporter   ~0060905

Ok, thanks. Revised translation files will be sent in next language update.

Issue History

Date Modified Username Field Change
2012-07-08 02:46 Marcelo B Paula New Issue
2012-07-08 02:46 Marcelo B Paula File Added: instantfpc.diff
2012-07-08 02:46 Marcelo B Paula Widgetset => Win32/Win64
2012-07-08 02:46 Marcelo B Paula File Added: instantfpc_lang.zip
2012-07-08 13:25 Maxim Ganetsky Status new => assigned
2012-07-08 13:25 Maxim Ganetsky Assigned To => Maxim Ganetsky
2012-07-08 14:01 Maxim Ganetsky Fixed in Revision => 37898, 37899
2012-07-08 14:01 Maxim Ganetsky LazTarget => -
2012-07-08 14:01 Maxim Ganetsky Widgetset Win32/Win64 =>
2012-07-08 14:01 Maxim Ganetsky Status assigned => resolved
2012-07-08 14:01 Maxim Ganetsky Fixed in Version => 1.1 (SVN)
2012-07-08 14:01 Maxim Ganetsky Resolution open => fixed
2012-07-08 14:01 Maxim Ganetsky Note Added: 0060902
2012-07-08 14:29 Maxim Ganetsky Note Edited: 0060902
2012-07-08 16:21 Marcelo B Paula Status resolved => closed
2012-07-08 16:21 Marcelo B Paula Note Added: 0060905