Changeset 74

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Forms/UFormContacts.lfm (modified) (4 diffs)
• Forms/UFormContacts.pas (modified) (3 diffs)
• Languages/vCardStudio.cs.po (modified) (1 diff)
• Languages/vCardStudio.po (modified) (1 diff)
• UContact.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;
 

trunk/Languages/vCardStudio.cs.po

@@ -915 +915 @@
 msgstr "LinkedIn"
 
+#: ucontact.slogo
+msgid "Logo"
+msgstr "Logo"
+
 #: ucontact.smainphone
 msgid "Main phone"

trunk/Languages/vCardStudio.po

@@ -903 +903 @@
 msgstr ""
 
+#: ucontact.slogo
+msgid "Logo"
+msgstr ""
+
 #: ucontact.smainphone
 msgid "Main phone"

trunk/UContact.pas

@@ -28 +28 @@
     cfWorkAddressPostalCode, cfWorkAddressRegion, cfWorkAddressPostOfficeBox,
     cfXTimesContacted, cfXLastTimeContacted, cfPhoto, cfDayOfBirth, cfRevision,
-    cfVersion, cfAnniversary, cfGender,
+    cfVersion, cfAnniversary, cfGender, cfLogo,
     cfJabber, cfIcq, cfWindowsLive, cfGoogleTalk, cfAim, cfQq, cfYahoo, cfIrc,
     cfSkype, cfMsn, cfGroupWise, cfGaduGadu,
@@ -233 +233 @@
   SLastTimeContacted = 'Last Time Contacted';
   SPhoto = 'Photo';
+  SLogo = 'Logo';
   SJabber = 'Jabber';
   SDayOfBirth = 'Day of birth';
@@ -1132 +1133 @@
     AddNew('X-LAST_TIME_CONTACTED', [], [], SLastTimeContacted, cfXLastTimeContacted, dtString);
     AddNew('PHOTO', [], [], SPhoto, cfPhoto, dtImage);
+    AddNew('LOGO', [], [], SLogo, cfLogo, dtImage);
     AddNew('BDAY', [], [], SDayOfBirth, cfDayOfBirth, dtDate);
     with AddNew('ANNIVERSARY', [], [], SAnniversary, cfAnniversary, dtDate) do