source: trunk/Packages/Common/Forms/FormList.lfm

object FormList: TFormList
  Left = 1040
  Height = 360
  Top = 540
  Width = 480
  Caption = 'List'
  ClientHeight = 360
  ClientWidth = 480
  DesignTimePPI = 144
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '3.6.0.0'
  object ListView1: TListView
    Left = 0
    Height = 322
    Top = 0
    Width = 480
    Align = alClient
    Columns = <    
      item
        Caption = 'Name'
        Width = 467
      end>
    MultiSelect = True
    OwnerData = True
    ParentFont = False
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnCustomDrawSubItem = ListView1CustomDrawSubItem
    OnData = ListView1Data
    OnDblClick = AModifyExecute
    OnKeyPress = ListView1KeyPress
    OnKeyUp = ListView1KeyUp
    OnSelectItem = ListView1SelectItem
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 38
    Top = 322
    Width = 480
    Align = alBottom
    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 = 71
      Top = 2
      Action = ARemove
    end
    object ToolButton4: TToolButton
      Left = 106
      Top = 2
      Action = AClone
    end
  end
  object ActionList1: TActionList
    Left = 209
    Top = 160
    object AAdd: TAction
      Caption = 'Add'
      ImageIndex = 16
      OnExecute = AAddExecute
      ShortCut = 45
    end
    object AModify: TAction
      Caption = 'Modify'
      ImageIndex = 6
      OnExecute = AModifyExecute
      ShortCut = 13
    end
    object ARemove: TAction
      Caption = 'Remove'
      ImageIndex = 18
      OnExecute = ARemoveExecute
      ShortCut = 46
    end
    object AClone: TAction
      Caption = 'Clone'
      ImageIndex = 17
      OnExecute = ACloneExecute
    end
    object ASelectAll: TAction
      Caption = 'Select all'
      OnExecute = ASelectAllExecute
      ShortCut = 16449
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 353
    Top = 160
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
    object MenuItem4: TMenuItem
      Action = AClone
    end
    object MenuItem5: TMenuItem
      Action = ASelectAll
    end
  end
end