Changeset 31 for trunk/Forms/UFormGenerate.pas

Timestamp:

Nov 25, 2021, 1:18:44 AM (3 years ago)

Author:

chronos

Message:

• Modified: Store contact properties in general way to support also user defined properties and unknown attributes.
• Added: Show contact image in contact edit window.

File:

• trunk/Forms/UFormGenerate.pas (modified) (1 diff)

trunk/Forms/UFormGenerate.pas

@@ -46 +46 @@
   for I := 1 to SpinEditCount.Value do begin
     Contact := Contacts.AddNew;
-    Contact.FirstName := 'First ' + IntToStr(Random(10000));
-    Contact.LastName := 'Last ' + IntToStr(Random(10000));
-    Contact.FullName := 'FullName ' + IntToStr(Random(100));
-    Contact.TelCell := IntToStr(Random(1000000000));
-    Contact.TelHome := IntToStr(Random(1000000000));
+    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));
   end;
   Close;