object Addtomenu: TAddtomenu Left = 235 Top = 317 ActiveControl = ProgName BorderIcons = [biHelp] BorderStyle = bsDialog Caption = 'Add to menu' ClientHeight = 157 ClientWidth = 468 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Position = poScreenCenter Scaled = False OnActivate = FormActivate PixelsPerInch = 120 TextHeight = 13 object NameLabel: TLabel Left = 8 Top = 43 Width = 28 Height = 13 Caption = 'Name' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ParameterLabel: TLabel Left = 8 Top = 72 Width = 56 Height = 13 Caption = 'Parameters:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object RunAsLabel: TLabel Left = 8 Top = 99 Width = 37 Height = 13 Caption = 'Run as:' end object FysNameLabel: TLabel Left = 8 Top = 16 Width = 19 Height = 13 Caption = 'File:' end object ItemImage: TImage Left = 312 Top = 16 Width = 32 Height = 32 end object ProgName: TEdit Left = 81 Top = 40 Width = 215 Height = 21 HelpContext = 710 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object bOK: TButton Left = 379 Top = 8 Width = 75 Height = 25 Caption = 'OK' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 3 end object bCancel: TButton Left = 379 Top = 42 Width = 75 Height = 25 Caption = 'Cancel' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 4 end object Parameter: TEdit Left = 81 Top = 68 Width = 215 Height = 21 HelpContext = 720 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object ShowState: TComboBox Left = 81 Top = 96 Width = 215 Height = 21 HelpContext = 725 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Normal window' 'Minimized window' 'Maximized window') ParentFont = False TabOrder = 2 Text = 'Normal window' end object FysName: TEdit Left = 80 Top = 12 Width = 217 Height = 21 TabOrder = 5 end object FolderBrowse: TBrowseFolder Flags = [] ShowPathInStatusArea = False SyncCustomButton = False Left = 328 Top = 88 end object OpenDialog: TOpenDialog Left = 376 Top = 96 end end