Changeset 24 for tags


Ignore:
Timestamp:
Oct 5, 2019, 2:56:55 PM (5 years ago)
Author:
chronos
Message:
  • Fixed: Build of translator unit under older Lazarus.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/1.0/Packages/Common/UTranslator.pas

    r8 r24  
    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
     
    139140      with TPoFileItem(Items[J]) do begin
    140141        Item := nil;
     142        {$if (lcl_major<2)}
     143        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
     144          Flags, PreviousID);
     145        {$else}
    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.