Changeset 106 for trunk/Forms

Timestamp:

Feb 10, 2022, 11:53:26 AM (3 years ago)

Author:

chronos

Message:

• Modified: Generate more contacts properties.

Location:

trunk/Forms

Files:

• UFormGenerate.lfm (modified) (1 diff)
• UFormGenerate.pas (modified) (1 diff)

trunk/Forms/UFormGenerate.lfm

@@ -32 +32 @@
   end
   object ButtonGenerate: TButton
-    Left = 20
+    Left = 704
     Height = 39
-    Top = 180
+    Top = 528
     Width = 118
+    Anchors = [akRight, akBottom]
     Caption = 'Generate'
     OnClick = ButtonGenerateClick

trunk/Forms/UFormGenerate.pas

@@ -46 +46 @@
   for I := 1 to SpinEditCount.Value do begin
     Contact := Contacts.AddNew;
-    Contact.Fields[cfVersion] := Core.DefaultVcardVersion;
-    Contact.Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
-    Contact.Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));
-    Contact.Fields[cfFullName] := 'FullName ' + IntToStr(Random(100));
-    Contact.Fields[cfTelCell] := IntToStr(Random(1000000000));
-    Contact.Fields[cfTelHome] := IntToStr(Random(1000000000));
+    with Contact do begin
+      Fields[cfVersion] := Core.DefaultVcardVersion;
+      Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
+      Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));
+      Fields[cfFullName] := 'FullName ' + IntToStr(Random(100));
+      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[cfUrl] := 'https://url.com';
+      Fields[cfUrlWork] := 'https://work.com';
+      Fields[cfUrlHome] := 'https://home.com';
+    end;
   end;
   Close;