Changeset 21 for trunk/Forms/UFormFindDuplicity.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/UFormFindDuplicity.lfm
r18 r21 1 1 object FormFindDuplicity: TFormFindDuplicity 2 2 Left = 455 3 Height = 4 013 Height = 481 4 4 Top = 397 5 Width = 5845 Width = 701 6 6 Caption = 'Find duplicities' 7 ClientHeight = 4 018 ClientWidth = 5849 DesignTimePPI = 1 207 ClientHeight = 481 8 ClientWidth = 701 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = ' 1.8.0.6'14 LCLVersion = '2.0.0.4' 15 15 object ListView1: TListView 16 Left = 417 Height = 34518 Top = 5219 Width = 57616 Left = 5 17 Height = 413 18 Top = 63 19 Width = 691 20 20 Align = alClient 21 BorderSpacing.Around = 421 BorderSpacing.Around = 5 22 22 Columns = < 23 23 item 24 24 Caption = 'Field' 25 Width = 1 5025 Width = 180 26 26 end 27 27 item 28 28 Caption = 'Contacts' 29 Width = 3 0029 Width = 360 30 30 end 31 31 item 32 32 Caption = 'Count' 33 Width = 7033 Width = 136 34 34 end> 35 35 OwnerData = True 36 ParentFont = False 36 37 PopupMenu = PopupMenu1 37 38 ReadOnly = True … … 44 45 object Panel1: TPanel 45 46 Left = 0 46 Height = 4847 Height = 58 47 48 Top = 0 48 Width = 58449 Width = 701 49 50 Align = alTop 50 51 BevelOuter = bvNone 51 ClientHeight = 48 52 ClientWidth = 584 52 ClientHeight = 58 53 ClientWidth = 701 54 ParentFont = False 53 55 TabOrder = 1 54 56 object ComboBoxField: TComboBox 55 Left = 1 4456 Height = 2857 Top = 1 258 Width = 27259 ItemHeight = 2057 Left = 173 58 Height = 42 59 Top = 14 60 Width = 326 61 ItemHeight = 0 60 62 OnChange = ComboBoxFieldChange 63 ParentFont = False 61 64 Style = csDropDownList 62 65 TabOrder = 0 63 66 end 64 67 object Label1: TLabel 65 Left = 1 166 Height = 2 067 Top = 1 668 Width = 8868 Left = 13 69 Height = 26 70 Top = 19 71 Width = 113 69 72 Caption = 'Contact field:' 70 73 ParentColor = False 74 ParentFont = False 71 75 end 72 76 end 73 77 object ActionList1: TActionList 74 left = 2 1875 top = 1 2878 left = 262 79 top = 154 76 80 object AShowContacts: TAction 77 81 Caption = 'Show contacts' … … 80 84 end 81 85 object PopupMenu1: TPopupMenu 82 left = 7583 top = 1 2486 left = 90 87 top = 149 84 88 object MenuItem1: TMenuItem 85 89 Action = AShowContacts
Note:
See TracChangeset
for help on using the changeset viewer.