object MenuBuilder: TMenuBuilder Left = 192 Top = 107 Width = 433 Height = 276 Caption = 'Menu Designer' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} PopupMenu = PopupMenu1 Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy OnDeactivate = FormDeactivate OnMouseDown = FormMouseDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 16 object PopupMenu1: TPopupMenu HelpContext = 30100 OnPopup = PopupMenu1Popup Left = 8 Top = 8 object InsertItem: TMenuItem Caption = '&Insert' HelpContext = 2150 ShortCut = 45 OnClick = InsertItemClick end object DeleteItem: TMenuItem Caption = '&Delete' HelpContext = 2151 ShortCut = 46 OnClick = DeleteItemClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object CreateSubmenu1: TMenuItem Caption = '&Create Submenu' HelpContext = 2152 ShortCut = 16423 OnClick = CreateSubmenu1Click end object TMenuItem Caption = '-' ShortCut = 0 end object PopupMenu1SelectMenu: TMenuItem Caption = 'Se&lect Menu...' HelpContext = 2153 ShortCut = 0 OnClick = PopupMenu1SelectMenuClick end object PopupMenu1SaveAsTemplate: TMenuItem Caption = '&Save As Template...' HelpContext = 2154 ShortCut = 0 OnClick = PopupMenu1SaveAsTemplateClick end object PopupMenu1InsertFromTemplate: TMenuItem Caption = 'I&nsert From Template...' HelpContext = 2155 ShortCut = 0 OnClick = PopupMenu1InsertFromTemplateClick end object PopupMenu1DeleteTemplates: TMenuItem Caption = 'D&elete Templates...' HelpContext = 2156 ShortCut = 0 OnClick = PopupMenu1DeleteTemplatesClick end object InsertResourceItem: TMenuItem Caption = 'Insert From Resource...' HelpContext = 2157 ShortCut = 0 OnClick = InsertResourceItemClick end end object LoadMenuDlg: TOpenDialog FileEditStyle = fsEdit Filter = 'Menu Files (*.mnu)|*.mnu|Resource Files (*.rc)|*.rc|All Files (*' + '.*) |*.*' Options = [ofShowHelp, ofPathMustExist, ofFileMustExist] Title = 'Insert Menu From Resource' Left = 48 Top = 8 end end