Changeset 74 for trunk/Forms/UFormNew.pas

Timestamp:

Aug 12, 2020, 8:08:35 AM (4 years ago)

Author:

chronos

Message:

• Modified: Update locking on combobox fill.

File:

• trunk/Forms/UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormNew.pas

@@ -50 +50 @@
   Core.Translator1.TranslateComponentRecursive(Self);
   Core.ThemeManager1.UseTheme(Self);
-  ComboBoxSkin.Items.Clear;
-  for I := Low(SkinText) to High(SkinText) do
-    ComboBoxSkin.Items.Add(SkinText[I]);
+  ComboBoxSkin.Items.BeginUpdate;
+  try
+    ComboBoxSkin.Items.Clear;
+    for I := Low(SkinText) to High(SkinText) do
+      ComboBoxSkin.Items.Add(SkinText[I]);
+  finally
+    ComboBoxSkin.Items.EndUpdate;
+  end;
 end;