Changeset 463 for branches/highdpi/Packages/Common/Translator.pas

Timestamp:

Nov 29, 2023, 2:35:44 PM (6 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/Common/Translator.pas (moved) (moved from branches/highdpi/Packages/Common/UTranslator.pas ) (21 diffs)

branches/highdpi/Packages/Common/Translator.pas

@@ -1 @@
-unit UTranslator;
-
-{$mode Delphi}{$H+}
+unit Translator;
 
 interface
 
 uses
-  UDpiControls, Classes, SysUtils, Forms, ExtCtrls, Controls, Contnrs, LazFileUtils, LazUTF8,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
-  LCLVersion;
+  UDpiControls, Classes, SysUtils, Forms, ExtCtrls, Controls, LazFileUtils, LazUTF8,
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, Languages, LCLType,
+  LCLVersion, Generics.Collections;
 
 type
   THandleStringEvent = function (AValue: string): string of object;
+
+  TPoFiles = class(TObjectList<TPOFile>)
+  end;
 
   { TComponentExcludes }
@@ -24 +25 @@
   { TComponentExcludesList }
 
-  TComponentExcludesList = class(TObjectList)
+  TComponentExcludesList = class(TObjectList<TComponentExcludes>)
     function FindByClassType(AClassType: TClass): TComponentExcludes;
     procedure DumpToStrings(Strings: TStrings);
@@ -36 +37 @@
     FOnAutomaticLanguage: THandleStringEvent;
     FOnTranslate: TNotifyEvent;
-    FPOFilesFolder: string;
-    FPOFiles: TObjectList; // TObjectList<TPOFile>;
+    FPoFilesFolder: string;
+    FPoFiles: TPoFiles;
     function GetLocale: string;
     function GetLocaleShort: string;
@@ -50 +51 @@
   public
     ComponentExcludes: TComponentExcludesList;
-    Languages: TLanguageList;
+    Languages: TLanguages;
     procedure Translate;
-    procedure LanguageListToStrings(Strings: TStrings);
+    procedure LanguageListToStrings(Strings: TStrings; WithCode: Boolean = True);
     procedure TranslateResourceStrings(PoFileName: string);
     procedure TranslateUnitResourceStrings(UnitName: string; PoFileName: string);
@@ -63 +64 @@
     destructor Destroy; override;
   published
-    property POFilesFolder: string read FPOFilesFolder write SetPOFilesFolder;
+    property POFilesFolder: string read FPoFilesFolder write SetPOFilesFolder;
     property Language: TLanguage read FLanguage write SetLanguage;
     property OnTranslate: TNotifyEvent read FOnTranslate write FOnTranslate;
@@ -71 +72 @@
 
 procedure Register;
+
 
 implementation
@@ -117 +119 @@
 destructor TComponentExcludes.Destroy;
 begin
-  PropertyExcludes.Free;
-  inherited Destroy;
+  FreeAndNil(PropertyExcludes);
+  inherited;
 end;
 
@@ -128 +130 @@
   I, J: Integer;
   Po: TPoFile;
-  Item: TPOFileItem;
+  Item: TPoFileItem;
 begin
   TranslateComponentRecursive(DpiApplication);
@@ -134 +136 @@
   // Merge files to single translation file
   try
-    Po := TPOFile.Create;
-    for I := 0 to FPOFiles.Count - 1 do
+    Po := TPoFile.Create;
+    for I := 0 to FPoFiles.Count - 1 do
     with TPoFile(FPoFiles[I]) do
       for J := 0 to Items.Count - 1 do
@@ -162 +164 @@
   SearchMask: string;
 begin
-  FPOFiles.Clear;
+  FPoFiles.Clear;
   if Assigned(FLanguage) then
   try
     LocaleShort := GetLocaleShort;
-    //ShowMessage(ExtractFileDir(DpiApplication.ExeName) +
+    //ShowMessage(ExtractFileDir(Application.ExeName) +
     //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
     SearchMask := '*';
@@ -177 +179 @@
       if FileExists(FileName) and (
       ((LocaleShort = '') and (Pos('.', FileName) = Pos('.po', FileName))) or
-      (LocaleShort <> '')) then FPOFiles.Add(TPOFile.Create(FileName));
+      (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName));
     end;
   finally
@@ -281 +283 @@
 var
   Item: TClass;
-
   Excludes: TComponentExcludes;
 begin
@@ -287 +288 @@
   Item := Component.ClassType;
   while Assigned(Item) do begin
-    //ShowMessage(Component.Name + ', ' + Component.ClassName + ', ' + Item.ClassName + ', ' + PropertyName);
     Excludes := ComponentExcludes.FindByClassType(Item.ClassType);
     if Assigned(Excludes) then begin
@@ -301 +301 @@
 function TTranslator.GetLangFileDir: string;
 begin
-  Result := FPOFilesFolder;
+  Result := FPoFilesFolder;
   if Copy(Result, 1, 1) <> DirectorySeparator then
     Result := ExtractFileDir(DpiApplication.ExeName) +
@@ -307 +307 @@
 end;
 
-procedure TTranslator.LanguageListToStrings(Strings: TStrings);
+procedure TTranslator.LanguageListToStrings(Strings: TStrings; WithCode: Boolean = True);
 var
   I: Integer;
@@ -313 +313 @@
 begin
   with Strings do begin
-    Clear;
-    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;
+    BeginUpdate;
+    try
+      Clear;
+      for I := 0 to Languages.Count - 1 do
+      with Languages[I] do
+        if Available then begin
+          ItemName := Name;
+          if WithCode and (Code <> '') then ItemName := ItemName + ' (' + Code + ')';
+          AddObject(ItemName, Languages[I]);
+        end;
+    finally
+      EndUpdate;
+    end;
   end;
 end;
@@ -342 +347 @@
   if Text <> '' then begin
     for I := 0 to FPoFiles.Count - 1 do begin
-      Result := TPoFile(FPOFiles[I]).Translate(Identifier, Text);
+      Result := TPoFile(FPoFiles[I]).Translate(Identifier, Text);
       if Result <> Text then Break;
     end;
@@ -369 +374 @@
 begin
   LangDir := GetLangFileDir;
-  TLanguage(Languages[0]).Available := True; // Automatic
+  Languages.SearchByCode('').Available := True; // Automatic
 
   for I := 1 to Languages.Count - 1 do
-  with TLanguage(Languages[I]) do begin
+  with Languages[I] do begin
     Available := FileExists(LangDir + DirectorySeparator + ExtractFileNameOnly(DpiApplication.ExeName) +
       '.' + Code + ExtensionSeparator + 'po') or (Code = 'en');
@@ -381 +386 @@
 begin
   inherited;
-  FPOFiles := TObjectList.Create;
+  FPoFiles := TPoFiles.Create;
   ComponentExcludes := TComponentExcludesList.Create;
-  Languages := TLanguageList.Create;
+  Languages := TLanguages.Create;
   POFilesFolder := 'Languages';
   CheckLanguageFiles;
@@ -395 +400 @@
 destructor TTranslator.Destroy;
 begin
-  FPOFiles.Free;
-  Languages.Free;
-  ComponentExcludes.Free;
-  inherited Destroy;
+  FreeAndNil(FPoFiles);
+  FreeAndNil(Languages);
+  FreeAndNil(ComponentExcludes);
+  inherited;
 end;
 
@@ -564 +569 @@
 end;
 
-
 end.
-