Changeset 306 for CoolTranslator

Timestamp:

Jan 3, 2012, 10:34:03 AM (12 years ago)

Author:

chronos

Message:

• Modified: CoolTranslator compilation on FPC 2.6.0.
• Added: Event OnAutomaticLanguage in CoolTranslator for redefining default language selection.

File:

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

CoolTranslator/UCoolTranslator.pas

@@ -10 +10 @@
 
 type
+  THandleStringEvent = function (AValue: string): string of object;
+
   { TComponentExcludes }
 
@@ -31 +33 @@
   private
     FLanguage: TLanguage;
+    FOnAutomaticLanguage: THandleStringEvent;
     FOnTranslate: TNotifyEvent;
     FPOFilesFolder: string;
@@ -61 +64 @@
     property Language: TLanguage read FLanguage write SetLanguage;
     property OnTranslate: TNotifyEvent read FOnTranslate write FOnTranslate;
+    property OnAutomaticLanguage: THandleStringEvent read FOnAutomaticLanguage
+      write FOnAutomaticLanguage;
   end;
 
@@ -131 +136 @@
       for J := 0 to Items.Count - 1 do
       with TPoFileItem(Items[J]) do
-        Po.Add(Identifier, Original, Translation, Comments, Context,
+        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
           Flags, PreviousID);
     Translations.TranslateResourceStrings(Po);
@@ -393 +398 @@
     LCLGetLanguageIDs(Lang, T);
 
+  if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
+    Lang := FOnAutomaticLanguage(Lang);
+  end;
+
   if Lang = 'en' then Lang := ''; // English files are without en code
+
   Result := Lang;
 end;