object FormFields: TFormFields
  Left = 538
  Height = 472
  Top = 358
  Width = 940
  Caption = 'Fields'
  ClientHeight = 472
  ClientWidth = 940
  OnShow = FormShow
  Position = poMainFormCenter
  LCLVersion = '1.8.0.4'
  object ToolBar1: TToolBar
    Left = 0
    Height = 36
    Top = 436
    Width = 940
    Align = alBottom
    ButtonHeight = 32
    ButtonWidth = 32
    Images = Core.ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 1
      Top = 2
      Action = AAdd
    end
    object ToolButton2: TToolButton
      Left = 37
      Top = 2
      Action = AModify
    end
    object ToolButton3: TToolButton
      Left = 73
      Top = 2
      Action = ARemove
    end
    object ToolButton4: TToolButton
      Left = 109
      Top = 2
      Action = AOk
    end
    object ToolButton5: TToolButton
      Left = 145
      Top = 2
      Action = ACancel
    end
  end
  object ListView1: TListView
    Left = 4
    Height = 428
    Top = 4
    Width = 932
    Align = alClient
    BorderSpacing.Around = 4
    Columns = <    
      item
        Caption = 'Name'
        Width = 200
      end    
      item
        Caption = 'Type'
        Width = 200
      end    
      item
        Caption = 'Required'
        Width = 100
      end    
      item
        Caption = 'TextBefore'
        Width = 100
      end    
      item
        Caption = 'TextAfter'
        Width = 315
      end>
    OwnerData = True
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    OnData = ListView1Data
    OnDblClick = AModifyExecute
    OnSelectItem = ListView1SelectItem
  end
  object ActionList1: TActionList
    Images = Core.ImageList1
    left = 350
    top = 168
    object AAdd: TAction
      Caption = 'Add'
      ImageIndex = 5
      OnExecute = AAddExecute
    end
    object AModify: TAction
      Caption = 'Modify'
      ImageIndex = 3
      OnExecute = AModifyExecute
    end
    object ARemove: TAction
      Caption = 'Remove'
      ImageIndex = 4
      OnExecute = ARemoveExecute
    end
    object AOk: TAction
      Caption = 'Ok'
      ImageIndex = 0
      OnExecute = AOkExecute
    end
    object ACancel: TAction
      Caption = 'Cancel'
      ImageIndex = 1
      OnExecute = ACancelExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Images = Core.ImageList1
    left = 492
    top = 172
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
      Default = True
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
  end
end