Changeset 53 for trunk/Forms/UFormContacts.lfm

Timestamp:

Dec 8, 2021, 2:02:17 PM (3 years ago)

Author:

chronos

Message:

• Added: Allow to load from file or save to file individual selected contacts from the list.

File:

• trunk/Forms/UFormContacts.lfm (modified) (7 diffs)

trunk/Forms/UFormContacts.lfm

@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 810
+    Height = 801
     Top = 0
     Width = 1210
@@ -58 +58 @@
     Left = 0
     Height = 39
-    Top = 842
+    Top = 833
     Width = 1210
     Align = alBottom
@@ -86 +86 @@
       Action = AClone
     end
+    object ToolButton5: TToolButton
+      Left = 141
+      Height = 33
+      Top = 2
+      Style = tbsSeparator
+    end
+    object ToolButton6: TToolButton
+      Left = 149
+      Top = 2
+      Action = ALoadFromFile
+    end
+    object ToolButton7: TToolButton
+      Left = 184
+      Top = 2
+      Action = ASaveToFile
+    end
   end
   object ListViewFilter1: TListViewFilter
     Left = 0
     Height = 32
-    Top = 810
+    Top = 801
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -97 +113 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 881
+    Height = 36
+    Top = 872
     Width = 1210
     Panels = <    
@@ -124 +140 @@
     object MenuItem4: TMenuItem
       Action = ASelectAll
+    end
+    object MenuItem6: TMenuItem
+      Caption = '-'
+    end
+    object MenuItem7: TMenuItem
+      Action = ALoadFromFile
+    end
+    object MenuItem8: TMenuItem
+      Action = ASaveToFile
     end
   end
@@ -158 +183 @@
       OnExecute = ACloneExecute
     end
+    object ALoadFromFile: TAction
+      Caption = 'Load from file...'
+      ImageIndex = 5
+      OnExecute = ALoadFromFileExecute
+    end
+    object ASaveToFile: TAction
+      Caption = 'Save to file...'
+      ImageIndex = 7
+      OnExecute = ASaveToFileExecute
+    end
   end
   object ListViewSort1: TListViewSort
@@ -169 +204 @@
     Top = 428
   end
+  object SaveDialog1: TSaveDialog
+    Left = 720
+    Top = 408
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 720
+    Top = 480
+  end
 end