Ignore:
Timestamp:
May 8, 2019, 11:54:23 AM (6 years ago)
Author:
chronos
Message:
  • Modified: Build under Lazarus 2.0.
  • Modified: Used .lrj files instead of .lrt files.
  • Modified: Removed TemplateGenerics package.
Location:
trunk/Packages/CoolTranslator
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CoolTranslator

    • Property svn:ignore set to
      lib
  • trunk/Packages/CoolTranslator/CoolTranslator.lpk

    r40 r41  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    33  <Package Version="4">
    44    <PathDelim Value="\"/>
    55    <Name Value="CoolTranslator"/>
     6    <Type Value="RunAndDesignTime"/>
    67    <AddToProjectUsesSection Value="True"/>
    78    <Author Value="Chronos (robie@centrum.cz)"/>
    89    <CompilerOptions>
    9       <Version Value="10"/>
     10      <Version Value="11"/>
    1011      <PathDelim Value="\"/>
    1112      <SearchPaths>
    12         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     13        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
    1314      </SearchPaths>
     15      <Parsing>
     16        <SyntaxOptions>
     17          <SyntaxMode Value="Delphi"/>
     18          <CStyleOperator Value="False"/>
     19          <AllowLabel Value="False"/>
     20          <CPPInline Value="False"/>
     21        </SyntaxOptions>
     22      </Parsing>
     23      <CodeGeneration>
     24        <Optimizations>
     25          <OptimizationLevel Value="0"/>
     26        </Optimizations>
     27      </CodeGeneration>
     28      <Linking>
     29        <Debugging>
     30          <GenerateDebugInfo Value="False"/>
     31        </Debugging>
     32      </Linking>
    1433      <Other>
    15         <CompilerPath Value="$(CompPath)"/>
     34        <CompilerMessages>
     35          <IgnoredMessages idx5024="True"/>
     36        </CompilerMessages>
    1637      </Other>
    1738    </CompilerOptions>
     
    3859      <OutDir Value="Languages"/>
    3960    </i18n>
    40     <Type Value="RunAndDesignTime"/>
    4161    <RequiredPkgs Count="2">
    4262      <Item1>
  • trunk/Packages/CoolTranslator/UCoolTranslator.pas

    r40 r41  
    127127  I, J: Integer;
    128128  Po: TPoFile;
     129  Item: TPOFileItem;
    129130begin
    130131  TranslateComponentRecursive(Application);
     
    136137    with TPoFile(FPoFiles[I]) do
    137138      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,
    140142          Flags, PreviousID);
     143      end;
    141144    Translations.TranslateResourceStrings(Po);
    142145  finally
     
    197200  PropInfo: PPropInfo;
    198201  PropList: PPropList;
    199   Excludes: TComponentExcludes;
    200202begin
    201203  Count := GetTypeData(Component.ClassInfo)^.PropCount;
     
    250252          if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then
    251253          //if not IsExcluded(Component, PropInfo^.Name) then
    252               SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetWideStrProp(Component, PropInfo)));
     254              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, string(GetWideStrProp(Component, PropInfo))));
    253255        end;
    254256        tkClass: begin
     
    295297  Result := FPOFilesFolder;
    296298  if Copy(Result, 1, 1) <> DirectorySeparator then
    297     Result := ExtractFileDir(UTF8Encode(Application.ExeName)) +
     299    Result := ExtractFileDir(Application.ExeName) +
    298300      DirectorySeparator + Result;
    299301end;
     
    412414        Lang := ParamStr(i + 1);
    413415  end;
    414   if Lang = '' then
    415     LCLGetLanguageIDs(Lang, T);
     416  if Lang = '' then begin
     417    T := '';
     418    LazGetLanguageIDs(Lang, T);
     419  end;
    416420
    417421  if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
     
    429433function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
    430434var
    431   T: string;
    432435  Lang: string;
    433436begin
Note: See TracChangeset for help on using the changeset viewer.