object FormMain: TFormMain
  Left = 376
  Height = 678
  Top = 202
  Width = 1050
  Caption = 'Language generator'
  ClientHeight = 653
  ClientWidth = 1050
  Menu = MainMenu1
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  LCLVersion = '1.6.4.0'
  object MemoBNF: TMemo
    Left = 0
    Height = 618
    Top = 35
    Width = 1050
    Align = alClient
    ReadOnly = True
    ScrollBars = ssAutoBoth
    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 = 124
      Align = alNone
      AutoSize = True
      BorderSpacing.Left = 22
      BorderSpacing.Top = 3
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = Core.ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 78
        Top = 0
        Action = ARules
      end
      object ToolButton2: TToolButton
        Left = 101
        Top = 0
        Action = ABuildCompiler
      end
      object ToolButton3: TToolButton
        Left = 1
        Top = 0
        Action = AProjectNew
      end
      object ToolButton4: TToolButton
        Left = 24
        Top = 0
        Action = AProjectOpen
      end
      object ToolButton5: TToolButton
        Left = 47
        Top = 0
        Action = AProjectSave
      end
      object ToolButton6: TToolButton
        Left = 70
        Height = 22
        Top = 0
        Width = 8
        Style = tbsSeparator
      end
    end
  end
  object MainMenu1: TMainMenu
    Images = Core.ImageList1
    left = 304
    top = 229
    object MenuItem2: TMenuItem
      Caption = 'File'
      object MenuItem11: TMenuItem
        Action = AProjectNew
      end
      object MenuItem4: TMenuItem
        Action = AProjectOpen
      end
      object MenuItem10: TMenuItem
        Action = AProjectSave
      end
      object MenuItem5: TMenuItem
        Action = AProjectSaveAs
      end
      object MenuItem13: TMenuItem
        Action = AProjectClose
      end
      object MenuItem12: TMenuItem
        Action = AGrammerSettings
      end
      object MenuItem6: TMenuItem
        Caption = '-'
      end
      object MenuItem7: TMenuItem
        Action = AExit
      end
    end
    object MenuItem8: TMenuItem
      Caption = 'Tools'
      object MenuItem9: TMenuItem
        Action = ABuildCompiler
      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 AProjectOpen: TAction
      Caption = 'Open...'
      Hint = 'Open...'
      ImageIndex = 4
      OnExecute = AProjectOpenExecute
    end
    object AProjectSaveAs: TAction
      Caption = 'Save as...'
      Hint = 'Save as...'
      ImageIndex = 5
      OnExecute = AProjectSaveAsExecute
    end
    object ABuildCompiler: TAction
      Caption = 'Build compiler'
      ImageIndex = 9
      OnExecute = ABuildCompilerExecute
    end
    object AProjectSave: TAction
      Caption = 'Save'
      ImageIndex = 5
      OnExecute = AProjectSaveExecute
    end
    object AProjectNew: TAction
      Caption = 'New'
      ImageIndex = 10
      OnExecute = AProjectNewExecute
    end
    object AGrammerSettings: TAction
      Caption = 'Settings'
      OnExecute = AGrammerSettingsExecute
    end
    object AProjectClose: TAction
      Caption = 'Close'
      OnExecute = AProjectCloseExecute
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.grm'
    Filter = 'Grammer (.grm)|*.grm|All files|*.*'
    left = 748
    top = 188
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.grm'
    Filter = 'Grammer (.grm)|*.grm|All files|*.*'
    left = 587
    top = 414
  end
end