Chip 2004 August/CHIP_CD_2004-08.iso/software/tuneup_hit/files/TU2004TrialEN.exe/cmDisplay.bpl/RCDATA/TFRMCONTEXTMENU/TFRMCONTEXTMENU.txt

Text File | 2004-03-31 | 14.1 KB | 545 lines

object frmContextMenu: TfrmContextMenu
  Left = 694
  Top = 108
  BorderStyle = bsNone
  Caption = 'File Types and Context Menus'
  ClientHeight = 439
  ClientWidth = 421
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 10
    Top = 7
    Width = 405
    Height = 405
    ActivePage = tsSpecialEntries
    TabIndex = 0
    TabOrder = 0
    object tsSpecialEntries: TTabSheet
      Caption = 'Menu Operations'
      ImageIndex = 1
      OnShow = tsSpecialEntriesShow
      object GroupBox30: TGroupBox
        Left = 12
        Top = 10
        Width = 372
        Height = 136
        Caption = 'Drives and folders'
        TabOrder = 0
        object imgFolder: TImage
          Left = 12
          Top = 17
          Width = 32
          Height = 32
        end
        object Label3: TLabel
          Left = 51
          Top = 17
          Width = 311
          Height = 29
          AutoSize = False
          Caption =
            'Select which of the entries below should be shown in the context' +
            ' menu for drives and folders.'
          WordWrap = True
        end
        object lblExploreHere: TLabel
          Left = 71
          Top = 69
          Width = 244
          Height = 13
          HelpContext = 2016
          Caption = 'Opens the selected location in a new window.'
        end
        object lblPromptHere: TLabel
          Left = 71
          Top = 107
          Width = 247
          Height = 13
          HelpContext = 2917
          Caption = 'Opens the command prompt in the selected location.'
        end
        object chkShowExploreFromHere: TCheckBox
          Left = 51
          Top = 51
          Width = 280
          Height = 17
          HelpContext = 2016
          Caption = 'Show "Explorer From Here"'
          TabOrder = 0
          OnClick = chkShowExploreFromHereClick
        end
        object chkShowPromptFromHere: TCheckBox
          Left = 51
          Top = 89
          Width = 280
          Height = 17
          HelpContext = 2917
          Caption = 'Show "Open Command Prompt Here"'
          TabOrder = 1
          OnClick = chkShowPromptFromHereClick
        end
      end
      object gbFilesAndFolder: TGroupBox
        Left = 12
        Top = 160
        Width = 372
        Height = 148
        Caption = 'Files and folders'
        TabOrder = 1
        object Image2: TImage
          Left = 12
          Top = 17
          Width = 32
          Height = 32
          Picture.Data = {<image000.ico>}
        end
        object Label2: TLabel
          Left = 51
          Top = 17
          Width = 311
          Height = 29
          AutoSize = False
          Caption =
            'Select which entries should be shown in the context menus of fil' +
            'es and folders.'
          WordWrap = True
        end
        object chkShowSendTo: TCheckBox
          Left = 51
          Top = 51
          Width = 268
          Height = 17
          HelpContext = 2918
          Caption = 'Show Send To menu'
          TabOrder = 0
          OnClick = chkShowSendToClick
        end
        object chkShowCopyTo: TCheckBox
          Left = 51
          Top = 72
          Width = 268
          Height = 17
          HelpContext = 2919
          Caption = 'Show "Copy To Folder..."'
          TabOrder = 1
          OnClick = chkShowCopyToClick
        end
        object chkShowMoveTo: TCheckBox
          Left = 51
          Top = 94
          Width = 268
          Height = 17
          HelpContext = 2920
          Caption = 'Show "Move To Folder..."'
          TabOrder = 2
          OnClick = chkShowMoveToClick
        end
        object chkShowEncrypt: TCheckBox
          Left = 51
          Top = 116
          Width = 268
          Height = 17
          HelpContext = 2921
          Caption = 'Show "Encrypt" and "Decrypt"'
          TabOrder = 3
          OnClick = chkShowEncryptClick
        end
      end
      object btnSpecialEntriesDefault: TButton
        Left = 12
        Top = 343
        Width = 97
        Height = 24
        HelpContext = 7
        Caption = 'Restore Defaults'
        TabOrder = 2
        OnClick = btnSpecialEntriesDefaultClick
      end
    end
    object tsMenuNew: TTabSheet
      Caption = 'New Menu'
      ImageIndex = 2
      OnShow = tsMenuNewShow
      object lblShellNewList: TLabel
        Left = 12
        Top = 46
        Width = 372
        Height = 17
        HelpContext = 2018
        AutoSize = False
        Caption = '&Templates:'
        FocusControl = lvShellNew
        WordWrap = True
      end
      object Label1: TLabel
        Left = 12
        Top = 10
        Width = 376
        Height = 32
        AutoSize = False
        Caption =
          'Select which file types should be shown in the New submenu of co' +
          'ntext menus for the desktop, Explorer and Save dialogs.'
        ShowAccelChar = False
        WordWrap = True
      end
      object lvShellNew: TListView
        Left = 12
        Top = 64
        Width = 372
        Height = 177
        HelpContext = 2018
        Checkboxes = True
        Columns = <
          item
            Caption = 'Type'
            Width = 281
          end
          item
            Caption = 'Extension'
            Width = 65
          end>
        ReadOnly = True
        TabOrder = 0
        ViewStyle = vsReport
        OnChange = lvShellNewChange
        OnColumnClick = lvShellNewColumnClick
        OnCompare = lvShellNewCompare
        OnContextPopup = lvShellNewContextPopup
      end
      object btnShellNewAdd: TButton
        Left = 12
        Top = 247
        Width = 84
        Height = 24
        HelpContext = 2019
        Action = actShellNewAdd
        TabOrder = 1
      end
      object btnShellNewRemove: TButton
        Left = 103
        Top = 247
        Width = 84
        Height = 24
        HelpContext = 2020
        Action = actShellNewRemove
        TabOrder = 2
      end
      object GroupBox3: TGroupBox
        Left = 12
        Top = 281
        Width = 372
        Height = 82
        Caption = 'Options'
        TabOrder = 3
        object Label6: TLabel
          Left = 12
          Top = 17
          Width = 345
          Height = 28
          AutoSize = False
          Caption =
            'Set whether the New submenu should be shown in the context menu ' +
            'that is displayed when you right click on the desktop and free a' +
            'reas of folder windows.'
          WordWrap = True
        end
        object chkMenuNewOnFolderBackground: TCheckBox
          Left = 12
          Top = 52
          Width = 336
          Height = 17
          HelpContext = 2021
          Caption = 'Show the New submenu from the folder and desktop background'
          TabOrder = 0
          OnClick = chkMenuNewOnFolderBackgroundClick
        end
      end
    end
    object tsOpenWith: TTabSheet
      Caption = 'Opening Files'
      ImageIndex = 2
      OnShow = tsOpenWithShow
      object imgOpenFile: TImage
        Left = 12
        Top = 10
        Width = 32
        Height = 32
      end
      object Label7: TLabel
        Left = 51
        Top = 10
        Width = 335
        Height = 29
        AutoSize = False
        Caption =
          'Select how Windows should behave when opening unknown files and ' +
          'when showing context menus.'
        WordWrap = True
      end
      object gbOpenAsView: TGroupBox
        Left = 12
        Top = 201
        Width = 372
        Height = 104
        Caption = 'Display options'
        TabOrder = 1
        Visible = False
        object Label5: TLabel
          Left = 12
          Top = 17
          Width = 353
          Height = 29
          AutoSize = False
          Caption =
            'Select which of the entries below should be shown in the context' +
            ' menu that is displayed when you right click on files.'
          WordWrap = True
        end
        object chkOpenasUnregistered: TCheckBox
          Left = 12
          Top = 51
          Width = 344
          Height = 17
          Caption = 'Show "Open With..." in the context menu of unknown file types'
          TabOrder = 0
          OnClick = chkOpenasUnregisteredClick
        end
        object chkOpenasRegistered: TCheckBox
          Left = 12
          Top = 73
          Width = 338
          Height = 17
          Caption = 'Show "Open With..." for registered file types'
          TabOrder = 1
          OnClick = chkOpenasRegisteredClick
        end
      end
      object btnOpenWithDefault: TButton
        Left = 12
        Top = 343
        Width = 97
        Height = 24
        HelpContext = 7
        Caption = 'Restore Defaults'
        TabOrder = 2
        OnClick = btnOpenWithDefaultClick
      end
      object gbDefaultApp: TGroupBox
        Left = 12
        Top = 56
        Width = 372
        Height = 133
        Caption = 'Default application'
        TabOrder = 0
        OnExit = gbDefaultAppExit
        object Label16: TLabel
          Left = 12
          Top = 17
          Width = 308
          Height = 34
          AutoSize = False
          Caption =
            'Select how Windows should behave when double clicking on an unkn' +
            'own file type.'
          WordWrap = True
        end
        object rbDefAppNo: TRadioButton
          Left = 12
          Top = 81
          Width = 210
          Height = 17
          HelpContext = 2022
          Caption = 'Show "Open With'#8230'" dialog'
          TabOrder = 0
          OnClick = rbDefAppNoClick
        end
        object rbDefAppOpen: TRadioButton
          Left = 12
          Top = 54
          Width = 75
          Height = 17
          HelpContext = 2023
          Caption = 'Open with:'
          TabOrder = 1
          OnClick = rbDefAppOpenClick
        end
        object btnDefAppAdd: TButton
          Left = 290
          Top = 51
          Width = 68
          Height = 23
          HelpContext = 2024
          Caption = 'Change...'
          TabOrder = 3
          OnClick = btnDefAppAddClick
        end
        object edtDefApp: TEdit
          Left = 94
          Top = 52
          Width = 189
          Height = 21
          TabOrder = 2
          OnChange = edtDefAppChange
          OnEnter = edtDefAppEnter
          OnExit = edtDefAppExit
        end
        object chkUseInternetOpenWith: TCheckBox
          Left = 30
          Top = 103
          Width = 311
          Height = 17
          HelpContext = 2025
          Caption = 'Offer Web service search for unknown file types'
          Checked = True
          State = cbChecked
          TabOrder = 4
          OnClick = chkUseInternetOpenWithClick
        end
      end
    end
    object tsGeneral: TTabSheet
      Caption = 'Advanced'
      ImageIndex = 3
      OnShow = tsGeneralShow
      object btnExtendedDefault: TButton
        Left = 12
        Top = 343
        Width = 97
        Height = 24
        HelpContext = 7
        Caption = 'Restore Defaults'
        TabOrder = 2
        OnClick = btnExtendedDefaultClick
      end
      object gbPicAndFaxDisplay: TGroupBox
        Left = 12
        Top = 103
        Width = 372
        Height = 82
        Caption = 'Windows Picture and Fax Viewer '
        TabOrder = 1
        object imgPictureFaxViewer: TImage
          Left = 12
          Top = 17
          Width = 32
          Height = 32
          AutoSize = True
        end
        object Label23: TLabel
          Left = 51
          Top = 17
          Width = 310
          Height = 28
          AutoSize = False
          Caption =
            'Specify whether all image files should be opened by default with' +
            ' the Windows Picture and Fax viewer.'
          WordWrap = True
        end
        object chkPicAndFaxDisplay: TCheckBox
          Left = 51
          Top = 51
          Width = 280
          Height = 17
          HelpContext = 2027
          Caption = 'Open images with Windows Picture and Fax Viewer'
          TabOrder = 0
          OnClick = chkPicAndFaxDisplayClick
        end
      end
      object GroupBox34: TGroupBox
        Left = 12
        Top = 10
        Width = 372
        Height = 81
        Caption = 'New shortcut prefix'
        TabOrder = 0
        object Image42: TImage
          Left = 12
          Top = 17
          Width = 32
          Height = 32
          Picture.Data = {<image001.ico>}
        end
        object Label14: TLabel
          Left = 51
          Top = 17
          Width = 315
          Height = 33
          AutoSize = False
          Caption =
            'Select whether new shortcut names should be preceded by the word' +
            's "Shortcut to".'
          Transparent = True
          WordWrap = True
        end
        object chkPrefixOnNewShortcuts: TCheckBox
          Left = 51
          Top = 52
          Width = 283
          Height = 16
          HelpContext = 2026
          Caption = 'Prefix "Shortcut to" on new shortcuts'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = chkPrefixOnNewShortcutsClick
        end
      end
    end
  end
  object mnuShellNew: TPopupMenu
    Left = 43
    Top = 412
    object mnShellNewActivate: TMenuItem
      Action = actShellNewActivate
    end
    object mnShellNewRemove: TMenuItem
      Action = actShellNewRemove
    end
  end
  object ActionList1: TActionList
    Left = 12
    Top = 412
    object actShellNewAdd: TAction
      Caption = '&Add...'
      OnExecute = actShellNewAddExecute
    end
    object actShellNewRemove: TAction
      Caption = '&Remove'
      OnExecute = actShellNewRemoveExecute
      OnUpdate = actShellNewRemoveUpdate
    end
    object actShellNewActivate: TAction
      Caption = 'actShellNewActivate'
      OnExecute = actShellNewActivateExecute
      OnUpdate = actShellNewActivateUpdate
    end
  end
  object odShellNew: TOpenDialog
    Filter = 'All files (*)|*'
    Title = 'Select a file of the desired type'
    Left = 73
    Top = 412
  end
  object odOpenAs: TOpenDialog
    Filter =
      'Executable files (*.exe; *.com; *.bat)|*.exe;*.com;*.bat|All fil' +
      'es (*)|*'
    Title = 'Select a file of the desired type'
    Left = 104
    Top = 412
  end
end