home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk12 / lib.pak / MNUBUILD.DFM / MNUBUILD.txt < prev   
Encoding:
Text File  |  1995-08-24  |  2.2 KB  |  86 lines
  1. object MenuBuilder: TMenuBuilder
  2.   Left = 243
  3.   Top = 109
  4.   Width = 433
  5.   Height = 276
  6.   Caption = 'Menu Designer'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   Icon.Data = {<image000.ico>}
  12.   PixelsPerInch = 96
  13.   PopupMenu = PopupMenu1
  14.   OnActivate = FormActivate
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnDeactivate = FormDeactivate
  18.   OnMouseDown = FormMouseDown
  19.   OnResize = FormResize
  20.   TextHeight = 16
  21.   object PopupMenu1: TPopupMenu
  22.     HelpContext = 30100
  23.     OnPopup = PopupMenu1Popup
  24.     Left = 8
  25.     Top = 8
  26.     object InsertItem: TMenuItem
  27.       Caption = '&Insert'
  28.       HelpContext = 2150
  29.       OnClick = InsertItemClick
  30.       ShortCutText = 'Ins'
  31.     end
  32.     object DeleteItem: TMenuItem
  33.       Caption = '&Delete'
  34.       HelpContext = 2151
  35.       OnClick = DeleteItemClick
  36.       ShortCutText = 'Del'
  37.     end
  38.     object N1: TMenuItem
  39.       Caption = '-'
  40.     end
  41.     object CreateSubmenu1: TMenuItem
  42.       Caption = '&Create Submenu'
  43.       HelpContext = 2152
  44.       OnClick = CreateSubmenu1Click
  45.       ShortCutText = 'Ctrl+Right'
  46.     end
  47.     object TMenuItem
  48.       Caption = '-'
  49.     end
  50.     object PopupMenu1SelectMenu: TMenuItem
  51.       Caption = 'Se&lect Menu...'
  52.       HelpContext = 2153
  53.       OnClick = PopupMenu1SelectMenuClick
  54.     end
  55.     object PopupMenu1SaveAsTemplate: TMenuItem
  56.       Caption = '&Save As Template...'
  57.       HelpContext = 2154
  58.       OnClick = PopupMenu1SaveAsTemplateClick
  59.     end
  60.     object PopupMenu1InsertFromTemplate: TMenuItem
  61.       Caption = 'I&nsert From Template...'
  62.       HelpContext = 2155
  63.       OnClick = PopupMenu1InsertFromTemplateClick
  64.     end
  65.     object PopupMenu1DeleteTemplates: TMenuItem
  66.       Caption = 'D&elete Templates...'
  67.       HelpContext = 2156
  68.       OnClick = PopupMenu1DeleteTemplatesClick
  69.     end
  70.     object InsertResourceItem: TMenuItem
  71.       Caption = 'Insert From Resource...'
  72.       HelpContext = 2157
  73.       OnClick = InsertResourceItemClick
  74.     end
  75.   end
  76.   object LoadMenuDlg: TOpenDialog
  77.     Filter = 
  78.       'Menu Files (*.mnu) | *.mnu | Resource Files (*.rc) | *.rc | All ' +
  79.       'Files (*.*) | *.*'
  80.     Options = [ofShowHelp, ofPathMustExist, ofFileMustExist]
  81.     Title = 'Insert Menu From Resource'
  82.     Left = 48
  83.     Top = 8
  84.   end
  85. end
  86.