Changeset 74 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 13, 2021, 11:45:47 PM (3 years ago)

Author:

chronos

Message:

• Added: Logo contact field.
• Fixed: Copy and paste were incorrectly copying duplicate contacts.

File:

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

trunk/Forms/UFormContacts.pas

@@ -355 +355 @@
   for I := 0 to ListView1.Items.Count - 1 do
     if ListView1.Items[I].Selected then begin
+      Strings.Clear;
       TContact(ListView1.Items[I].Data).SaveToStrings(Strings);
       Text := Text + Strings.Text;
@@ -375 +376 @@
     for I := 0 to ListView1.Items.Count - 1 do
       if ListView1.Items[I].Selected then begin
+        Strings.Clear;
         TContact(ListView1.Items[I].Data).SaveToStrings(Strings);
         Text := Text + Strings.Text;
@@ -562 +564 @@
   ALoadFromFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
   ASaveToFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  ACopy.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  ACut.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
 end;