object DSFieldsEditorFrm: TDSFieldsEditorFrm
  Left = 472
  Height = 288
  Top = 230
  Width = 215
  HorzScrollBar.Page = 214
  VertScrollBar.Page = 287
  Caption = 'Fields Editor'
  ClientHeight = 288
  ClientWidth = 215
  OnClose = FieldsEditorFrmClose
  OnDestroy = FieldsEditorFrmDestroy
  LCLVersion = '0.9.29'
  object FieldsListBox: TListBox
    Left = 0
    Height = 288
    Top = 0
    Width = 215
    Align = alClient
    ItemHeight = 0
    MultiSelect = True
    OnClick = ListBox1Click
    OnKeyDown = FieldsListBoxKeyDown
    PopupMenu = PopupMenu1
    TabOrder = 0
  end
  object PopupMenu1: TPopupMenu
    left = 32
    top = 144
    object MenuItem1: TMenuItem
      Action = AddFieldsActn
      OnClick = AddFieldsActnExecute
    end
    object MenuItem2: TMenuItem
      Action = DeleteFieldsActn
      OnClick = DeleteFieldsActnExecute
    end
    object MenuItem5: TMenuItem
      Action = NewActn
      OnClick = NewActnExecute
    end
    object MenuItem3: TMenuItem
      Action = MoveUpActn
      OnClick = MoveUpActnExecute
    end
    object MenuItem4: TMenuItem
      Action = MoveDownActn
      OnClick = MoveDownActnExecute
    end
    object MenuItem6: TMenuItem
      Action = SelectAllActn
      OnClick = SelectAllActnExecute
    end
    object MenuItem7: TMenuItem
      Action = UnselectAllActn
      OnClick = UnselectAllActnExecute
    end
  end
  object ActionList1: TActionList
    OnUpdate = ActionList1Update
    left = 120
    top = 144
    object AddFieldsActn: TAction
      Category = 'Fields'
      Caption = '&Add fields'
      OnExecute = AddFieldsActnExecute
      ShortCut = 16429
    end
    object DeleteFieldsActn: TAction
      Category = 'Fields'
      Caption = '&Delete'
      OnExecute = DeleteFieldsActnExecute
      ShortCut = 46
    end
    object NewActn: TAction
      Category = 'Fields'
      Caption = '&New'
      OnExecute = NewActnExecute
      ShortCut = 45
    end
    object MoveUpActn: TAction
      Category = 'Fields'
      Caption = 'Move &Up'
      OnExecute = MoveUpActnExecute
    end
    object MoveDownActn: TAction
      Category = 'Fields'
      Caption = 'Move &Down'
      OnExecute = MoveDownActnExecute
    end
    object SelectAllActn: TAction
      Category = 'Fields'
      Caption = '&Select all'
      OnExecute = SelectAllActnExecute
      ShortCut = 16449
    end
    object UnselectAllActn: TAction
      Category = 'Fields'
      Caption = '&Unselect all'
      OnExecute = UnselectAllActnExecute
    end
  end
end