Changeset 102 for trunk/Packages/CoolTranslator
- Timestamp:
- May 5, 2019, 12:09:56 AM (5 years ago)
- Location:
- trunk/Packages/CoolTranslator
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CoolTranslator/CoolTranslator.lpk
r54 r102 1 <?xml version="1.0" ?>1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 3 <Package Version="4"> 4 4 <PathDelim Value="\"/> 5 5 <Name Value="CoolTranslator"/> 6 <Type Value="RunAndDesignTime"/> 6 7 <AddToProjectUsesSection Value="True"/> 7 8 <Author Value="Chronos (robie@centrum.cz)"/> 8 9 <CompilerOptions> 9 <Version Value="1 0"/>10 <Version Value="11"/> 10 11 <PathDelim Value="\"/> 11 12 <SearchPaths> 12 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS) "/>13 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> 13 14 </SearchPaths> 15 <Parsing> 16 <SyntaxOptions> 17 <CStyleOperator Value="False"/> 18 <AllowLabel Value="False"/> 19 <CPPInline Value="False"/> 20 </SyntaxOptions> 21 </Parsing> 22 <CodeGeneration> 23 <Optimizations> 24 <OptimizationLevel Value="0"/> 25 </Optimizations> 26 </CodeGeneration> 27 <Linking> 28 <Debugging> 29 <GenerateDebugInfo Value="False"/> 30 </Debugging> 31 </Linking> 14 32 <Other> 15 <CompilerPath Value="$(CompPath)"/> 33 <CompilerMessages> 34 <IgnoredMessages idx5024="True"/> 35 </CompilerMessages> 16 36 </Other> 17 37 </CompilerOptions> … … 38 58 <OutDir Value="Languages"/> 39 59 </i18n> 40 <Type Value="RunAndDesignTime"/>41 60 <RequiredPkgs Count="2"> 42 61 <Item1> -
trunk/Packages/CoolTranslator/UCoolTranslator.pas
r85 r102 127 127 I, J: Integer; 128 128 Po: TPoFile; 129 Item: TPOFileItem; 129 130 begin 130 131 TranslateComponentRecursive(Application); … … 136 137 with TPoFile(FPoFiles[I]) do 137 138 for J := 0 to Items.Count - 1 do 138 with TPoFileItem(Items[J]) do 139 Po.Add(IdentifierLow, Original, Translation, Comments, Context, 139 with TPoFileItem(Items[J]) do begin 140 Item := nil; 141 Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context, 140 142 Flags, PreviousID); 143 end; 141 144 Translations.TranslateResourceStrings(Po); 142 145 finally … … 295 298 Result := FPOFilesFolder; 296 299 if Copy(Result, 1, 1) <> DirectorySeparator then 297 Result := ExtractFileDir( UTF8Encode(Application.ExeName)) +300 Result := ExtractFileDir(Application.ExeName) + 298 301 DirectorySeparator + Result; 299 302 end;
Note:
See TracChangeset
for help on using the changeset viewer.