object FormTables: TFormTables
  Left = 731
  Height = 792
  Top = 117
  Width = 1174
  Caption = 'Tables'
  ClientHeight = 792
  ClientWidth = 1174
  DesignTimePPI = 144
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.2.2.0'
  object ListViewTables: TListView
    Left = 5
    Height = 739
    Top = 5
    Width = 1164
    Align = alClient
    BorderSpacing.Around = 5
    Columns = <    
      item
        Caption = 'Name'
        Width = 600
      end    
      item
        Caption = 'Records'
        Width = 549
      end>
    OwnerData = True
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = ListViewTablesData
    OnDblClick = AShowRecordsExecute
    OnSelectItem = ListViewTablesSelectItem
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 43
    Top = 749
    Width = 1174
    Align = alBottom
    ButtonHeight = 38
    ButtonWidth = 38
    Images = Core.ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 1
      Top = 2
      Action = AAdd
    end
    object ToolButton2: TToolButton
      Left = 39
      Top = 2
      Action = AModify
    end
    object ToolButton3: TToolButton
      Left = 77
      Top = 2
      Action = ARemove
    end
    object ToolButton4: TToolButton
      Left = 115
      Top = 2
      Action = AShowRecords
    end
    object ToolButton5: TToolButton
      Left = 153
      Top = 2
      Action = AShowFields
    end
  end
  object ActionList1: TActionList
    Images = Core.ImageList1
    Left = 368
    Top = 173
    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 AShowRecords: TAction
      Caption = 'Records'
      ImageIndex = 7
      OnExecute = AShowRecordsExecute
    end
    object AShowFields: TAction
      Caption = 'Design'
      ImageIndex = 6
      OnExecute = AShowFieldsExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Images = Core.ImageList1
    Left = 557
    Top = 173
    object MenuItem4: TMenuItem
      Action = AShowRecords
      Default = True
    end
    object MenuItem1: TMenuItem
      Action = AAdd
    end
    object MenuItem2: TMenuItem
      Action = AModify
    end
    object MenuItem3: TMenuItem
      Action = ARemove
    end
    object MenuItem5: TMenuItem
      Action = AShowFields
    end
  end
end