Changeset 103 for trunk/Forms/UFormGenerate.pas

Timestamp:

Feb 9, 2022, 3:51:26 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for profile photo as URL.
• Added: New UContactImage form to show profile photo in bigger size and with URL.
• Modified: Profile photo image load/save handling moved to separate unit UContactImage.
• Fixed: Some dynamically created forms were not translated.
• Added: Remember last used file name for image open/save dialog.

File:

• trunk/Forms/UFormGenerate.pas (modified) (2 diffs)

trunk/Forms/UFormGenerate.pas

@@ -46 +46 @@
   for I := 1 to SpinEditCount.Value do begin
     Contact := Contacts.AddNew;
-    Contact.Fields[cfVersion] := '2.1';
+    Contact.Fields[cfVersion] := Core.DefaultVcardVersion;
     Contact.Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
     Contact.Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));
@@ -54 +54 @@
   end;
   Close;
+  ModalResult := mrOk;
 end;