Changeset 418 for trunk/Packages

Timestamp:

Nov 17, 2021, 11:31:18 AM (3 years ago)

Author:

chronos

Message:

• Modified: Sort key bindings alphabetically in the settings dialog.
• Modified: Use update locking for filling a list of languages and key bindings.

File:

• trunk/Packages/Common/UTranslator.pas (modified) (2 diffs)

trunk/Packages/Common/UTranslator.pas

@@ -316 +316 @@
 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 WithCode and (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;
@@ -375 +380 @@
 
   for I := 1 to Languages.Count - 1 do
-  with TLanguage(Languages[I]) do begin
+  with Languages[I] do begin
     Available := FileExists(LangDir + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
       '.' + Code + ExtensionSeparator + 'po') or (Code = 'en');