Changeset 103 for trunk/UCore.pas

Timestamp:

Feb 9, 2022, 3:51:26 PM (2 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/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -82 +82 @@
     LastContactTabIndex: Integer;
     LastContactFileName: string;
+    LastPhotoFileName: string;
     LastPropertyValueFileName: string;
     MapUrl: string;
@@ -237 +238 @@
   try
     Contacts := TContactsFile(DataFile).Contacts;
-    ShowModal;
-    FormContacts.ReloadList;
-    FormContacts.UpdateInterface;
-    DataFile.Modified := True;
-    FormMain.UpdateInterface;
+    if ShowModal = mrOk then begin
+      FormContacts.ReloadList;
+      FormContacts.UpdateInterface;
+      DataFile.Modified := True;
+      FormMain.UpdateInterface;
+    end;
   finally
     Free;
@@ -469 +471 @@
     DefaultVcardVersion := ReadStringWithDefault('DefaultVcardVersion', '2.1');
     MapUrl := ReadStringWithDefault('MapUrl', 'https://www.openstreetmap.org/search?query=');
+    LastPhotoFileName := ReadStringWithDefault('LastPhotoFileName', '');
   finally
     Free;
@@ -497 +500 @@
     WriteString('DefaultVcardVersion', DefaultVcardVersion);
     WriteString('MapUrl', MapUrl);
+    WriteString('LastPhotoFileName', LastPhotoFileName);
   finally
     Free;