Changeset 25 for trunk/Packages/Common


Ignore:
Timestamp:
Oct 5, 2019, 3:04:36 PM (5 years ago)
Author:
chronos
Message:
  • Added: Release notes file.
  • Fixed: Build under older Lazarus version.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UTranslator.pas

    r8 r25  
    77uses
    88  Classes, SysUtils, Forms, ExtCtrls, Controls, Contnrs, LazFileUtils, LazUTF8,
    9   Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType;
     9  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
     10  LCLVersion;
    1011
    1112type
     
    138139      for J := 0 to Items.Count - 1 do
    139140      with TPoFileItem(Items[J]) do begin
     141        {$if (lcl_major<2)}
     142        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
     143          Flags, PreviousID);
     144        {$else}
    140145        Item := nil;
    141146        Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context,
    142147          Flags, PreviousID);
     148        {$endif}
    143149      end;
    144150    Translations.TranslateResourceStrings(Po);
Note: See TracChangeset for help on using the changeset viewer.