← Back to branch summary

~chronoscz/vcard-studio/trunk

« back to all changes in this revision

Viewing changes to Forms/UFormFindDuplicity.lfm

  • Committer: chronos
  • Date: 2019-05-08 10:11:40 UTC
  • Revision ID: svn-v4:b2f690cb-8b89-471c-b043-dbd4632e1e77:trunk:21
* Fixed: Build under Lazarus 2.0.
* Modified: Used .lrj files instead of .lrt files.
* Removed: TemplateGenerics package.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Forms/UFormFindDuplicity.lfm
1
1
object FormFindDuplicity: TFormFindDuplicity
2
2
  Left = 455
3
 
  Height = 401
 
3
  Height = 481
4
4
  Top = 397
5
 
  Width = 584
 
5
  Width = 701
6
6
  Caption = 'Find duplicities'
7
 
  ClientHeight = 401
8
 
  ClientWidth = 584
9
 
  DesignTimePPI = 120
 
7
  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 = 4
17
 
    Height = 345
18
 
    Top = 52
19
 
    Width = 576
 
16
    Left = 5
 
17
    Height = 413
 
18
    Top = 63
 
19
    Width = 691
20
20
    Align = alClient
21
 
    BorderSpacing.Around = 4
 
21
    BorderSpacing.Around = 5
22
22
    Columns = <    
23
23
      item
24
24
        Caption = 'Field'
25
 
        Width = 150
 
25
        Width = 180
26
26
      end    
27
27
      item
28
28
        Caption = 'Contacts'
29
 
        Width = 300
 
29
        Width = 360
30
30
      end    
31
31
      item
32
32
        Caption = 'Count'
33
 
        Width = 70
 
33
        Width = 136
34
34
      end>
35
35
    OwnerData = True
 
36
    ParentFont = False
36
37
    PopupMenu = PopupMenu1
37
38
    ReadOnly = True
38
39
    RowSelect = True
43
44
  end
44
45
  object Panel1: TPanel
45
46
    Left = 0
46
 
    Height = 48
 
47
    Height = 58
47
48
    Top = 0
48
 
    Width = 584
 
49
    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 = 144
56
 
      Height = 28
57
 
      Top = 12
58
 
      Width = 272
59
 
      ItemHeight = 20
 
57
      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 = 11
66
 
      Height = 20
67
 
      Top = 16
68
 
      Width = 88
 
68
      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 = 218
75
 
    top = 128
 
78
    left = 262
 
79
    top = 154
76
80
    object AShowContacts: TAction
77
81
      Caption = 'Show contacts'
78
82
      OnExecute = AShowContactsExecute
79
83
    end
80
84
  end
81
85
  object PopupMenu1: TPopupMenu
82
 
    left = 75
83
 
    top = 124
 
86
    left = 90
 
87
    top = 149
84
88
    object MenuItem1: TMenuItem
85
89
      Action = AShowContacts
86
90
    end