Changeset 21 for trunk/Forms/UFormContacts.lfm
- Timestamp:
- May 8, 2019, 12:11:40 PM (6 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms
- Property svn:ignore
-
old new 1 *.lrj 1
-
- Property svn:ignore
-
trunk/Forms/UFormContacts.lfm
r19 r21 1 1 object FormContacts: TFormContacts 2 2 Left = 400 3 Height = 6053 Height = 908 4 4 Top = 212 5 Width = 8075 Width = 1210 6 6 Caption = 'Contacts' 7 ClientHeight = 605 8 ClientWidth = 807 7 ClientHeight = 908 8 ClientWidth = 1210 9 DesignTimePPI = 144 9 10 OnClose = FormClose 10 11 OnCreate = FormCreate 11 12 OnShow = FormShow 12 LCLVersion = ' 1.8.0.4'13 LCLVersion = '2.0.0.4' 13 14 object ListView1: TListView 14 15 Left = 0 15 Height = 57916 Height = 869 16 17 Top = 0 17 Width = 80718 Width = 1210 18 19 Align = alClient 19 20 Columns = < 20 21 item 21 22 Caption = 'Full Name' 22 Width = 20023 Width = 300 23 24 end 24 25 item 25 26 Caption = 'First name' 26 Width = 1 0027 Width = 150 27 28 end 28 29 item 29 30 Caption = 'Middle name' 30 Width = 1 0031 Width = 150 31 32 end 32 33 item 33 34 Caption = 'Last Name' 34 Width = 1 0035 Width = 150 35 36 end 36 37 item 37 38 Caption = 'Cell phone' 38 Width = 1 0039 Width = 150 39 40 end 40 41 item 41 42 Caption = 'Home phone' 42 Width = 18743 Width = 295 43 44 end> 44 45 MultiSelect = True 45 46 OwnerData = True 47 ParentFont = False 46 48 PopupMenu = PopupMenuContact 47 49 ReadOnly = True … … 55 57 object ToolBar1: TToolBar 56 58 Left = 0 57 Height = 2658 Top = 57959 Width = 80759 Height = 39 60 Top = 869 61 Width = 1210 60 62 Align = alBottom 61 63 Images = Core.ImageList1 64 ParentFont = False 62 65 TabOrder = 1 63 66 object ToolButton1: TToolButton … … 67 70 end 68 71 object ToolButton2: TToolButton 69 Left = 3 072 Left = 36 70 73 Top = 2 71 74 Action = AModify 72 75 end 73 76 object ToolButton3: TToolButton 74 Left = 5977 Left = 71 75 78 Top = 2 76 79 Action = ARemove … … 79 82 object PopupMenuContact: TPopupMenu 80 83 Images = Core.ImageList1 81 left = 29082 top = 17584 left = 435 85 top = 263 83 86 object MenuItem1: TMenuItem 84 87 Action = AAdd … … 96 99 object ActionList1: TActionList 97 100 Images = Core.ImageList1 98 left = 48899 top = 171101 left = 732 102 top = 257 100 103 object AAdd: TAction 101 104 Caption = 'Add'
Note:
See TracChangeset
for help on using the changeset viewer.