Changeset 129 for trunk/Forms/UFormMain.pas

Timestamp:

Apr 9, 2022, 11:52:13 AM (2 years ago)

Author:

chronos

Message:

• Added: TVCard as TComponent descendant.
• Modified: TContactsFile renamed to TVCardFile and moved into separate file.

File:

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

trunk/Forms/UFormMain.pas

@@ -76 +76 @@
 
 uses
-  UCore, UFormContacts, UContact;
+  UCore, UFormContacts, UVCard, UVCardFile;
 
 resourcestring
@@ -121 +121 @@
     CoolBar1.AutosizeBands;
 
-    FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts;
+    FormContacts.Contacts := TVCardFile(Core.DataFile).VCard.Contacts;
     FormContacts.ManualDock(Self, nil, alClient);
     FormContacts.Align := alClient;