source: trunk/Forms/UFormCategories.lfm

object FormCategories: TFormCategories
  Left = 516
  Height = 429
  Top = 439
  Width = 784
  Caption = 'Acronym categories'
  ClientHeight = 429
  ClientWidth = 784
  DesignTimePPI = 120
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.0.2.0'
  object ListViewCategories: TListView
    Left = 4
    Height = 395
    Top = 4
    Width = 776
    Align = alClient
    BorderSpacing.Around = 4
    Checkboxes = True
    Columns = <    
      item
        Caption = 'Name'
        Width = 300
      end    
      item
        Caption = 'Used count'
        Width = 456
      end>
    MultiSelect = True
    OwnerData = True
    PopupMenu = PopupMenuCategory
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = ListViewCategoriesChange
    OnData = ListViewCategoriesData
    OnDblClick = ListViewCategoriesDblClick
    OnKeyPress = ListViewCategoriesKeyPress
    OnSelectItem = ListViewCategoriesSelectItem
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 26
    Top = 403
    Width = 784
    Align = alBottom
    Images = Core.ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 1
      Top = 2
      Action = AAdd
    end
    object ToolButton2: TToolButton
      Left = 30
      Top = 2
      Action = AModify
    end
    object ToolButton3: TToolButton
      Left = 59
      Top = 2
      Action = ARemove
    end
  end
  object ActionList1: TActionList
    Images = Core.ImageList1
    left = 380
    top = 196
    object AAdd: TAction
      Caption = 'Add'
      ImageIndex = 0
      OnExecute = AAddExecute
      ShortCut = 45
    end
    object ARemove: TAction
      Caption = 'Remove'
      ImageIndex = 4
      OnExecute = ARemoveExecute
      ShortCut = 46
    end
    object AModify: TAction
      Caption = 'Modify'
      ImageIndex = 3
      OnExecute = AModifyExecute
      ShortCut = 13
    end
    object ASelectAll: TAction
      Caption = 'Select all'
      OnExecute = ASelectAllExecute
      ShortCut = 16449
    end
    object AEnable: TAction
      Caption = 'Enable'
      OnExecute = AEnableExecute
    end
    object ADisable: TAction
      Caption = 'Disable'
      OnExecute = ADisableExecute
    end
  end
  object PopupMenuCategory: TPopupMenu
    Images = Core.ImageList1
    left = 119
    top = 192
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
    object MenuItem4: TMenuItem
      Action = ASelectAll
    end
    object MenuItem5: TMenuItem
      Caption = '-'
    end
    object MenuItem6: TMenuItem
      Action = AEnable
    end
    object MenuItem7: TMenuItem
      Action = ADisable
    end
  end
  object ListViewSort1: TListViewSort
    ListView = ListViewCategories
    OnCompareItem = ListViewSort1CompareItem
    OnFilter = ListViewSort1Filter
    Column = 0
    Order = soNone
    left = 536
    top = 184
  end
end