Changeset 62

Timestamp:

Dec 9, 2021, 10:53:52 PM (3 years ago)

Author:

chronos

Message:

• Added: New feature to split multiple contacts into separate files. Accessible from File menu.

Location:

trunk

Files:

• Forms/UFormGenerate.lfm (modified) (3 diffs)
• Forms/UFormGenerate.pas (modified) (1 diff)
• Forms/UFormMain.lfm (modified) (5 diffs)
• Forms/UFormMain.pas (modified) (1 diff)
• Forms/UFormProperties.lfm (modified) (4 diffs)
• Languages/vCardStudio.cs.po (modified) (2 diffs)
• Languages/vCardStudio.po (modified) (2 diffs)
• UCore.lfm (modified) (3 diffs)
• UCore.pas (modified) (9 diffs)

trunk/Forms/UFormGenerate.lfm

@@ -1 +1 @@
 object FormGenerate: TFormGenerate
-  Left = 464
+  Left = 470
   Height = 562
-  Top = 368
+  Top = 372
   Width = 812
   Caption = 'Generate contacts'
@@ -14 +14 @@
   object Label1: TLabel
     Left = 19
-    Height = 24
+    Height = 25
     Top = 19
-    Width = 55
+    Width = 52
     Caption = 'Count:'
     ParentColor = False
@@ -23 +23 @@
   object SpinEditCount: TSpinEdit
     Left = 155
-    Height = 42
+    Height = 33
     Top = 18
     Width = 152

trunk/Forms/UFormGenerate.pas

@@ -46 +46 @@
   for I := 1 to SpinEditCount.Value do begin
     Contact := Contacts.AddNew;
+    Contact.Fields[cfVersion] := '2.1';
     Contact.Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
     Contact.Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));

trunk/Forms/UFormMain.lfm

@@ -41 +41 @@
       Height = 33
       Top = 5
-      Width = 135
+      Width = 159
       Align = alNone
       AutoSize = True
@@ -72 +72 @@
       end
       object ToolButton4: TToolButton
-        Left = 1
-        Top = 33
+        Left = 124
+        Top = 0
         Action = Core.AFileClose
       end
@@ -83 +83 @@
       Height = 33
       Top = 5
-      Width = 35
+      Width = 71
       Align = alNone
       AutoSize = True
@@ -97 +97 @@
       Transparent = True
       object ToolButton5: TToolButton
-        Left = 1
-        Top = 33
+        Left = 36
+        Top = 0
         Action = Core.ASettings
       end
@@ -137 +137 @@
       object MenuItem3: TMenuItem
         Action = Core.AFileMerge
+      end
+      object MenuItem6: TMenuItem
+        Action = Core.AFileSplit
       end
       object MenuItem2: TMenuItem

trunk/Forms/UFormMain.pas

@@ -20 +20 @@
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItemView: TMenuItem;

trunk/Forms/UFormProperties.lfm

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

trunk/Languages/vCardStudio.cs.po

@@ -49 +49 @@
 msgstr "Uložit jako..."
 
+#: tcore.afilesplit.caption
+msgid "Split..."
+msgstr "Rozdělit..."
+
 #: tcore.afindduplicate.caption
 msgctxt "tcore.afindduplicate.caption"
@@ -1065 +1069 @@
 msgstr "Soubor '%s' nenalezen."
 
+#: ucore.sfilesplit
+msgid "Contacts split"
+msgstr "Rozdělení kontaktů"
+
+#: ucore.sfilesplitfinishedopendirectory
+msgid "Total %d contact files saved. Do you want to open the directory %s?"
+msgstr "Uloženo celkem %d souborů kontaktů. Chcete otevřít adresář %s?"
+
 #: ucore.sline
 msgid "Line %d: %s"

trunk/Languages/vCardStudio.po

@@ -39 +39 @@
 msgstr ""
 
+#: tcore.afilesplit.caption
+msgid "Split..."
+msgstr ""
+
 #: tcore.afindduplicate.caption
 msgctxt "tcore.afindduplicate.caption"
@@ -1053 +1057 @@
 msgstr ""
 
+#: ucore.sfilesplit
+msgid "Contacts split"
+msgstr ""
+
+#: ucore.sfilesplitfinishedopendirectory
+msgid "Total %d contact files saved. Do you want to open the directory %s?"
+msgstr ""
+
 #: ucore.sline
 msgid "Line %d: %s"

