Changeset 95 for trunk/Forms/UFormContacts.lfm
- Timestamp:
- Feb 3, 2022, 11:39:12 PM (2 years ago)
- File:
-
- 1 edited
-
trunk/Forms/UFormContacts.lfm (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContacts.lfm
r82 r95 1 1 object FormContacts: TFormContacts 2 2 Left = 400 3 Height = 9 083 Height = 946 4 4 Top = 212 5 Width = 12 105 Width = 1260 6 6 Caption = 'Contacts' 7 ClientHeight = 9 088 ClientWidth = 12 109 DesignTimePPI = 1 447 ClientHeight = 946 8 ClientWidth = 1260 9 DesignTimePPI = 150 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 13 13 OnResize = FormResize 14 14 OnShow = FormShow 15 LCLVersion = '2. 0.12.0'15 LCLVersion = '2.2.0.4' 16 16 object ListView1: TListView 17 17 Left = 0 18 Height = 8 1018 Height = 844 19 19 Top = 0 20 Width = 12 1020 Width = 1260 21 21 Align = alClient 22 22 Columns = < 23 23 item 24 24 Caption = 'Full Name' 25 Width = 3 0025 Width = 312 26 26 end 27 27 item 28 28 Caption = 'First name' 29 Width = 15 029 Width = 156 30 30 end 31 31 item 32 32 Caption = 'Middle name' 33 Width = 15 033 Width = 156 34 34 end 35 35 item 36 36 Caption = 'Last Name' 37 Width = 15 037 Width = 156 38 38 end 39 39 item 40 40 Caption = 'Phone' 41 Width = 15 041 Width = 156 42 42 end 43 43 item 44 44 Caption = 'Mobile' 45 Width = 15 045 Width = 156 46 46 end 47 47 item 48 48 Caption = 'Home phone' 49 Width = 15 049 Width = 156 50 50 end 51 51 item 52 52 Caption = 'Work phone' 53 Width = 15 053 Width = 156 54 54 end> 55 55 MultiSelect = True … … 67 67 object ToolBar1: TToolBar 68 68 Left = 0 69 Height = 3970 Top = 8 4271 Width = 12 1069 Height = 41 70 Top = 877 71 Width = 1260 72 72 Align = alBottom 73 73 Images = Core.ImageList1 … … 82 82 end 83 83 object ToolButton2: TToolButton 84 Left = 3 684 Left = 37 85 85 Top = 2 86 86 Action = AModify 87 87 end 88 88 object ToolButton3: TToolButton 89 Left = 10 689 Left = 109 90 90 Top = 2 91 91 Action = ARemove 92 92 end 93 93 object ToolButton4: TToolButton 94 Left = 7 194 Left = 73 95 95 Top = 2 96 96 Action = AClone 97 97 end 98 98 object ToolButton5: TToolButton 99 Left = 14 1100 Height = 3 399 Left = 145 100 Height = 34 101 101 Top = 2 102 102 Style = tbsSeparator 103 103 end 104 104 object ToolButton6: TToolButton 105 Left = 1 49105 Left = 153 106 106 Top = 2 107 107 Action = ALoadFromFile 108 108 end 109 109 object ToolButton7: TToolButton 110 Left = 18 4110 Left = 189 111 111 Top = 2 112 112 Action = ASaveToFile … … 115 115 object ListViewFilter1: TListViewFilter 116 116 Left = 0 117 Height = 3 2118 Top = 8 10119 Width = 12 10117 Height = 33 118 Top = 844 119 Width = 1260 120 120 OnChange = ListViewFilter1Change 121 121 Align = alBottom … … 123 123 object StatusBar1: TStatusBar 124 124 Left = 0 125 Height = 2 7126 Top = 881127 Width = 12 10125 Height = 28 126 Top = 918 127 Width = 1260 128 128 Panels = < 129 129 item 130 Width = 5 0130 Width = 52 131 131 end> 132 132 SimplePanel = False … … 134 134 object PopupMenuContact: TPopupMenu 135 135 Images = Core.ImageList1 136 Left = 4 35137 Top = 2 63136 Left = 453 137 Top = 274 138 138 object MenuItem1: TMenuItem 139 139 Action = AAdd … … 175 175 object ActionList1: TActionList 176 176 Images = Core.ImageList1 177 Left = 7 32178 Top = 2 57177 Left = 763 178 Top = 268 179 179 object AAdd: TAction 180 180 Caption = 'Add' … … 241 241 Column = 0 242 242 Order = soNone 243 Left = 5 28244 Top = 4 28243 Left = 550 244 Top = 446 245 245 end 246 246 object SaveDialog1: TSaveDialog 247 Left = 7 20248 Top = 4 08247 Left = 750 248 Top = 425 249 249 end 250 250 object OpenDialog1: TOpenDialog 251 Left = 7 20252 Top = 480251 Left = 750 252 Top = 500 253 253 end 254 254 end
Note:
See TracChangeset
for help on using the changeset viewer.
