Changeset 69 for trunk/UCore.pas

Timestamp:

Dec 10, 2021, 11:40:17 AM (3 years ago)

Author:

chronos

Message:

• Added: Remember last count value used in Generate contact form.

File:

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

trunk/UCore.pas

@@ -88 +88 @@
     LastContactTabIndex: Integer;
     LastContactFileName: string;
+    GenerateCount: Integer;
     ToolbarVisible: Boolean;
     function GetProfileImage: TImage;
@@ -484 +485 @@
     LastContactFileName := ReadStringWithDefault('LastContactFileName', '');
     LastSplitDir := ReadStringWithDefault('LastSplitDir', '');
+    GenerateCount := ReadIntegerWithDefault('GenerateCount', 1);
   finally
     Free;
@@ -508 +510 @@
     WriteString('LastContactFileName', LastContactFileName);
     WriteString('LastSplitDir', LastSplitDir);
+    WriteInteger('GenerateCount', GenerateCount);
   finally
     Free;