trunk/UCore.lfm

@@ -475 +475 @@
       OnExecute = AGenerateExecute
     end
+    object AFileSplit: TAction
+      Category = 'File'
+      Caption = 'Split...'
+      OnExecute = AFileSplitExecute
+    end
   end
   object LastOpenedList1: TLastOpenedList
@@ -501 +506 @@
     AppName = 'vCard Studio'
     Description = 'vCard files management tool'
-    ReleaseDate = 44539
+    ReleaseDate = 44524
     RegistryKey = '\Software\Chronosoft\vCard Studio'
     RegistryRoot = rrKeyCurrentUser
@@ -8731 +8736 @@
     Top = 48
   end
+  object SelectDirectoryDialog1: TSelectDirectoryDialog
+    Left = 578
+    Top = 376
+  end
 end

trunk/UCore.pas

@@ -27 +27 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    AFileSplit: TAction;
     AGenerate: TAction;
     AFindDuplicate: TAction;
@@ -41 +42 @@
     ActionList1: TActionList;
     ApplicationInfo1: TApplicationInfo;
+    SelectDirectoryDialog1: TSelectDirectoryDialog;
     Translator: TTranslator;
     ImageList1: TImageList;
@@ -58 +60 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileCloseExecute(Sender: TObject);
+    procedure AFileSplitExecute(Sender: TObject);
     procedure AFindDuplicateExecute(Sender: TObject);
     procedure AGenerateExecute(Sender: TObject);
@@ -70 +73 @@
     LoadErrors: string;
     ProfileImage: TImage;
+    LastSplitDir: string;
     procedure FileModified(Sender: TObject);
     function FindFirstNonOption: string;
@@ -108 +112 @@
   SAppExit = 'Application exit';
   SAppExitQuery = 'File was modified. Do you want to save it before exit?';
+  SFileSplit = 'Contacts split';
+  SFileSplitFinishedOpenDirectory = 'Total %d contact files saved. Do you want to open the directory %s?';
   SFileNotFound = 'File ''%s'' not found.';
   SMergedContacts = 'Contacts merged. Loaded: %d, New: %d, Updated: %d';
@@ -175 +181 @@
   FileClose;
   UpdateFile;
+end;
+
+procedure TCore.AFileSplitExecute(Sender: TObject);
+var
+  I: Integer;
+  C: Integer;
+  FileName: string;
+  ModalResult: TModalResult;
+begin
+  C := 0;
+  SelectDirectoryDialog1.FileName := LastSplitDir;
+  if SelectDirectoryDialog1.Execute then begin
+    LastSplitDir := SelectDirectoryDialog1.FileName;
+    with TContactsFile(DataFile).Contacts do
+    for I := 0 to Count - 1 do begin
+      if Items[I].Fields[cfFullName] <> '' then begin
+        FileName := SelectDirectoryDialog1.FileName + DirectorySeparator +
+          Items[I].Fields[cfFullName] + VCardFileExt;
+        Items[I].SaveToFile(FileName);
+        Inc(C);
+      end;
+    end;
+    ModalResult := MessageDlg(SFileSplit,
+     Format(SFileSplitFinishedOpenDirectory, [C,
+     SelectDirectoryDialog1.FileName]), mtConfirmation, [mbYes, mbNo], 0);
+    if ModalResult = mrYes then begin
+      {$IFDEF WINDOWS}
+      ExecuteProgram('explorer.exe', ['"' + SelectDirectoryDialog1.FileName + '"']);
+      {$ENDIF}
+    end;
+  end;
 end;
 
@@ -434 +471 @@
     LastContactTabIndex := ReadIntegerWithDefault('LastContactTabIndex', 0);
     LastContactFileName := ReadStringWithDefault('LastContactFileName', '');
+    LastSplitDir := ReadStringWithDefault('LastSplitDir', '');
   finally
     Free;
@@ -457 +495 @@
     WriteInteger('LastContactTabIndex', LastContactTabIndex);
     WriteString('LastContactFileName', LastContactFileName);
+    WriteString('LastSplitDir', LastSplitDir);
   finally
     Free;
@@ -484 +523 @@
   AFileSaveAs.Enabled := Assigned(DataFile);
   AFileClose.Enabled := Assigned(DataFile);
+  AFileSplit.Enabled := Assigned(DataFile);
+  AFileMerge.Enabled := Assigned(DataFile);
 end;