Changeset 72 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 13, 2021, 8:47:20 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Properties with just BASE64 instead of ENCODING=BASE64 was not decoded using Base64 and so contact photos were not loaded correctly.
• Added: Allow to save from file and load to file contact property values in All fields tab.

File:

• trunk/Forms/UFormContacts.pas (modified) (1 diff)

trunk/Forms/UFormContacts.pas

@@ -473 +473 @@
 begin
   if FUpdateCount = 0 then DoUpdateInterface;
-  ALoadFromFile.Enabled := Assigned(ListView1.Selected);
-  ASaveToFile.Enabled := Assigned(ListView1.Selected);
-  AModify.Enabled := Assigned(ListView1.Selected);
-  AClone.Enabled := Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(ListView1.Selected);
+  AAdd.Enabled := Assigned(Contacts);
+  AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  AClone.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
   ASelectAll.Enabled := ListView1.Items.Count > 0;
+  ALoadFromFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  ASaveToFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
 end;