object DSFieldsEditorFrm: TDSFieldsEditorFrm
  Caption = 'Fields Editor'
  ClientHeight = 288
  ClientWidth = 215
  OnClose = FieldsEditorFrmClose
  OnDestroy = FieldsEditorFrmDestroy
  PixelsPerInch = 96
  Position = poDefaultPosOnly
  HorzScrollBar.Page = 214
  VertScrollBar.Page = 287
  Left = 256
  Height = 288
  Top = 117
  Width = 215
  object FieldsListBox: TListBox
    Align = alClient
    BorderSpacing.OnChange = nil
    MultiSelect = True
    OnClick = ListBox1Click
    OnKeyDown = FieldsListBoxKeyDown
    PopupMenu = PopupMenu1
    TabOrder = 0
    Height = 288
    Width = 215
  end
  object PopupMenu1: TPopupMenu
    left = 8
    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
    left = 40
    top = 144
    object AddFieldsActn: TAction
      Caption = '&Add fields'
      Hint = 'Add fields from FieldDefs'
      OnExecute = AddFieldsActnExecute
      ShortCut = 16429
      Category = 'Fields'
    end
    object DeleteFieldsActn: TAction
      Caption = '&Delete'
      Hint = 'Delete selected field(s)'
      OnExecute = DeleteFieldsActnExecute
      ShortCut = 46
      Category = 'Fields'
    end
    object NewActn: TAction
      Caption = '&New'
      Hint = 'Create new field and add it at current position'
      OnExecute = NewActnExecute
      ShortCut = 45
      Category = 'Fields'
    end
    object MoveUpActn: TAction
      Caption = 'Move &Up'
      OnExecute = MoveUpActnExecute
      Category = 'Fields'
    end
    object MoveDownActn: TAction
      Caption = 'Move &Down'
      OnExecute = MoveDownActnExecute
      Category = 'Fields'
    end
    object SelectAllActn: TAction
      Caption = '&Select all'
      OnExecute = SelectAllActnExecute
      ShortCut = 16449
      Category = 'Fields'
    end
    object UnselectAllActn: TAction
      Caption = '&Unselect all'
      OnExecute = UnselectAllActnExecute
      Category = 'Fields'
    end
  end
end