Changeset 69 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormGenerate.lfm (modified) (2 diffs)
• UFormGenerate.pas (modified) (2 diffs)

trunk/Forms/UFormGenerate.lfm

@@ -14 +14 @@
   object Label1: TLabel
     Left = 19
-    Height = 25
+    Height = 24
     Top = 19
-    Width = 52
+    Width = 55
     Caption = 'Count:'
     ParentColor = False
@@ -23 +23 @@
   object SpinEditCount: TSpinEdit
     Left = 155
-    Height = 33
+    Height = 42
     Top = 18
     Width = 152

trunk/Forms/UFormGenerate.pas

@@ -59 +59 @@
   );
 begin
+  Core.GenerateCount := SpinEditCount.Value;
   Core.PersistentForm1.Save(Self);
 end;
@@ -71 +72 @@
 begin
   Core.PersistentForm1.Load(Self);
+  SpinEditCount.Value := Core.GenerateCount;
   UpdateInterface;
 end;