Changeset 229 for CoolTranslator/UCoolTranslator.pas

Timestamp:

Apr 7, 2011, 9:24:06 AM (14 years ago)

Author:

george

Message:

• Added: ReadMe text file.
• Modified: Instead property exclusion now using TTranslateString type.
• Added: Automatic check of language files.
• Added: Experimental translation of TStrings.

File:

• CoolTranslator/UCoolTranslator.pas (modified) (8 diffs)

CoolTranslator/UCoolTranslator.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, StdCtrls, ExtCtrls, StrUtils, Controls, Contnrs,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages;
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType;
 
 type
@@ -52 +52 @@
     function TranslateText(Identifier, Text: string): string;
     procedure AddExcludes(AClassType: TClass; PropertyName: string);
+    procedure CheckLanguageFiles;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -116 +117 @@
 procedure TCoolTranslator.Translate;
 begin
+  TranslateResourceStrings('ULanguages.cs.po');
   TranslateComponentRecursive(Application);
   if Assigned(FPOFile) then
@@ -205 +207 @@
       case PropType^.Kind of
         tkString, tkLString, tkWString, tkAString: begin
-          if not IsExcluded(Component, PropInfo^.Name) then
+          if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then
+          //if not IsExcluded(Component, PropInfo^.Name) then
               SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetWideStrProp(Component, PropInfo)));
         end;
@@ -214 +217 @@
               with TCollection(Obj).Items[I] do
                 TranslateComponent(TCollection(Obj).Items[I]);
+          if Obj is TStrings then
+            for I := 0 to TStrings(Obj).Count - 1 do
+              with TStrings(Obj) do
+                Strings[I] := TranslateText(Strings[I], Strings[I]);
         end;
       end;
@@ -245 +252 @@
 var
   I: Integer;
+  ItemName: string;
 begin
   with Strings do begin
     Clear;
-    for I := 0 to Languages.Count - 1 do begin
-      AddObject(TLanguage(Languages[I]).Name, Languages[I]);
-    end;
+    for I := 0 to Languages.Count - 1 do
+    with TLanguage(Languages[I]) do
+      if Available then begin
+        ItemName := Name;
+        if Code <> '' then ItemName := ItemName + ' (' + Code + ')';
+        AddObject(ItemName, Languages[I]);
+      end;
   end;
 end;
@@ -286 +298 @@
 end;
 
+procedure TCoolTranslator.CheckLanguageFiles;
+var
+  I: Integer;
+begin
+  TLanguage(Languages[0]).Available := True; // Automatic
+
+  for I := 1 to Languages.Count - 1 do
+  with TLanguage(Languages[I]) do begin
+    Available := FileExistsUTF8(POFilesFolder + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
+      '.' + Code + ExtensionSeparator + 'po') or (Code = 'en');
+  end;
+end;
+
 constructor TCoolTranslator.Create(AOwner: TComponent);
 begin
@@ -292 +317 @@
   Languages := TLanguageList.Create;
   POFilesFolder := 'Languages';
+  CheckLanguageFiles;
 
   // LCL