Changeset 229

Timestamp:

Apr 7, 2011, 9:24:06 AM (13 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.

Location:

CoolTranslator

Files:

• CoolTranslator.lpk (modified) (2 diffs)
• Languages/UCoolTranslator.po (added)
• ReadMe.txt (added)
• UCoolTranslator.pas (modified) (8 diffs)
• ULanguages.pas (modified) (1 diff)

CoolTranslator/CoolTranslator.lpk

@@ -18 +18 @@
     <License Value="GNU/GPL"/>
     <Version Minor="1"/>
-    <Files Count="2">
+    <Files Count="3">
       <Item1>
         <Filename Value="UCoolTranslator.pas"/>
@@ -28 +28 @@
         <UnitName Value="ULanguages"/>
       </Item2>
+      <Item3>
+        <Filename Value="ReadMe.txt"/>
+        <Type Value="Text"/>
+      </Item3>
     </Files>
     <i18n>

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

CoolTranslator/ULanguages.pas

@@ -12 +12 @@
     Name: string;
     Code: string;
+    Available: Boolean;
   end;