source: trunk/Forms/FormContacts.lfm

object FormContacts: TFormContacts
  Left = 675
  Height = 908
  Top = 266
  Width = 1210
  Caption = 'Contacts'
  ClientHeight = 908
  ClientWidth = 1210
  DesignTimePPI = 144
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  LCLVersion = '2.2.6.0'
  object ListView1: TListView
    Left = 0
    Height = 809
    Top = 0
    Width = 1210
    Align = alClient
    Columns = <    
      item
        Caption = 'Full Name'
        Width = 300
      end    
      item
        Caption = 'First name'
        Width = 150
      end    
      item
        Caption = 'Middle name'
        Width = 150
      end    
      item
        Caption = 'Last Name'
        Width = 150
      end    
      item
        Caption = 'Phone'
        Width = 150
      end    
      item
        Caption = 'Mobile'
        Width = 150
      end    
      item
        Caption = 'Home phone'
        Width = 150
      end    
      item
        Caption = 'Work phone'
        Width = 150
      end>
    MultiSelect = True
    OwnerData = True
    ParentFont = False
    PopupMenu = PopupMenuContact
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = ListView1Data
    OnDblClick = ListView1DblClick
    OnSelectItem = ListView1SelectItem
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 39
    Top = 841
    Width = 1210
    Align = alBottom
    Images = Core.ImageList1
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 1
      Top = 2
      Action = AAdd
    end
    object ToolButton2: TToolButton
      Left = 36
      Top = 2
      Action = AModify
    end
    object ToolButton3: TToolButton
      Left = 106
      Top = 2
      Action = ARemove
    end
    object ToolButton4: TToolButton
      Left = 71
      Top = 2
      Action = AClone
    end
    object ToolButton5: TToolButton
      Left = 141
      Height = 33
      Top = 2
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 149
      Top = 2
      Action = ALoadFromFile
    end
    object ToolButton7: TToolButton
      Left = 184
      Top = 2
      Action = ASaveToFile
    end
  end
  object ListViewFilter1: TListViewFilter
    Left = 0
    Height = 32
    Top = 809
    Width = 1210
    OnChange = ListViewFilter1Change
    Align = alBottom
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 28
    Top = 880
    Width = 1210
    Panels = <    
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PopupMenuContact: TPopupMenu
    Images = Core.ImageList1
    Left = 435
    Top = 263
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
    end
    object MenuItem5: TMenuItem
      Action = AClone
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
    object MenuItem4: TMenuItem
      Action = ASelectAll
    end
    object MenuItem12: TMenuItem
      Caption = '-'
    end
    object MenuItem9: TMenuItem
      Action = ACut
    end
    object MenuItem10: TMenuItem
      Action = ACopy
    end
    object MenuItem11: TMenuItem
      Action = APaste
    end
    object MenuItem6: TMenuItem
      Caption = '-'
    end
    object MenuItem7: TMenuItem
      Action = ALoadFromFile
    end
    object MenuItem8: TMenuItem
      Action = ASaveToFile
    end
    object Separator1: TMenuItem
      Caption = '-'
    end
    object MenuItemColumns: TMenuItem
      Action = AColumns
    end
  end
  object ActionList1: TActionList
    Images = Core.ImageList1
    Left = 732
    Top = 257
    object AAdd: TAction
      Caption = 'Add'
      ImageIndex = 9
      OnExecute = AAddExecute
      ShortCut = 45
    end
    object AModify: TAction
      Caption = 'Modify'
      ImageIndex = 6
      OnExecute = AModifyExecute
      ShortCut = 13
    end
    object ARemove: TAction
      Caption = 'Remove'
      ImageIndex = 10
      OnExecute = ARemoveExecute
      ShortCut = 46
    end
    object ASelectAll: TAction
      Caption = 'Select all'
      OnExecute = ASelectAllExecute
      ShortCut = 16449
    end
    object AClone: TAction
      Caption = 'Clone'
      ImageIndex = 11
      OnExecute = ACloneExecute
    end
    object ALoadFromFile: TAction
      Caption = 'Load from file...'
      ImageIndex = 5
      OnExecute = ALoadFromFileExecute
    end
    object ASaveToFile: TAction
      Caption = 'Save to file...'
      ImageIndex = 7
      OnExecute = ASaveToFileExecute
    end
    object ACopy: TAction
      Caption = 'Copy'
      ImageIndex = 11
      OnExecute = ACopyExecute
      ShortCut = 16451
    end
    object ACut: TAction
      Caption = 'Cut'
      ImageIndex = 12
      OnExecute = ACutExecute
      ShortCut = 16472
    end
    object APaste: TAction
      Caption = 'Paste'
      ImageIndex = 13
      OnExecute = APasteExecute
      ShortCut = 16470
    end
    object AColumns: TAction
      Caption = 'Columns'
      OnExecute = AColumnsExecute
    end
  end
  object ListViewSort1: TListViewSort
    ListView = ListView1
    OnCompareItem = ListViewSort1CompareItem
    OnFilter = ListViewSort1Filter
    OnColumnWidthChanged = ListViewSort1ColumnWidthChanged
    Column = 0
    Order = soNone
    Left = 528
    Top = 428
  end
  object SaveDialog1: TSaveDialog
    Left = 720
    Top = 408
  end
  object OpenDialog1: TOpenDialog
    Left = 720
    Top = 480
  end
end