Changeset 100 for trunk/Forms/UFormContact.lfm

Timestamp:

Feb 8, 2022, 5:13:22 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Added workaround for missing GTK2 first mouse click event in contact window.
• Added: Button for changing contact birth day and anniversary.
• Fixed: Use english texts in file and directory dialogs.

File:

• trunk/Forms/UFormContact.lfm (modified) (8 diffs)

trunk/Forms/UFormContact.lfm

@@ -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
@@ -114 +114 @@
         Height = 43
         Top = 442
-        Width = 265
+        Width = 216
         ParentFont = False
         TabOrder = 14
@@ -229 +229 @@
         Height = 43
         Top = 442
-        Width = 265
+        Width = 217
         ParentFont = False
         TabOrder = 15
@@ -334 +334 @@
         ImageIndex = 16
         OnClick = SpeedButtonEmailClick
+        ShowHint = True
+        ParentShowHint = False
+      end
+      object SpeedButtonBirthDay: TSpeedButton
+        Left = 372
+        Height = 43
+        Hint = 'Select date'
+        Top = 442
+        Width = 43
+        Images = Core.ImageList1
+        ImageIndex = 17
+        OnClick = SpeedButtonBirthDayClick
+        ShowHint = True
+        ParentShowHint = False
+      end
+      object SpeedButtonAniversary: TSpeedButton
+        Left = 821
+        Height = 43
+        Hint = 'Select date'
+        Top = 442
+        Width = 43
+        Images = Core.ImageList1
+        ImageIndex = 17
+        OnClick = SpeedButtonAniversaryClick
         ShowHint = True
         ParentShowHint = False
@@ -436 +460 @@
         TabOrder = 6
         object Label36: TLabel
-          Left = 8
+          Left = 10
           Height = 27
           Top = 19
@@ -572 +596 @@
         Images = Core.ImageList1
         ImageIndex = 15
-        OnClick = peedButtonHomeWebClick
+        OnClick = SpeedButtonHomeWebClick
         ShowHint = True
         ParentShowHint = False
@@ -1365 +1389 @@
   object PopupMenuPhoto: TPopupMenu
     Images = Core.ImageList1
-    Left = 483
-    Top = 508
+    Left = 872
+    Top = 592
     object MenuItem1: TMenuItem
       Action = APhotoLoad
@@ -1378 +1402 @@
   end
   object OpenPictureDialog1: TOpenPictureDialog
+    Title = 'Open existing file'
     Left = 175
     Top = 575
   end
   object SavePictureDialog1: TSavePictureDialog
+    Title = 'Save file as'
     Left = 176
     Top = 488
   end
+  object CalendarDialog1: TCalendarDialog
+    Title = 'Select date'
+    Date = 44600
+    OKCaption = '&OK'
+    CancelCaption = 'Cancel'
+    Left = 448
+    Top = 608
+  end
 end