Changeset 74 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormContacts.lfm (modified) (4 diffs)
• UFormContacts.pas (modified) (3 diffs)

trunk/Forms/UFormContacts.lfm

@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 801
+    Height = 810
     Top = 0
     Width = 1210
@@ -66 +66 @@
     Left = 0
     Height = 39
-    Top = 833
+    Top = 842
     Width = 1210
     Align = alBottom
@@ -114 +114 @@
     Left = 0
     Height = 32
-    Top = 801
+    Top = 810
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -121 +121 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 36
-    Top = 872
+    Height = 27
+    Top = 881
     Width = 1210
     Panels = <    

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;