Changeset 157

Timestamp:

Oct 21, 2017, 8:38:57 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.

File:

• trunk/Packages/CoolTranslator/UCoolTranslator.pas (modified) (3 diffs)

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -197 +197 @@
   PropInfo: PPropInfo;
   PropList: PPropList;
-  Excludes: TComponentExcludes;
 begin
   Count := GetTypeData(Component.ClassInfo)^.PropCount;
@@ -413 +412 @@
   end;
   if Lang = '' then
-    LCLGetLanguageIDs(Lang, T);
+    LazGetLanguageIDs(Lang, T);
 
   if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
@@ -429 +428 @@
 function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
 var
-  T: string;
   Lang: string;
 begin