home *** CD-ROM | disk | FTP | other *** search
- 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 = {<image000.ico>}
- 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
-