Changeset 72 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormContacts.lfm (modified) (4 diffs)
• UFormContacts.pas (modified) (1 diff)
• UFormProperties.lfm (modified) (4 diffs)
• UFormProperties.lrj (modified) (1 diff)
• UFormProperties.pas (modified) (8 diffs)

trunk/Forms/UFormContacts.lfm

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

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;
 

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

trunk/Forms/UFormProperties.lrj

@@ -8 +8 @@
 {"hash":93079237,"name":"tformproperties.aremove.caption","sourcebytes":[82,101,109,111,118,101],"value":"Remove"},
 {"hash":195296268,"name":"tformproperties.aselectall.caption","sourcebytes":[83,101,108,101,99,116,32,97,108,108],"value":"Select all"},
-{"hash":4863557,"name":"tformproperties.aclone.caption","sourcebytes":[67,108,111,110,101],"value":"Clone"}
+{"hash":4863557,"name":"tformproperties.aclone.caption","sourcebytes":[67,108,111,110,101],"value":"Clone"},
+{"hash":201478110,"name":"tformproperties.asavevaluetofile.caption","sourcebytes":[83,97,118,101,32,118,97,108,117,101,32,116,111,32,102,105,108,101,46,46,46],"value":"Save value to file..."},
+{"hash":231494782,"name":"tformproperties.aloadvaluefromfile.caption","sourcebytes":[76,111,97,100,32,118,97,108,117,101,32,102,114,111,109,32,102,105,108,101,46,46,46],"value":"Load value from file..."}
 ]}

trunk/Forms/UFormProperties.pas

@@ -16 +16 @@
     AAdd: TAction;
     AClone: TAction;
+    ASaveValueToFile: TAction;
+    ALoadValueFromFile: TAction;
     ASelectAll: TAction;
     ARemove: TAction;
@@ -28 +30 @@
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    OpenDialog1: TOpenDialog;
     PopupMenuField: TPopupMenu;
+    SaveDialog1: TSaveDialog;
     StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
@@ -35 +42 @@
     ToolButton3: TToolButton;
     ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure ACloneExecute(Sender: TObject);
+    procedure ALoadValueFromFileExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure ASaveValueToFileExecute(Sender: TObject);
     procedure ASelectAllExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -70 +82 @@
 
 uses
-  UFormProperty, UCore;
+  UFormProperty, UCore, UCommon;
 
 resourcestring
@@ -78 +90 @@
   SFiltered = 'Filtered';
   SSelected = 'Selected';
+  SAllFiles = 'All files';
+  STextFiles = 'Text files';
+  SValue = 'Value';
+
+const
+  TextFileExt = '.txt';
 
 { TFormProperties }
@@ -247 +265 @@
 end;
 
+procedure TFormProperties.ALoadValueFromFileExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    OpenDialog1.Filter := STextFiles + '|*' + TextFileExt + '|' + SAllFiles + '|*.*';
+    OpenDialog1.DefaultExt := TextFileExt;
+    OpenDialog1.InitialDir := ExtractFileDir(Core.LastPropertyValueFileName);
+    OpenDialog1.FileName := ExtractFileName(Core.LastPropertyValueFileName);
+    if OpenDialog1.Execute then begin
+      TContactProperty(ListView1.Selected.Data).Value := LoadFileToStr(OpenDialog1.FileName);
+      Core.LastPropertyValueFileName := OpenDialog1.FileName;
+      ReloadList;
+    end;
+  end;
+end;
+
 procedure TFormProperties.AModifyExecute(Sender: TObject);
 var
@@ -289 +322 @@
 end;
 
+procedure TFormProperties.ASaveValueToFileExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    SaveDialog1.Filter := STextFiles + '|*' + TextFileExt + '|' + SAllFiles + '|*.*';
+    SaveDialog1.DefaultExt := TextFileExt;
+    SaveDialog1.InitialDir := ExtractFileDir(Core.LastPropertyValueFileName);
+    SaveDialog1.FileName := SValue + TextFileExt;
+    if SaveDialog1.Execute then begin
+      SaveStringToFile(TContactProperty(ListView1.Selected.Data).Value, SaveDialog1.FileName);
+      Core.LastPropertyValueFileName := SaveDialog1.FileName;
+    end;
+  end;
+end;
+
 procedure TFormProperties.ASelectAllExecute(Sender: TObject);
 begin
@@ -324 +371 @@
   AAdd.Enabled := Assigned(Properties);
   AModify.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
+  AClone.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);;
   ARemove.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
+  ALoadValueFromFile.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
+  ASaveValueToFile.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
+  ASelectAll.Enabled := ListView1.Items.Count > 0;
 
   Text := '';