object MenuEditDlg: TMenuEditDlg Left = 298 Top = 147 BorderStyle = bsDialog Caption = 'Menu editor' ClientHeight = 246 ClientWidth = 314 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 13 object OKBtn: TBitBtn Left = 72 Top = 214 Width = 77 Height = 27 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 03030303030303030303030303030303030303030303FF030303030303030303 03030303030303040403030303030303030303030303030303F8F8FF03030303 03030303030303030303040202040303030303030303030303030303F80303F8 FF030303030303030303030303040202020204030303030303030303030303F8 03030303F8FF0303030303030303030304020202020202040303030303030303 0303F8030303030303F8FF030303030303030304020202FA0202020204030303 0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202 040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303 03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303 FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303 0303030303030303030303FA0202020403030303030303030303030303F8FF03 03F8FF03030303030303030303030303FA020202040303030303030303030303 0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303 03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403 030303030303030303030303F8FF0303F8FF03030303030303030303030303FA 0202040303030303030303030303030303F8FF03F8FF03030303030303030303 03030303FA0202030303030303030303030303030303F8FFF803030303030303 030303030303030303FA0303030303030303030303030303030303F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} Margin = 4 NumGlyphs = 2 Style = bsNew Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 152 Top = 214 Width = 77 Height = 27 TabOrder = 2 Kind = bkCancel Margin = 4 Style = bsNew Spacing = -1 IsControl = True end object Notebook: TTabbedNotebook Left = 2 Top = 0 Width = 309 Height = 211 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 5 Top = 26 Caption = 'General' object Label1: TLabel Left = 12 Top = 20 Width = 39 Height = 13 Caption = '&Caption:' FocusControl = CaptionEdit end object Label2: TLabel Left = 12 Top = 116 Width = 47 Height = 13 Cursor = -24 Caption = '&Icon from:' FocusControl = IconEdit end object TargetLabel: TLabel Left = 12 Top = 52 Width = 50 Height = 13 Caption = 'C&ommand:' FocusControl = CommandEdit end object Label3: TLabel Left = 12 Top = 84 Width = 32 Height = 13 Caption = '&Folder:' FocusControl = FolderEdit end object BrowseIcon: TStyleSpeed Left = 265 Top = 113 Width = 22 Height = 21 Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000333333 3333330999000000000333090099999999033309F000877FF9033099F07F8000 F903099FF07FFFF8F90309FFF07FFFF8F90309FFF07FFFF8F90309FFF07FFFF8 F90309FFF07FFFF8F90309FFF07FFFF8F90309FF788FFFF8003309FF83388FF8 333309F783333888333338783333333333333383333333333333000000000000 0000000000000000000000000000000000000000} OnClick = BrowseIconClick Style = sbWin95 end object FolderEdit: TEdit Left = 66 Top = 81 Width = 221 Height = 20 Cursor = crIBeam Hint = 'Double click to select folder' CharCase = ecLowerCase MaxLength = 79 ParentShowHint = False ShowHint = True TabOrder = 2 OnDblClick = FolderEditDblClick end object CaptionEdit: TEdit Left = 66 Top = 16 Width = 221 Height = 20 Cursor = crIBeam MaxLength = 79 TabOrder = 0 end object IconEdit: TEdit Left = 66 Top = 114 Width = 195 Height = 20 Cursor = crIBeam CharCase = ecLowerCase MaxLength = 79 ParentShowHint = False ShowHint = False TabOrder = 3 end object rbNormal: TRadioButton Left = 66 Top = 146 Width = 65 Height = 17 Caption = '&Normal' Checked = True TabOrder = 4 TabStop = True end object rbMinimize: TRadioButton Left = 136 Top = 146 Width = 77 Height = 17 Caption = 'Mi&nimized' TabOrder = 5 end object rbMaximize: TRadioButton Left = 218 Top = 146 Width = 73 Height = 17 Caption = 'Ma&ximized' TabOrder = 6 end object CommandEdit: TComboBox Left = 66 Top = 49 Width = 221 Height = 20 Hint = 'Double click to browse' ItemHeight = 13 Items.Strings = ( '$Folder c:\' '$System' '$Find' '$Run' '$Explore' '$ShutDown' '$DesktopProp' '$SystemProp' '$FileSystemProp' '$TaskbarProp' '$BinProp' '$StartMenuProp') ParentShowHint = False ShowHint = True TabOrder = 1 OnDblClick = CommandEditDblClick end end end object HelpBtn: TBitBtn Left = 232 Top = 214 Width = 77 Height = 27 TabOrder = 3 Kind = bkHelp Margin = 4 Style = bsNew Spacing = -1 end object IconDialog: TIconDialog Filename = 'C:\DELPHI\BIN\COMPLIB.DCL' Left = 34 Top = 214 end object OpenDialog: TOpenDialog Filter = 'Programs|*.exe;*.com;*.pif;*.bat|All files|*.*' Options = [ofHideReadOnly] Left = 4 Top = 214 end end