Changeset 203 for trunk/Packages


Ignore:
Timestamp:
Apr 24, 2019, 2:43:03 PM (6 years ago)
Author:
chronos
Message:
  • Modified: Build under Lazarus 2.0.0 and newer.
  • Modified: Older .lrt files replaced by .lrj files.
Location:
trunk/Packages
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/Languages/UThreading.po

    r3 r203  
    33
    44#: uthreading.scurrentthreadnotfound
     5#, fuzzy,badformat
    56msgid "Current thread ID %d not found in virtual thread list."
    67msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"

  • trunk/Packages/CoolTranslator/UCoolTranslator.pas

    r157 r203  
    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;
     202  Excludes: TComponentExcludes;
    199203begin
    200204  Count := GetTypeData(Component.ClassInfo)^.PropCount;
    … …  
    294298  Result := FPOFilesFolder;
    295299  if Copy(Result, 1, 1) <> DirectorySeparator then
    296     Result := ExtractFileDir(UTF8Encode(Application.ExeName)) +
     300    Result := ExtractFileDir(Application.ExeName) +
    297301      DirectorySeparator + Result;
    298302end;
    … …  
    428432function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
    429433var
     434  T: string;
    430435  Lang: string;
    431436begin
Note: See TracChangeset for help on using the changeset viewer.