Changeset 63 for trunk/UCore.pas

Timestamp:

Dec 9, 2021, 11:17:22 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Open directory with saved split contact files in default file manager under Linux.
• Fixed: Don't use forbidden characters in saved contact file name.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -198 +198 @@
       if Items[I].Fields[cfFullName] <> '' then begin
         FileName := SelectDirectoryDialog1.FileName + DirectorySeparator +
-          Items[I].Fields[cfFullName] + VCardFileExt;
+          Items[I].FullNameToFileName + VCardFileExt;
         Items[I].SaveToFile(FileName);
         Inc(C);
@@ -209 +209 @@
       {$IFDEF WINDOWS}
       ExecuteProgram('explorer.exe', ['"' + SelectDirectoryDialog1.FileName + '"']);
+      {$ENDIF}
+      {$IFDEF LINUX}
+      ExecuteProgram('/usr/bin/xdg-open', [SelectDirectoryDialog1.FileName]);
       {$ENDIF}
     end;
@@ -525 +528 @@
   AFileSplit.Enabled := Assigned(DataFile);
   AFileMerge.Enabled := Assigned(DataFile);
+  AFindDuplicate.Enabled := Assigned(DataFile);
+  AGenerate.Enabled := Assigned(DataFile);
 end;