Changeset 129 for trunk/Forms/UFormContacts.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/UFormContacts.pas (modified) (9 diffs)

trunk/Forms/UFormContacts.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UContact, UListViewSort, LazUTF8, Clipbrd,
+  Menus, ActnList, UVCard, UListViewSort, LazUTF8, Clipbrd,
   Generics.Collections;
 
@@ -102 +102 @@
 
 uses
-  UFormContact, UCore;
+  UFormContact, UCore, UVCardFile;
 
 resourcestring
@@ -304 +304 @@
       ListView1.Columns.Delete(ListView1.Columns.Count - 1);
     for I := 0 to ListView1.Columns.Count - 1 do begin
-      if Assigned(Contacts) and Assigned(Contacts.ContactsFile) then begin
+      if Assigned(Contacts) and Assigned(Contacts.ParentVCard) then begin
         Field := TContact.GetFields.GetByIndex(ListViewColumns[I]);
         if Assigned(Field) then
@@ -334 +334 @@
     Contact := TContact.Create;
     try
-      Contact.ContactsFile := Contacts.ContactsFile;
+      Contact.ParentVCard := Contacts.ParentVCard;
       FormContact.Contact := Contact;
       FormContact.OnGetPrevious := GetPreviousContact;
@@ -364 +364 @@
     Contact := TContact.Create;
     try
-      Contact.ContactsFile := Contacts.ContactsFile;
+      Contact.ParentVCard := Contacts.ParentVCard;
       Contact.Assign(TContact(ListView1.Selected.Data));
       FormContact.Contact := Contact;
@@ -436 +436 @@
 procedure TFormContacts.ALoadFromFileExecute(Sender: TObject);
 var
-  TempFile: TContactsFile;
+  TempFile: TVCardFile;
 begin
   if Assigned(ListView1.Selected) then begin
-    TempFile := TContactsFile.Create;
+    TempFile := TVCardFile.Create;
     try
       OpenDialog1.Filter := TempFile.GetFileFilter;
@@ -465 +465 @@
     Contact := TContact.Create;
     try
-      Contact.ContactsFile := Contacts.ContactsFile;
+      Contact.ParentVCard := Contacts.ParentVCard;
       Contact.Assign(TContact(ListView1.Selected.Data));
       FormContact.Contact := Contact;
@@ -486 +486 @@
 procedure TFormContacts.APasteExecute(Sender: TObject);
 var
-  PasteContacts: TContactsFile;
+  PasteContacts: TVCardFile;
   Lines: TStringList;
 begin
-  PasteContacts := TContactsFile.Create;
+  PasteContacts := TVCardFile.Create;
   Lines := TStringList.Create;
   try
     Lines.Text := Clipboard.AsText;
-    PasteContacts.LoadFromStrings(Lines);
-    if PasteContacts.Contacts.Count > 0 then begin
+    PasteContacts.VCard.LoadFromStrings(Lines);
+    if PasteContacts.VCard.Contacts.Count > 0 then begin
       if Assigned(ListView1.Selected) then begin
         Contacts.InsertContacts(Contacts.IndexOf(ListView1.Selected.Data),
-          PasteContacts.Contacts);
-      end else Contacts.AddContacts(PasteContacts.Contacts);
+          PasteContacts.VCard.Contacts);
+      end else Contacts.AddContacts(PasteContacts.VCard.Contacts);
       Core.DataFile.Modified := True;
       ReloadList;
@@ -528 +528 @@
 procedure TFormContacts.ASaveToFileExecute(Sender: TObject);
 var
-  TempFile: TContactsFile;
+  TempFile: TVCardFile;
 begin
   if Assigned(ListView1.Selected) then begin
-    TempFile := TContactsFile.Create;
+    TempFile := TVCardFile.Create;
     try
       SaveDialog1.Filter := TempFile.GetFileFilter;