object FormMain: TFormMain Left = 376 Height = 814 Top = 202 Width = 1260 Caption = 'Language generator' ClientHeight = 780 ClientWidth = 1260 DesignTimePPI = 144 Menu = MainMenu1 OnClose = FormClose OnCloseQuery = FormCloseQuery OnShow = FormShow LCLVersion = '2.0.2.0' WindowState = wsMaximized object CoolBar1: TCoolBar Left = 0 Height = 42 Top = 0 Width = 1260 Bands = < item Control = ToolBar1 Width = 179 end> Images = Core.ImageList1 ParentFont = False object ToolBar1: TToolBar AnchorSideLeft.Control = CoolBar1 AnchorSideTop.Control = CoolBar1 Left = 24 Height = 33 Top = 5 Width = 237 Align = alNone AutoSize = True BorderSpacing.Left = 22 BorderSpacing.Top = 3 EdgeInner = esNone EdgeOuter = esNone Images = Core.ImageList1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Transparent = True object ToolButton2: TToolButton Left = 167 Top = 0 Action = ABuildCompiler end object ToolButton3: TToolButton Left = 1 Top = 0 Action = AProjectNew end object ToolButton4: TToolButton Left = 36 Top = 0 Action = AProjectOpen DropdownMenu = PopupMenuOpenRecent Style = tbsDropDown end object ToolButton5: TToolButton Left = 89 Top = 0 Action = AProjectSave end object ToolButton6: TToolButton Left = 159 Height = 33 Top = 0 Style = tbsSeparator end object ToolButton1: TToolButton Left = 124 Top = 0 Action = AGrammerSettings end object ToolButton7: TToolButton Left = 202 Top = 0 Action = ALookupTables end end end object PageControl1: TPageControl Left = 0 Height = 738 Top = 42 Width = 1260 ActivePage = TabSheetEbnf Align = alClient ParentFont = False TabIndex = 2 TabOrder = 1 object TabSheetRules: TTabSheet Caption = 'Rules' ParentFont = False end object TabSheetBnf: TTabSheet Caption = 'BNF' ClientHeight = 698 ClientWidth = 1250 ParentFont = False object MemoBnf: TMemo Left = 0 Height = 571 Top = 0 Width = 1044 Align = alClient ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 end end object TabSheetEbnf: TTabSheet Caption = 'EBNF' ClientHeight = 698 ClientWidth = 1250 ParentFont = False object MemoEbnf: TMemo Left = 0 Height = 698 Top = 0 Width = 1250 Align = alClient ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 end end end object MainMenu1: TMainMenu Images = Core.ImageList1 left = 365 top = 275 object MenuItem2: TMenuItem Caption = 'File' object MenuItem11: TMenuItem Action = AProjectNew end object MenuItem4: TMenuItem Action = AProjectOpen end object MenuItemRecent: TMenuItem Caption = 'Open recent' 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 = 'Grammer' object MenuItem9: TMenuItem Action = ABuildCompiler end object MenuItem3: TMenuItem Action = ALookupTables end end object MenuItem1: TMenuItem Caption = 'View' object MenuItemToolbar: TMenuItem Action = AToolbarVisible AutoCheck = True end end object MenuItem14: TMenuItem Caption = 'Tools' object MenuItem15: TMenuItem Action = ASettings end end end object ActionList1: TActionList Images = Core.ImageList1 left = 514 top = 275 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 AProjectOpenRecent: TAction Caption = 'Open recent' OnExecute = AProjectOpenRecentExecute end object AProjectSaveAs: TAction Caption = 'Save as...' Hint = 'Save as...' ImageIndex = 5 OnExecute = AProjectSaveAsExecute end object AProjectSave: TAction Caption = 'Save' ImageIndex = 5 OnExecute = AProjectSaveExecute end object AProjectNew: TAction Caption = 'New' ImageIndex = 10 OnExecute = AProjectNewExecute end object AProjectClose: TAction Caption = 'Close' OnExecute = AProjectCloseExecute end object AGrammerSettings: TAction Caption = 'Grammer settings' ImageIndex = 3 OnExecute = AGrammerSettingsExecute end object ABuildCompiler: TAction Caption = 'Build compiler' ImageIndex = 9 OnExecute = ABuildCompilerExecute end object AToolbarVisible: TAction AutoCheck = True Caption = 'Toolbar' OnExecute = AToolbarVisibleExecute end object ALookupTables: TAction Caption = 'Lookup tables' ImageIndex = 8 OnExecute = ALookupTablesExecute end object ASettings: TAction Caption = 'Settings' OnExecute = ASettingsExecute end end object OpenDialog1: TOpenDialog DefaultExt = '.grm' Filter = 'Grammer (.grm)|*.grm|All files|*.*' left = 898 top = 226 end object SaveDialog1: TSaveDialog DefaultExt = '.grm' Filter = 'Grammer (.grm)|*.grm|All files|*.*' left = 704 top = 497 end object LastOpenedList1: TLastOpenedList MaxCount = 10 OnChange = LastOpenedList1Change left = 186 top = 157 end object PopupMenuOpenRecent: TPopupMenu left = 179 top = 281 end end