Changeset 103 for trunk/Forms/UFormContact.lfm

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/UFormContact.lfm (modified) (7 diffs)

trunk/Forms/UFormContact.lfm

@@ -1 +1 @@
 object FormContact: TFormContact
-  Left = 1121
+  Left = 1063
   Height = 773
-  Top = 472
+  Top = 449
   Width = 1032
   Caption = 'Contact'
@@ -18 +18 @@
     Top = 8
     Width = 1009
-    ActivePage = TabSheetWork
+    ActivePage = TabSheetGeneral
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 2
+    TabIndex = 0
     TabOrder = 0
     object TabSheetGeneral: TTabSheet
@@ -132 +132 @@
         Width = 216
         Center = True
-        OnClick = APhotoLoadExecute
+        OnClick = ImagePhotoClick
         PopupMenu = PopupMenuPhoto
         Proportional = True
@@ -150 +150 @@
         Top = 25
         Width = 486
+        OnChange = EditFullNameChange
         ParentFont = False
         TabOrder = 0
@@ -1390 +1391 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    Left = 617
-    Top = 550
+    Left = 632
+    Top = 608
     object APhotoLoad: TAction
       Caption = 'Load from file'
@@ -1404 +1405 @@
       OnExecute = APhotoClearExecute
     end
+    object APhotoShow: TAction
+      Caption = 'Show'
+      OnExecute = APhotoShowExecute
+    end
+    object APhotoSetUrl: TAction
+      Caption = 'Set URL'
+      OnExecute = APhotoSetUrlExecute
+    end
   end
   object PopupMenuPhoto: TPopupMenu
     Images = Core.ImageList1
-    Left = 872
-    Top = 592
+    Left = 864
+    Top = 608
+    object MenuItem4: TMenuItem
+      Action = APhotoShow
+    end
     object MenuItem1: TMenuItem
       Action = APhotoLoad
@@ -1417 +1429 @@
     object MenuItem3: TMenuItem
       Action = APhotoClear
+    end
+    object MenuItem5: TMenuItem
+      Action = APhotoSetUrl
     end
   end