Changeset 72 for trunk/Packages/CoolTranslator/UCoolTranslator.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

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

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, StdCtrls, ExtCtrls, StrUtils, Controls, Contnrs,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType;
+  Classes, SysUtils, Forms, ExtCtrls, Controls, Contnrs,
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
+  LazFileUtils, LazUTF8;
 
 type
@@ -190 +191 @@
   PropInfo: PPropInfo;
   PropList: PPropList;
-  Excludes: TComponentExcludes;
 begin
   Count := GetTypeData(Component.ClassInfo)^.PropCount;
@@ -223 +223 @@
 var
   PropType: PTypeInfo;
-  Parent: TObject;
   Obj: TObject;
   I: Integer;
@@ -244 +243 @@
           if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then
           //if not IsExcluded(Component, PropInfo^.Name) then
-              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetWideStrProp(Component, PropInfo)));
+              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetStrProp(Component, PropInfo)));
         end;
         tkClass: begin
@@ -382 +381 @@
   T: string;
 begin
+  T := '';
+
   // Win32 user may decide to override locale with LANG variable.
   Lang := GetEnvironmentVariableUTF8('LANG');
@@ -396 +397 @@
   end;
   if Lang = '' then
-    LCLGetLanguageIDs(Lang, T);
+    LazGetLanguageIDs(Lang, T);
 
   if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
@@ -414 +415 @@
 function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
 var
-  T: string;
-  I: Integer;
   Lang: string;
 begin