Changeset 61 for trunk/Forms/UFormContacts.lfm

Timestamp:

Dec 9, 2021, 12:31:17 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Build with older FPC version.
• Added: Show also normal phone and work phone in the contact list.

File:

• trunk/Forms/UFormContacts.lfm (modified) (5 diffs)

trunk/Forms/UFormContacts.lfm

@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 801
+    Height = 810
     Top = 0
     Width = 1210
@@ -36 +36 @@
       end    
       item
-        Caption = 'Cell phone'
+        Caption = 'Phone'
+        Width = 150
+      end    
+      item
+        Caption = 'Mobile'
         Width = 150
       end    
       item
         Caption = 'Home phone'
-        Width = 295
+        Width = 150
+      end    
+      item
+        Caption = 'Work phone'
+        Width = 150
       end>
     MultiSelect = True
@@ -58 +66 @@
     Left = 0
     Height = 39
-    Top = 833
+    Top = 842
     Width = 1210
     Align = alBottom
@@ -106 +114 @@
     Left = 0
     Height = 32
-    Top = 801
+    Top = 810
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -113 +121 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 36
-    Top = 872
+    Height = 27
+    Top = 881
     Width = 1210
     Panels = <