Changeset 107

Timestamp:

Feb 10, 2022, 12:05:11 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Avoid multiple interface update during main form loading.

File:

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

trunk/Forms/UFormMain.pas

@@ -110 +110 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  SetToolbarHints;
-  Core.Initialize;
-  Core.ThemeManager1.UseTheme(Self);
-  Core.PersistentForm1.Load(Self);
-  Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
-  CoolBar1.AutosizeBands;
+  FormContacts.BeginUpdate;
+  try
+    SetToolbarHints;
+    Core.Initialize;
+    Core.ThemeManager1.UseTheme(Self);
+    Core.PersistentForm1.Load(Self);
+    Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
+    CoolBar1.AutosizeBands;
 
-  FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts;
-  FormContacts.ManualDock(Self, nil, alClient);
-  FormContacts.Align := alClient;
-  FormContacts.Show;
+    FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts;
+    FormContacts.ManualDock(Self, nil, alClient);
+    FormContacts.Align := alClient;
+    FormContacts.Show;
+  finally
+    FormContacts.EndUpdate;
+  end;
 end;