object FormMain: TFormMain
  Left = 620
  Height = 678
  Top = 427
  Width = 1050
  Caption = 'Language generator'
  ClientHeight = 653
  ClientWidth = 1050
  Menu = MainMenu1
  OnClose = FormClose
  OnShow = FormShow
  LCLVersion = '1.6.4.0'
  object MemoBNF: TMemo
    Left = 0
    Height = 618
    Top = 35
    Width = 1050
    Align = alClient
    TabOrder = 0
  end
  object CoolBar1: TCoolBar
    Left = 0
    Height = 35
    Top = 0
    Width = 1050
    Bands = <    
      item
        Control = ToolBar1
        Width = 179
      end>
    Images = Core.ImageList1
    object ToolBar1: TToolBar
      AnchorSideLeft.Control = CoolBar1
      AnchorSideTop.Control = CoolBar1
      Left = 24
      Height = 22
      Top = 5
      Width = 24
      Align = alNone
      AutoSize = True
      BorderSpacing.Left = 22
      BorderSpacing.Top = 3
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = Core.ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 1
        Top = 0
        Action = ARules
      end
    end
  end
  object MainMenu1: TMainMenu
    Images = Core.ImageList1
    left = 248
    top = 216
    object MenuItem2: TMenuItem
      Caption = 'File'
      object MenuItem4: TMenuItem
        Action = AOpen
      end
      object MenuItem5: TMenuItem
        Action = ASaveAs
      end
      object MenuItem6: TMenuItem
        Caption = '-'
      end
      object MenuItem7: TMenuItem
        Action = AExit
      end
    end
    object MenuItem1: TMenuItem
      Caption = 'View'
      object MenuItem3: TMenuItem
        Action = ARules
      end
    end
  end
  object ActionList1: TActionList
    Images = Core.ImageList1
    left = 428
    top = 229
    object ARules: TAction
      Caption = 'Rules'
      Hint = 'Rules'
      ImageIndex = 8
      OnExecute = ARulesExecute
    end
    object AExit: TAction
      Caption = 'Exit'
      Hint = 'Exit'
      ImageIndex = 2
      OnExecute = AExitExecute
    end
    object AOpen: TAction
      Caption = 'Open...'
      Hint = 'Open...'
      ImageIndex = 4
      OnExecute = AOpenExecute
    end
    object ASaveAs: TAction
      Caption = 'Save as...'
      Hint = 'Save as...'
      ImageIndex = 5
      OnExecute = ASaveAsExecute
    end
  end
  object OpenDialog1: TOpenDialog
    left = 748
    top = 188
  end
  object SaveDialog1: TSaveDialog
    left = 587
    top = 414
  end
end