Changeset 101 for trunk/Forms/UFormContact.lfm

Timestamp:

Feb 8, 2022, 6:07:35 PM (3 years ago)

Author:

chronos

Message:

• Added: Buttons to show contact home and work addresses on online map. Predefined map uses openstreetmap.org.

File:

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

trunk/Forms/UFormContact.lfm

@@ -1 +1 @@
 object FormContact: TFormContact
-  Left = 604
+  Left = 1121
   Height = 773
-  Top = 484
+  Top = 472
   Width = 1032
   Caption = 'Contact'
@@ -18 +18 @@
     Top = 8
     Width = 1009
-    ActivePage = TabSheetGeneral
+    ActivePage = TabSheetWork
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheetGeneral: TTabSheet
@@ -451 +451 @@
       object GroupBox1: TGroupBox
         Left = 10
-        Height = 252
+        Height = 287
         Top = 225
-        Width = 961
+        Width = 897
         Anchors = [akTop, akLeft, akRight]
         Caption = 'Address'
-        ClientHeight = 224
-        ClientWidth = 959
+        ClientHeight = 259
+        ClientWidth = 895
         TabOrder = 6
         object Label36: TLabel
@@ -570 +570 @@
           ParentFont = False
           TabOrder = 1
+        end
+        object ButtonHomeAddressShow: TButton
+          Left = 10
+          Height = 39
+          Top = 208
+          Width = 182
+          Caption = 'Show on map'
+          OnClick = ButtonHomeAddressShowClick
+          TabOrder = 7
         end
       end
@@ -685 +694 @@
       object GroupBox2: TGroupBox
         Left = 8
-        Height = 257
+        Height = 283
         Top = 325
-        Width = 949
+        Width = 920
         Caption = 'Address'
-        ClientHeight = 229
-        ClientWidth = 947
+        ClientHeight = 255
+        ClientWidth = 918
         TabOrder = 9
         object Label31: TLabel
@@ -700 +709 @@
           ParentFont = False
         end
-        object EditAddressWorkCountry: TEdit
+        object EditWorkAddressCountry: TEdit
           Left = 180
           Height = 43
@@ -708 +717 @@
           TabOrder = 5
         end
-        object EditAddressWorkRegion: TEdit
+        object EditWorkAddressRegion: TEdit
           Left = 180
           Height = 43
@@ -732 +741 @@
           ParentFont = False
         end
-        object EditAddressWorkStreetExtended: TEdit
+        object EditWorkAddressStreetExtended: TEdit
           Left = 180
           Height = 43
@@ -748 +757 @@
           ParentFont = False
         end
-        object EditAddressWorkStreet: TEdit
+        object EditWorkAddressStreet: TEdit
           Left = 180
           Height = 43
@@ -764 +773 @@
           ParentFont = False
         end
-        object EditAddressWorkPostOfficeBox: TEdit
+        object EditWorkAddressPostOfficeBox: TEdit
           Left = 633
           Height = 43
@@ -772 +781 @@
           TabOrder = 1
         end
-        object EditAddressWorkCity: TEdit
+        object EditWorkAddressCity: TEdit
           Left = 633
           Height = 43
@@ -788 +797 @@
           ParentFont = False
         end
-        object EditAddressWorkPostalCode: TEdit
+        object EditWorkAddressPostalCode: TEdit
           Left = 633
           Height = 43
@@ -803 +812 @@
           Caption = 'Postal code:'
           ParentFont = False
+        end
+        object ButtonWorkAddressShow: TButton
+          Left = 10
+          Height = 39
+          Top = 208
+          Width = 182
+          Caption = 'Show on map'
+          OnClick = ButtonWorkAddressShowClick
+          TabOrder = 7
         end
       end