Changeset 82 for trunk/UCore.pas

Timestamp:

Dec 21, 2021, 5:16:41 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Settings option to load previously opened file wasn't working for disabled state.
• Fixed: Disable Find action if no file is opened.
• Modified: Move fields initialization method to TContact class and made it static so it is initialized only once.
• Added: Allow to set default vCard version in settings dialog.
• Modified: Add GTK2 theming support to snap package.

File:

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

trunk/UCore.pas

@@ -83 +83 @@
     GenerateCount: Integer;
     ToolbarVisible: Boolean;
+    DefaultVcardVersion: string;
     function GetProfileImage: TImage;
     procedure FileNew;
@@ -453 +454 @@
     LastPropertyValueFileName := ReadStringWithDefault('LastPropertyValueFileName', '');
     GenerateCount := ReadIntegerWithDefault('GenerateCount', 1);
+    DefaultVcardVersion := ReadStringWithDefault('DefaultVcardVersion', '2.1');
   finally
     Free;
@@ -479 +481 @@
     WriteString('LastPropertyValueFileName', LastPropertyValueFileName);
     WriteInteger('GenerateCount', GenerateCount);
+    WriteString('DefaultVcardVersion', DefaultVcardVersion);
   finally
     Free;
@@ -506 +509 @@
   AFileSplit.Enabled := Assigned(DataFile);
   AFileCombine.Enabled := Assigned(DataFile);
+  AFind.Enabled := Assigned(DataFile);
   AFindDuplicate.Enabled := Assigned(DataFile);
   AGenerate.Enabled := Assigned(DataFile);
@@ -525 +529 @@
       LastOpenedList1.AddItem(FileNameOption);
     end else
-    if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then begin
+    if ReopenLastFileOnStart and (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then begin
       // Open last opened file
       AFileNew.Execute;