Changeset 72 for trunk/Forms/UFormProperties.lfm

Timestamp:

Dec 13, 2021, 8:47:20 PM (2 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/UFormProperties.lfm (modified) (4 diffs)

trunk/Forms/UFormProperties.lfm

@@ -74 +74 @@
       Action = AClone
     end
+    object ToolButton5: TToolButton
+      Left = 141
+      Height = 33
+      Top = 2
+      Style = tbsSeparator
+    end
+    object ToolButton6: TToolButton
+      Left = 149
+      Top = 2
+      Action = ALoadValueFromFile
+    end
+    object ToolButton7: TToolButton
+      Left = 184
+      Top = 2
+      Action = ASaveValueToFile
+    end
   end
   object ListViewFilter1: TListViewFilter
@@ -112 +128 @@
     object MenuItem4: TMenuItem
       Action = ASelectAll
+    end
+    object MenuItem6: TMenuItem
+      Caption = '-'
+    end
+    object MenuItem7: TMenuItem
+      Action = ALoadValueFromFile
+    end
+    object MenuItem8: TMenuItem
+      Action = ASaveValueToFile
     end
   end
@@ -146 +171 @@
       OnExecute = ACloneExecute
     end
+    object ASaveValueToFile: TAction
+      Caption = 'Save value to file...'
+      ImageIndex = 7
+      OnExecute = ASaveValueToFileExecute
+    end
+    object ALoadValueFromFile: TAction
+      Caption = 'Load value from file...'
+      ImageIndex = 5
+      OnExecute = ALoadValueFromFileExecute
+    end
   end
   object ListViewSort1: TListViewSort
@@ -157 +192 @@
     Top = 428
   end
+  object SaveDialog1: TSaveDialog
+    Left = 760
+    Top = 448
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 760
+    Top = 520
+  end
 end