object FormRules: TFormRules
  Left = 662
  Height = 611
  Top = 369
  Width = 857
  Caption = 'Rules'
  ClientHeight = 611
  ClientWidth = 857
  OnShow = FormShow
  LCLVersion = '1.6.4.0'
  object CoolBar1: TCoolBar
    Left = 0
    Height = 32
    Top = 579
    Width = 857
    Align = alBottom
    Bands = <    
      item
        Control = ToolBar1
        Width = 179
      end>
    Images = Core.ImageList1
    object ToolBar1: TToolBar
      AnchorSideLeft.Control = CoolBar1
      AnchorSideTop.Control = CoolBar1
      Left = 24
      Height = 24
      Top = 5
      Width = 70
      Align = alNone
      AutoSize = True
      BorderSpacing.Left = 22
      BorderSpacing.Top = 3
      Caption = 'ToolBar1'
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 1
        Top = 2
        Action = AAdd
      end
      object ToolButton2: TToolButton
        Left = 24
        Top = 2
        Action = AModify
      end
      object ToolButton3: TToolButton
        Left = 47
        Top = 2
        Action = ARemove
      end
    end
  end
  object ListView1: TListView
    Left = 4
    Height = 571
    Top = 4
    Width = 849
    Align = alClient
    BorderSpacing.Around = 4
    Columns = <    
      item
        Caption = 'Name'
        Width = 829
      end>
    MultiSelect = True
    OwnerData = True
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    OnData = ListView1Data
    OnDblClick = ListView1DblClick
    OnKeyPress = ListView1KeyPress
    OnSelectItem = ListView1SelectItem
  end
  object ActionList1: TActionList
    left = 248
    top = 212
    object AAdd: TAction
      Caption = 'Add'
      OnExecute = AAddExecute
    end
    object AModify: TAction
      Caption = 'Modify'
      OnExecute = AModifyExecute
    end
    object ARemove: TAction
      Caption = 'Remove'
      OnExecute = ARemoveExecute
      ShortCut = 46
    end
  end
  object PopupMenu1: TPopupMenu
    left = 427
    top = 212
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
  end
end