Changeset 204 for trunk/Packages/CoolTranslator

Timestamp:

May 6, 2019, 2:49:33 PM (6 years ago)

Author:

chronos

Message:

• Modified: Use fgl unit instead of TemplateGenerics.
• Modified: Update czech translation.
• Modified: Updated packages.

File:

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

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -200 +200 @@
   PropInfo: PPropInfo;
   PropList: PPropList;
-  Excludes: TComponentExcludes;
 begin
   Count := GetTypeData(Component.ClassInfo)^.PropCount;
@@ -253 +252 @@
           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, string(GetWideStrProp(Component, PropInfo))));
         end;
         tkClass: begin
@@ -415 +414 @@
         Lang := ParamStr(i + 1);
   end;
-  if Lang = '' then
+  if Lang = '' then begin
+    T := '';
     LazGetLanguageIDs(Lang, T);
+  end;
 
   if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
@@ -432 +433 @@
 function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
 var
-  T: string;
   Lang: string;
 begin