Changeset 140

Timestamp:

Aug 26, 2022, 8:17:21 PM (21 months ago)

Author:

chronos

Message:

• Fixed: Initialize correctly last selected tab in Contact form.

File:

• trunk/Forms/UFormContact.pas (modified) (2 diffs)

trunk/Forms/UFormContact.pas

@@ -338 +338 @@
     FormProperties.Show;
 
-    PageControlContact.TabIndex := Core.LastContactTabIndex;
     UpdateInterface;
   finally
@@ -852 +851 @@
   BarcodeQR1.Anchors := [akTop, akLeft];
   BarcodeQR1.PopupMenu := PopupMenuQrCode;
+
+  PageControlContact.TabIndex := Core.LastContactTabIndex;
 end;