Changeset 8 for trunk/Forms/UFormContacts.pas

Timestamp:

Feb 1, 2018, 12:51:32 PM (7 years ago)

Author:

chronos

Message:

• Added: Show all fields tab in contact form.

File:

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

trunk/Forms/UFormContacts.pas

@@ -110 +110 @@
   if FormContact.ShowModal = mrOK then begin
     Contact := TContact.Create;
+    Contact.Parent := Contacts.ContactsFile;
     FormContact.SaveData(Contact);
     Contacts.Add(Contact);
@@ -171 +172 @@
   if Assigned(Contacts) then
     ListView1.Items.Count := Contacts.Count
-    else ListView1.Clear;
+    else ListView1.Items.Count := 0;
   ListView1.Refresh;
 end;