Ignore:
Timestamp:
Apr 8, 2022, 9:43:55 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormFindDuplicity.lfm

    r103 r128  
    11object FormFindDuplicity: TFormFindDuplicity
    22  Left = 455
    3   Height = 545
     3  Height = 523
    44  Top = 355
    5   Width = 841
     5  Width = 807
    66  Caption = 'Find duplicities'
    7   ClientHeight = 545
    8   ClientWidth = 841
    9   DesignTimePPI = 150
     7  ClientHeight = 523
     8  ClientWidth = 807
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    … …  
    1515  object ListView1: TListView
    1616    Left = 5
    17     Height = 475
    18     Top = 65
    19     Width = 831
     17    Height = 455
     18    Top = 63
     19    Width = 797
    2020    Align = alClient
    2121    BorderSpacing.Around = 5
    … …  
    2323      item
    2424        Caption = 'Field'
    25         Width = 188
     25        Width = 180
    2626      end   
    2727      item
    2828        Caption = 'Contacts'
    29         Width = 375
     29        Width = 360
    3030      end   
    3131      item
    3232        Caption = 'Count'
    33         Width = 253
     33        Width = 243
    3434      end>
    3535    OwnerData = True
    … …  
    4545  object Panel1: TPanel
    4646    Left = 0
    47     Height = 60
     47    Height = 58
    4848    Top = 0
    49     Width = 841
     49    Width = 807
    5050    Align = alTop
    5151    BevelOuter = bvNone
    52     ClientHeight = 60
    53     ClientWidth = 841
     52    ClientHeight = 58
     53    ClientWidth = 807
    5454    ParentFont = False
    5555    TabOrder = 1
    5656    object ComboBoxField: TComboBox
    57       Left = 167
    58       Height = 42
    59       Top = 17
    60       Width = 340
     57      Left = 160
     58      Height = 41
     59      Top = 16
     60      Width = 326
    6161      ItemHeight = 0
    6262      OnChange = ComboBoxFieldChange
    … …  
    6666    end
    6767    object Label1: TLabel
    68       Left = 14
    69       Height = 27
    70       Top = 20
    71       Width = 142
     68      Left = 13
     69      Height = 26
     70      Top = 19
     71      Width = 135
    7272      Caption = 'By contact field:'
    7373      ParentFont = False
    7474    end
    7575    object ButtonMerge: TButton
    76       Left = 517
    77       Height = 40
    78       Top = 15
    79       Width = 118
     76      Left = 496
     77      Height = 38
     78      Top = 14
     79      Width = 113
    8080      Caption = 'Merge'
    8181      OnClick = ButtonMergeClick
    … …  
    8484  end
    8585  object ActionList1: TActionList
    86     Left = 273
    87     Top = 160
     86    Left = 262
     87    Top = 154
    8888    object AShowContacts: TAction
    8989      Caption = 'Show contacts'
    … …  
    9292  end
    9393  object PopupMenu1: TPopupMenu
    94     Left = 94
    95     Top = 155
     94    Left = 90
     95    Top = 149
    9696    object MenuItem1: TMenuItem
    9797      Action = AShowContacts
Note: See TracChangeset for help on using the changeset viewer.