|
Last change
on this file was 73, checked in by chronos, 3 years ago |
- Added: Copy, cut and paste context menu action in contacts list.
- Modified: Merge multiple files action replaced by Combine action. During Combine action files are simply added into final contacts list even with duplicate contacts.
- Modified: Added Merge button into Find duplicate window to merge contacts by selected contact field.
- Modified: Show only used contact fields in Find duplicates window.
- Fixed: Wrong items were removed if contacts and properties lists were in filtered state.
|
|
File size:
2.1 KB
|
| Line | |
|---|
| 1 | object FormFindDuplicity: TFormFindDuplicity
|
|---|
| 2 | Left = 455
|
|---|
| 3 | Height = 523
|
|---|
| 4 | Top = 355
|
|---|
| 5 | Width = 807
|
|---|
| 6 | Caption = 'Find duplicities'
|
|---|
| 7 | ClientHeight = 523
|
|---|
| 8 | ClientWidth = 807
|
|---|
| 9 | DesignTimePPI = 144
|
|---|
| 10 | OnClose = FormClose
|
|---|
| 11 | OnCreate = FormCreate
|
|---|
| 12 | OnDestroy = FormDestroy
|
|---|
| 13 | OnShow = FormShow
|
|---|
| 14 | LCLVersion = '2.0.12.0'
|
|---|
| 15 | object ListView1: TListView
|
|---|
| 16 | Left = 5
|
|---|
| 17 | Height = 455
|
|---|
| 18 | Top = 63
|
|---|
| 19 | Width = 797
|
|---|
| 20 | Align = alClient
|
|---|
| 21 | BorderSpacing.Around = 5
|
|---|
| 22 | Columns = <
|
|---|
| 23 | item
|
|---|
| 24 | Caption = 'Field'
|
|---|
| 25 | Width = 180
|
|---|
| 26 | end
|
|---|
| 27 | item
|
|---|
| 28 | Caption = 'Contacts'
|
|---|
| 29 | Width = 360
|
|---|
| 30 | end
|
|---|
| 31 | item
|
|---|
| 32 | Caption = 'Count'
|
|---|
| 33 | Width = 136
|
|---|
| 34 | end>
|
|---|
| 35 | OwnerData = True
|
|---|
| 36 | ParentFont = False
|
|---|
| 37 | PopupMenu = PopupMenu1
|
|---|
| 38 | ReadOnly = True
|
|---|
| 39 | RowSelect = True
|
|---|
| 40 | TabOrder = 0
|
|---|
| 41 | ViewStyle = vsReport
|
|---|
| 42 | OnData = ListView1Data
|
|---|
| 43 | OnDblClick = AShowContactsExecute
|
|---|
| 44 | end
|
|---|
| 45 | object Panel1: TPanel
|
|---|
| 46 | Left = 0
|
|---|
| 47 | Height = 58
|
|---|
| 48 | Top = 0
|
|---|
| 49 | Width = 807
|
|---|
| 50 | Align = alTop
|
|---|
| 51 | BevelOuter = bvNone
|
|---|
| 52 | ClientHeight = 58
|
|---|
| 53 | ClientWidth = 807
|
|---|
| 54 | ParentFont = False
|
|---|
| 55 | TabOrder = 1
|
|---|
| 56 | object ComboBoxField: TComboBox
|
|---|
| 57 | Left = 160
|
|---|
| 58 | Height = 33
|
|---|
| 59 | Top = 16
|
|---|
| 60 | Width = 326
|
|---|
| 61 | ItemHeight = 25
|
|---|
| 62 | OnChange = ComboBoxFieldChange
|
|---|
| 63 | ParentFont = False
|
|---|
| 64 | Style = csDropDownList
|
|---|
| 65 | TabOrder = 0
|
|---|
| 66 | end
|
|---|
| 67 | object Label1: TLabel
|
|---|
| 68 | Left = 13
|
|---|
| 69 | Height = 25
|
|---|
| 70 | Top = 19
|
|---|
| 71 | Width = 125
|
|---|
| 72 | Caption = 'By contact field:'
|
|---|
| 73 | ParentColor = False
|
|---|
| 74 | ParentFont = False
|
|---|
| 75 | end
|
|---|
| 76 | object ButtonMerge: TButton
|
|---|
| 77 | Left = 496
|
|---|
| 78 | Height = 38
|
|---|
| 79 | Top = 14
|
|---|
| 80 | Width = 113
|
|---|
| 81 | Caption = 'Merge'
|
|---|
| 82 | OnClick = ButtonMergeClick
|
|---|
| 83 | TabOrder = 1
|
|---|
| 84 | end
|
|---|
| 85 | end
|
|---|
| 86 | object ActionList1: TActionList
|
|---|
| 87 | Left = 262
|
|---|
| 88 | Top = 154
|
|---|
| 89 | object AShowContacts: TAction
|
|---|
| 90 | Caption = 'Show contacts'
|
|---|
| 91 | OnExecute = AShowContactsExecute
|
|---|
| 92 | end
|
|---|
| 93 | end
|
|---|
| 94 | object PopupMenu1: TPopupMenu
|
|---|
| 95 | Left = 90
|
|---|
| 96 | Top = 149
|
|---|
| 97 | object MenuItem1: TMenuItem
|
|---|
| 98 | Action = AShowContacts
|
|---|
| 99 | end
|
|---|
| 100 | end
|
|---|
| 101 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
