Changeset 157 for trunk/Forms

Timestamp:

Jun 7, 2023, 12:17:48 AM (19 months ago)

Author:

chronos

Message:

• Modified: Improved new contact neme generation.
• Fixed: Width of not all contacts columns was remembered.

Location:

trunk/Forms

Files:

• FormContacts.pas (modified) (1 diff)
• FormGenerate.lfm (modified) (2 diffs)
• FormGenerate.pas (modified) (2 diffs)

trunk/Forms/FormContacts.pas

@@ -383 +383 @@
 procedure TFormContacts.FormShow(Sender: TObject);
 begin
+  LoadFromRegistry(Context);
+  UpdateColumns;
   Core.Core.Translator.TranslateComponentRecursive(Self);
   Core.Core.ThemeManager1.UseTheme(Self);
   Core.Core.PersistentForm1.Load(Self);
-  LoadFromRegistry(Context);
   ReloadList;
   UpdateInterface;

trunk/Forms/FormGenerate.lfm

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

trunk/Forms/FormGenerate.pas

@@ -32 +32 @@
   Core;
 
+const
+  Names: array[0..100] of string = ('Peter', 'Susan', 'Luis', 'Jane', 'Bill', 'Jeniffer',
+    'Leo', 'Veronica', 'Stephan', 'Adele', 'Elvis', 'Caroline', 'John', 'Elisabeth',
+    'Joseph', 'Michaele', 'Bruce', 'Eva', 'Samuel', 'Olivie', 'Fred', 'Maria',
+    'Jose', 'David', 'Michael', 'Anna', 'Mary', 'Juan', 'Robert', 'Daniel', 'James',
+    'Richard', 'Paul', 'Olga', 'William', 'Sergey', 'Anita', 'Victor', 'Sarah',
+    'Mark', 'Rita', 'Martin', 'Patrick', 'Andrea', 'Vladimir', 'Barbara', 'Angela',
+    'Ivan', 'Jesus', 'Marian', 'Eric', 'Diana', 'Claudia', 'Gloria', 'Teresa',
+    'Francis', 'Andrew', 'Eduardo', 'Steven', 'Karen', 'Brian', 'Monica', 'Sonia',
+    'Alberto', 'Alex', 'Julio', 'Juana', 'Adam', 'Kevin', 'Edward', 'Roland',
+    'Cheng', 'Roman', 'Silvia', 'Marta', 'Lisa', 'Alice', 'Felix', 'Jan', 'Lucia',
+    'Janet', 'Sharon', 'Paula', 'Helen', 'Anton', 'Henry', 'Antonia', 'Adriana',
+    'Brenda', 'Nicole', 'Tatina', 'Gary', 'Dennis', 'Isaac', 'Luiz', 'Erika',
+    'Amanda', 'Donald', 'Edgar', 'Ruben', 'Jason');
+
+  LastNames: array[0..80] of string = ('Gates', 'Simmons', 'Eliott', 'Onion',
+    'Presleys', 'Clinton', 'Dell', 'Ford', 'Miles', 'Young', 'Newton', 'Smith',
+    'Williams', 'Johnson', 'Brown', 'Jones', 'Garcia', 'Miller', 'Davis',
+    'Lopez', 'Wilson', 'Taylor', 'Moore', 'Jackson', 'Lee', 'White', 'Lewis',
+    'Robinson', 'Walker', 'King', 'Wright', 'Scott', 'Torres', 'Green',
+    'Adams', 'Nelson', 'Baker', 'Hall', 'Rivera', 'Carter', 'Evans', 'Diaz',
+    'Collins', 'Edwards', 'Stewart', 'Murphy', 'Cook', 'Ortiz', 'Morgan', 'Cooper',
+    'Peterson', 'Reed', 'Kim', 'Watson', 'Brooks', 'Wood', 'James', 'Gray',
+    'Hughes', 'Long', 'Powell', 'Jenkins', 'Perry', 'Bell', 'Butler', 'Romero',
+    'Jordan', 'Hamilton', 'Moreno', 'West', 'Cole', 'Hayes', 'Gibson', 'Medina',
+    'Owens', 'Harrison', 'Woods', 'Wells', 'Chen', 'Webb', 'Tucker');
+
 { TFormGenerate }
 
@@ -43 +70 @@
     with Contact do begin
       Fields[cfVersion] := Core.Core.DefaultVcardVersion;
-      Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
-      Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));
-      Fields[cfFullName] := 'FullName ' + IntToStr(Random(100));
+      Fields[cfFirstName] := Names[Random(Length(Names))];
+      Fields[cfLastName] := LastNames[Random(Length(LastNames))];
+      Fields[cfFullName] := Fields[cfFirstName] + ' ' +Fields[cfLastName];
       Fields[cfTelCell] := IntToStr(Random(1000000000));
       Fields[cfTelHome] := IntToStr(Random(1000000000));
       Fields[cfTelWork] := IntToStr(Random(1000000000));
       Fields[cfNote] := 'Some contact notes';
-      Fields[cfEmail] := 'user@email.com';
-      Fields[cfEmailHome] := 'home@email.com';
-      Fields[cfEmailWork] := 'home@email.com';
+      Fields[cfEmail] := LowerCase(Fields[cfFirstName] + '.' + Fields[cfLastName]) + '@email.com';
+      Fields[cfEmailHome] := Fields[cfEmail];
+      Fields[cfEmailWork] := Fields[cfEmail];
       Fields[cfUrl] := 'https://url.com';
       Fields[cfUrlWork] := 'https://work.com';