PC World Komputer 1998 January/Pcwk0198.iso/Wtestowe/CALYPSO/_SETUP.1/Calypso.exe/0/RCDATA/TOPTIONSFORM/TOPTIONSFORM.txt

Text File | 1997-07-17 | 43KB | 1,678 lines

object OptionsForm: TOptionsForm
  Left = 265
  Top = 130
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Options ...'
  ClientHeight = 356
  ClientWidth = 457
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object pnButtons: TPanel
    Left = 0
    Top = 316
    Width = 457
    Height = 40
    Align = alBottom
    TabOrder = 0
    object btnOK: TButton
      Left = 91
      Top = 8
      Width = 75
      Height = 25
      Caption = '&OK'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = btnCancelClick
    end
    object btnHelp: TButton
      Left = 292
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Help'
      TabOrder = 2
      OnClick = btnHelpClick
    end
  end
  object OptionsPageControl: TExtPageControl
    Left = 0
    Top = 0
    Width = 457
    Height = 316
    ActivePage = tsGeneral
    Align = alClient
    MultiLine = True
    PopupMenu = PopupMenu1
    TabHeight = 20
    TabOrder = 1
    OnChange = OptionsPageControlChange
    TabActiveColor = clBtnFace
    TabActiveFont.Color = clBlack
    TabActiveFont.Height = -13
    TabActiveFont.Name = 'Arial'
    TabActiveFont.Style = [fsBold]
    TabInactiveColor = 10789024
    TabInactiveFont.Color = clBlack
    TabInactiveFont.Height = -12
    TabInactiveFont.Name = 'Arial'
    TabInactiveFont.Style = []
    object tsGeneral: TTabSheet
      Caption = 'General'
      object cbShowCmdPanel: TCheckBox
        Left = 5
        Top = 2
        Width = 220
        Height = 17
        Caption = 'Always show Command l&ine'
        TabOrder = 0
      end
      object cbShowTips: TCheckBox
        Left = 5
        Top = 45
        Width = 220
        Height = 17
        Caption = 'Show &Tips at startup'
        TabOrder = 2
      end
      object cbShellExt: TCheckBox
        Left = 5
        Top = 88
        Width = 220
        Height = 17
        Caption = '&Directory shell extension'
        TabOrder = 4
        OnClick = cbShellExtClick
      end
      object cbOneInst: TCheckBox
        Left = 5
        Top = 110
        Width = 220
        Height = 17
        Caption = 'Allow one instance of &Program only'
        TabOrder = 5
      end
      object cbWinMakeDir: TCheckBox
        Left = 5
        Top = 131
        Width = 220
        Height = 17
        Caption = '&Explorer-style directory creation'
        TabOrder = 6
      end
      object cbWinRenameDir: TCheckBox
        Left = 5
        Top = 153
        Width = 220
        Height = 17
        Caption = 'Explorer-style directory &Renaming'
        TabOrder = 7
      end
      object cbLogCDFromArchive: TCheckBox
        Left = 5
        Top = 174
        Width = 220
        Height = 17
        Caption = '&Log CD-ROM disks from archives?'
        TabOrder = 8
      end
      object cbShowMemStat: TCheckBox
        Left = 5
        Top = 23
        Width = 220
        Height = 17
        Caption = 'Show &Memory status'
        TabOrder = 1
      end
      object cbQuickView: TCheckBox
        Left = 229
        Top = 23
        Width = 220
        Height = 17
        Caption = '&Quick file view/play'
        TabOrder = 12
        OnClick = cbQuickViewClick
      end
      object cbAutoPlay: TCheckBox
        Left = 229
        Top = 45
        Width = 220
        Height = 17
        Caption = 'Auto-pla&y multimedia files'
        TabOrder = 13
      end
      object cbShowContextMenus: TCheckBox
        Left = 5
        Top = 195
        Width = 220
        Height = 17
        Caption = 'Right mo&use click context menu'
        TabOrder = 9
      end
      object cbDMCExecuteFile: TCheckBox
        Left = 5
        Top = 217
        Width = 220
        Height = 17
        Caption = 'Double mouse click e&xecute file'
        TabOrder = 10
      end
      object cbRefreshOnActivate: TCheckBox
        Left = 229
        Top = 2
        Width = 220
        Height = 17
        Caption = 'Reread current dir on app s&witch'
        TabOrder = 11
      end
      object cbShowQuotes: TCheckBox
        Left = 5
        Top = 66
        Width = 220
        Height = 17
        Caption = 'Show &Quotes at startup'
        TabOrder = 3
      end
    end
    object tsView: TTabSheet
      Caption = 'View'
      object rgFileDisplay: TRadioGroup
        Left = 5
        Top = 5
        Width = 166
        Height = 136
        Caption = ' File display options '
        ItemIndex = 0
        Items.Strings = (
          'small icons ...'
          'large icons ...'
          'no icons at all ...'
          'three-columns ...'
          'five-columns ...')
        TabOrder = 0
      end
      object cbDisplayFullPath: TCheckBox
        Left = 185
        Top = 10
        Width = 250
        Height = 17
        Caption = '&Display full path'
        TabOrder = 2
      end
      object cbFetchFileDesc: TCheckBox
        Left = 185
        Top = 29
        Width = 250
        Height = 17
        Caption = '&Fetch file descriptions immediately'
        TabOrder = 3
      end
      object cbShowFileDesc: TCheckBox
        Left = 185
        Top = 48
        Width = 250
        Height = 17
        Caption = 'Show file descriptions in file &window'
        TabOrder = 4
        OnClick = cbShowFileDescClick
      end
      object grpFileIconSize: TGroupBox
        Left = 5
        Top = 144
        Width = 166
        Height = 78
        Caption = ' File icon size '
        TabOrder = 1
        object SmallICOLabel: TLabel
          Left = 7
          Top = 20
          Width = 98
          Height = 15
          AutoSize = False
          Caption = 'Small icon size:'
        end
        object LargeICOLabel: TLabel
          Left = 7
          Top = 53
          Width = 98
          Height = 15
          AutoSize = False
          Caption = 'Large icon size:'
        end
        object seSmallIconSize: TSpinEdit
          Left = 107
          Top = 17
          Width = 49
          Height = 24
          MaxValue = 32
          MinValue = 8
          TabOrder = 0
          Value = 16
        end
        object seLargeIconSize: TSpinEdit
          Left = 107
          Top = 48
          Width = 49
          Height = 24
          MaxValue = 64
          MinValue = 32
          TabOrder = 1
          Value = 32
        end
      end
      object cbShortNames: TCheckBox
        Left = 185
        Top = 66
        Width = 250
        Height = 17
        Caption = 'Show short file &Names only'
        TabOrder = 5
      end
      object cbShowFolderIcons: TCheckBox
        Left = 185
        Top = 85
        Width = 250
        Height = 17
        Caption = 'Show directory &Icons'
        TabOrder = 6
      end
    end
    object tsSort: TTabSheet
      Caption = 'Sort'
      object rgFileSort: TRadioGroup
        Left = 5
        Top = 5
        Width = 149
        Height = 151
        Caption = ' File sort options '
        ItemIndex = 0
        Items.Strings = (
          'by &name ...'
          'by &extension ...'
          'by &size ...'
          'by &date ...'
          'by &attributes ...'
          'by descrip&tion ...')
        TabOrder = 0
      end
      object cbReverseSort: TCheckBox
        Left = 5
        Top = 161
        Width = 156
        Height = 17
        Caption = '&Reversed sort order'
        TabOrder = 1
      end
    end
    object tsDisks: TTabSheet
      Caption = 'Disks'
      object Label1: TLabel
        Left = 163
        Top = 6
        Width = 130
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Caption = 'Log disk &Precision'
        FocusControl = trLogDrivePrecision
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 9
        Top = 95
        Width = 120
        Height = 15
        AutoSize = False
        Caption = '&Log disks at startup:'
        FocusControl = lbLogDrives
      end
      object pnTrackBar: TPanel
        Left = 7
        Top = 30
        Width = 435
        Height = 55
        BevelInner = bvLowered
        BevelOuter = bvLowered
        TabOrder = 0
        object Label2: TLabel
          Left = 18
          Top = 5
          Width = 38
          Height = 15
          AutoSize = False
          Caption = 'None'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 197
          Top = 5
          Width = 52
          Height = 15
          AutoSize = False
          Caption = 'Medium'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 391
          Top = 5
          Width = 37
          Height = 15
          AutoSize = False
          Caption = 'Exact'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object trLogDrivePrecision: TTrackBar
          Left = 23
          Top = 22
          Width = 390
          Height = 21
          Orientation = trHorizontal
          PageSize = 1
          Frequency = 1
          Position = 0
          SelEnd = 0
          SelStart = 0
          TabOrder = 0
          TickMarks = tmTopLeft
          TickStyle = tsAuto
        end
      end
      object btnSelectAll: TButton
        Left = 357
        Top = 145
        Width = 85
        Height = 23
        Caption = 'Select &All'
        TabOrder = 2
        OnClick = btnSelectAllClick
      end
      object btnDeselectAll: TButton
        Left = 357
        Top = 175
        Width = 85
        Height = 23
        Caption = 'De&select All'
        TabOrder = 3
        OnClick = btnDeselectAllClick
      end
      object lbLogDrives: TCheckListBox
        Left = 7
        Top = 112
        Width = 338
        Height = 123
        CheckCtl3D = False
        Items.Strings = (
          'C'
          'D'
          'E')
        Items.State = (
          'csUnchecked'
          'csUnchecked'
          'csUnchecked')
        Items.Enabled = (
          True
          True
          True)
        Items.Tag = (
          0
          0
          0)
        SelectDisabled = False
        TabOrder = 1
      end
    end
    object tsExtensions: TTabSheet
      Caption = 'Extensions'
      object Label9: TLabel
        Left = 8
        Top = 3
        Width = 199
        Height = 15
        AutoSize = False
        Caption = '&User defined file specification(s):'
        FocusControl = lbUserFileSpecs
      end
      object Bevel1: TBevel
        Left = 6
        Top = 156
        Width = 437
        Height = 7
        Shape = bsTopLine
      end
      object Label10: TLabel
        Left = 6
        Top = 164
        Width = 121
        Height = 15
        AutoSize = False
        Caption = '&File specification(s):'
        FocusControl = edFileSpec
      end
      object Label11: TLabel
        Left = 141
        Top = 164
        Width = 80
        Height = 15
        AutoSize = False
        Caption = 'D&escription:'
        FocusControl = edFileSpecDesc
      end
      object lbUserFileSpecs: TListBox
        Left = 6
        Top = 21
        Width = 437
        Height = 124
        IntegralHeight = True
        ItemHeight = 15
        MultiSelect = True
        Sorted = True
        TabOrder = 0
        OnClick = lbUserFileSpecsClick
      end
      object edFileSpec: TEdit
        Left = 6
        Top = 181
        Width = 127
        Height = 23
        TabOrder = 1
        OnChange = CheckAddButton
      end
      object btnAdd: TButton
        Left = 99
        Top = 215
        Width = 75
        Height = 25
        Caption = '&Add'
        Enabled = False
        TabOrder = 3
        OnClick = btnAddClick
      end
      object btnDelete: TButton
        Left = 274
        Top = 215
        Width = 75
        Height = 25
        Caption = '&Delete'
        Enabled = False
        TabOrder = 5
        OnClick = btnDeleteClick
      end
      object edFileSpecDesc: TEdit
        Left = 140
        Top = 181
        Width = 304
        Height = 23
        TabOrder = 2
        OnChange = CheckAddButton
        OnKeyPress = edFileSpecDescKeyPress
      end
      object btnModify: TButton
        Left = 187
        Top = 215
        Width = 75
        Height = 25
        Caption = '&Modify'
        Enabled = False
        TabOrder = 4
        OnClick = btnModifyClick
      end
    end
    object tsDelete: TTabSheet
      Caption = 'Delete'
      object imgRecycleBin: TImage
        Left = 328
        Top = 54
        Width = 32
        Height = 32
        Picture.Data = {<image000.ico>}
        OnDblClick = imgRecycleBinDblClick
        OnMouseDown = imgRecycleBinMouseDown
      end
      object rgFileDeletion: TRadioGroup
        Left = 5
        Top = 5
        Width = 234
        Height = 148
        Caption = ' File Deletion Modes '
        ItemIndex = 0
        Items.Strings = (
          '&Recycle bin (Safe deletion)'
          '&Trash Can (Normal deletion)'
          '&Shredder (Destroy deletion)'
          '&Incinerator (Fast-wipe deletion)'
          '&DoD (Government secure deletion)')
        TabOrder = 0
      end
      object btnEmpty: TButton
        Left = 270
        Top = 110
        Width = 150
        Height = 25
        Caption = '&Empty recycle bin'
        TabOrder = 1
        OnClick = btnEmptyClick
      end
    end
    object tsTools: TTabSheet
      Caption = 'Tools'
      OnEnter = tsToolsEnter
      object lbCommandLine: TLabel
        Left = 6
        Top = 104
        Width = 94
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Command &Line:'
        FocusControl = edToolCmdLine
      end
      object sbPickFile: TSpeedButton
        Left = 425
        Top = 102
        Width = 21
        Height = 21
        Caption = '�'
        OnClick = sbPickFileClick
      end
      object Label5: TLabel
        Left = 47
        Top = 131
        Width = 53
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Icon &File:'
        FocusControl = edToolIconFile
      end
      object sbPickIconFile: TSpeedButton
        Left = 425
        Top = 129
        Width = 21
        Height = 21
        Caption = '�'
        OnClick = sbPickIconFileClick
      end
      object Label6: TLabel
        Left = 40
        Top = 185
        Width = 31
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Icon:'
        FocusControl = icbTools
      end
      object Label7: TLabel
        Left = 66
        Top = 158
        Width = 34
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Hint:'
        FocusControl = edToolHint
      end
      object btnAddTool: TButton
        Left = 107
        Top = 221
        Width = 77
        Height = 25
        Caption = '&Add'
        Enabled = False
        TabOrder = 6
        OnClick = btnAddToolClick
      end
      object btnModTool: TButton
        Left = 192
        Top = 221
        Width = 77
        Height = 25
        Caption = '&Modify'
        Enabled = False
        TabOrder = 7
        OnClick = btnModToolClick
      end
      object btnDelTool: TButton
        Left = 280
        Top = 221
        Width = 77
        Height = 25
        Caption = '&Delete'
        Enabled = False
        TabOrder = 8
        OnClick = btnDelToolClick
      end
      object edToolCmdLine: TEdit
        Left = 106
        Top = 102
        Width = 313
        Height = 23
        TabOrder = 1
        OnChange = edToolCmdLineChange
        OnKeyDown = edToolCmdLineKeyDown
      end
      object cbShowToolTips: TCheckBox
        Left = 362
        Top = 225
        Width = 85
        Height = 17
        Caption = '&Show hints'
        TabOrder = 9
      end
      object pnTools: TPanel
        Left = 2
        Top = 2
        Width = 445
        Height = 91
        BevelInner = bvLowered
        TabOrder = 0
        object hcTools: THeaderControl
          Left = 2
          Top = 2
          Width = 441
          Height = 17
          Sections = <
            item
              AllowClick = False
              Text = 'Command line'
              Width = 250
            end
            item
              AllowClick = False
              Text = 'Hint'
              Width = 1000
            end>
          OnSectionResize = hcToolsSectionResize
        end
        object lbTools: TListBox
          Left = 2
          Top = 19
          Width = 441
          Height = 68
          Align = alClient
          IntegralHeight = True
          ItemHeight = 16
          Style = lbOwnerDrawFixed
          TabOrder = 1
          OnClick = lbToolsClick
          OnDragDrop = lbToolsDragDrop
          OnDragOver = lbToolsDragOver
          OnDrawItem = lbToolsDrawItem
          OnMouseMove = lbToolsMouseMove
        end
      end
      object edToolIconFile: TEdit
        Left = 106
        Top = 128
        Width = 313
        Height = 23
        TabOrder = 2
        OnChange = edToolIconFileChange
        OnKeyDown = edToolIconFileKeyDown
      end
      object icbTools: TIconComboBox
        Left = 44
        Top = 202
        Width = 58
        Height = 44
        Enabled = False
        ItemIndex = -1
        ParentFont = False
        TabOrder = 4
      end
      object edToolHint: TEdit
        Left = 106
        Top = 154
        Width = 313
        Height = 23
        TabOrder = 3
      end
      object rgRunType: TRadioGroup
        Left = 107
        Top = 178
        Width = 313
        Height = 37
        Caption = ' &Run '
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          '&Normal'
          'Minimi&zed'
          'Ma&ximized')
        TabOrder = 5
      end
    end
    object tsWatchDog: TTabSheet
      Caption = 'WatchDog'
      object Label18: TLabel
        Left = 8
        Top = 6
        Width = 302
        Height = 15
        AutoSize = False
        Caption = '&Log to WatchDog file following file operations:'
        FocusControl = lbWatchDog
      end
      object Label19: TLabel
        Left = 350
        Top = 194
        Width = 23
        Height = 15
        AutoSize = False
        Caption = 'Kb'
      end
      object Label20: TLabel
        Left = 6
        Top = 219
        Width = 156
        Height = 15
        AutoSize = False
        Caption = ' WatchDog file destination:'
      end
      object flWDFilePath: TFileLabel
        Left = 156
        Top = 219
        Width = 202
        Height = 16
        Direction = drFromLeft
        Separator = '\'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object btnWDSelectAll: TButton
        Left = 331
        Top = 30
        Width = 110
        Height = 23
        Caption = 'Select &All'
        TabOrder = 4
        OnClick = btnWDSelectAllClick
      end
      object btnWDDeSelectAll: TButton
        Left = 331
        Top = 65
        Width = 110
        Height = 23
        Caption = 'De&select All'
        TabOrder = 5
        OnClick = btnWDDeSelectAllClick
      end
      object cbWDAutoDelete: TCheckBox
        Left = 6
        Top = 193
        Width = 287
        Height = 17
        Caption = ' A&uto-delete WatchDog file when exceeds size of '
        Ctl3D = True
        ParentCtl3D = False
        State = cbChecked
        TabOrder = 2
        OnClick = cbWDAutoDeleteClick
      end
      object seWDFSize: TSpinEdit
        Left = 295
        Top = 190
        Width = 50
        Height = 24
        Increment = 100
        MaxLength = 4
        MaxValue = 9999
        MinValue = 100
        TabOrder = 3
        Value = 100
        OnChange = seWDFSizeChange
        OnExit = seWDFSizeExit
      end
      object btnWDDestBrowse: TButton
        Left = 366
        Top = 215
        Width = 75
        Height = 25
        Caption = '&Browse ...'
        TabOrder = 8
        OnClick = btnWDDestBrowseClick
      end
      object btnWDViewFile: TButton
        Left = 331
        Top = 99
        Width = 110
        Height = 23
        Caption = '&View WD file'
        Enabled = False
        TabOrder = 6
        OnClick = btnWDViewFileClick
      end
      object cbWDEnabled: TCheckBox
        Left = 6
        Top = 173
        Width = 155
        Height = 17
        Caption = ' WatchDog &enabled'
        TabOrder = 1
        OnClick = cbWDEnabledClick
      end
      object btnWDRemoveFile: TButton
        Left = 331
        Top = 132
        Width = 110
        Height = 23
        Caption = '&Remove WD file'
        Enabled = False
        TabOrder = 7
        OnClick = btnWDRemoveFileClick
      end
      object lbWatchDog: TCheckListBox
        Left = 6
        Top = 22
        Width = 313
        Height = 140
        CheckCtl3D = False
        Items.Strings = (
          'Delete file(s)'
          'Move file(s)'
          'Copy files(s)'
          'Rename file(s)'
          'Change file(s) attributes'
          'Change file(s) date/time'
          'Edit file'
          'Print file'
          'View file'
          'Delete directory'
          'New directory'
          'Rename directory'
          'Prune directory'
          'Search files for text')
        Items.State = (
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked'
          'csUnchecked')
        Items.Enabled = (
          True
          True
          True
          True
          True
          True
          True
          True
          True
          True
          True
          True
          True
          True)
        Items.Tag = (
          0
          0
          0
          0
          0
          0
          0
          0
          0
          0
          0
          0
          0
          0)
        SelectDisabled = False
        TabOrder = 0
        OnStateChanged = lbWatchDogStateChanged
      end
    end
    object tsConfirmation: TTabSheet
      Caption = 'Confirmation'
      object rgConfirmations: TGroupBox
        Left = 5
        Top = 2
        Width = 326
        Height = 238
        Caption = ' Get confirmation before '
        TabOrder = 0
        object cbSkipReleaseDrv: TCheckBox
          Left = 9
          Top = 21
          Width = 310
          Height = 17
          Caption = '&Releasing a disk'
          TabOrder = 0
        end
        object cbSkipEjectCDROM: TCheckBox
          Left = 9
          Top = 43
          Width = 310
          Height = 17
          Caption = '&Ejecting CD-ROM'
          TabOrder = 1
        end
        object cbSkipQuit: TCheckBox
          Left = 9
          Top = 66
          Width = 310
          Height = 17
          Caption = 'Program e&xit'
          TabOrder = 2
        end
        object cbSkipRemoveRoot: TCheckBox
          Left = 9
          Top = 88
          Width = 310
          Height = 17
          Caption = 'Removing &virtual root'
          TabOrder = 3
        end
        object cbSkipArchive: TCheckBox
          Left = 9
          Top = 110
          Width = 310
          Height = 17
          Caption = '&Archiving a CD-ROM'
          TabOrder = 4
        end
        object cbSkipRestore: TCheckBox
          Left = 9
          Top = 132
          Width = 310
          Height = 17
          Caption = '&Logging from archive'
          TabOrder = 5
        end
        object cbSkipDisconnectNet: TCheckBox
          Left = 9
          Top = 154
          Width = 310
          Height = 17
          Caption = '&Disconnecting from network'
          TabOrder = 6
        end
        object cbSkipPrune: TCheckBox
          Left = 9
          Top = 175
          Width = 310
          Height = 17
          Caption = '&Pruning a directory branch'
          TabOrder = 7
        end
        object cbSkipDeleteSpecialAttr: TCheckBox
          Left = 9
          Top = 195
          Width = 310
          Height = 17
          Caption = 'Dele&ting a file with special attributes'
          TabOrder = 8
        end
        object cbSkipProtected: TCheckBox
          Left = 9
          Top = 215
          Width = 310
          Height = 17
          Caption = 'Deleting / renaming protected file or director&y'
          TabOrder = 9
        end
      end
    end
    object tsShortCuts: TTabSheet
      Caption = 'ShortCuts'
      object Label21: TLabel
        Left = 4
        Top = 225
        Width = 28
        Height = 15
        AutoSize = False
        Caption = 'Key:'
        FocusControl = hkShortCut
      end
      object lbHint: TLabel
        Left = 5
        Top = 204
        Width = 27
        Height = 15
        Caption = 'Hint'
      end
      object btnModifyShortCut: TButton
        Left = 200
        Top = 220
        Width = 57
        Height = 25
        Caption = 'Modify'
        TabOrder = 2
        OnClick = btnModifyShortCutClick
      end
      object btnDefaultShortCut: TButton
        Left = 262
        Top = 220
        Width = 57
        Height = 25
        Caption = 'Default'
        TabOrder = 3
        OnClick = btnDefaultShortCutClick
      end
      object btnLoadShortcuts: TButton
        Left = 325
        Top = 220
        Width = 57
        Height = 25
        Caption = 'Load'
        TabOrder = 4
        OnClick = btnLoadShortcutsClick
      end
      object hkShortCut: THotKey
        Left = 32
        Top = 223
        Width = 164
        Height = 19
        HotKey = 0
        InvalidKeys = [hcNone, hcShift]
        Modifiers = []
        TabOrder = 1
      end
      object pnShortCuts: TPanel
        Left = 5
        Top = 5
        Width = 439
        Height = 196
        TabOrder = 0
        object tvShortCuts: THETreeView
          Left = 1
          Top = 1
          Width = 437
          Height = 194
          ReadOnly = True
          HideSelection = False
          Indent = 19
          OnExpanding = tvShortCutsExpanding
          OnExpanded = tvShortCutsExpanded
          OnCollapsed = tvShortCutsCollapsed
          OnChange = tvShortCutsChange
          Align = alClient
          ParentColor = False
          TabOrder = 0
        end
      end
      object btnSaveShortcuts: TButton
        Left = 387
        Top = 220
        Width = 57
        Height = 25
        Caption = 'Save'
        TabOrder = 5
        OnClick = btnSaveShortcutsClick
      end
    end
    object tsViewEdit: TTabSheet
      Caption = 'Viewer/Editor'
      object Label12: TLabel
        Left = 6
        Top = 4
        Width = 104
        Height = 15
        AutoSize = False
        Caption = 'Associated editor:'
      end
      object lbEditorDesc: TLabel
        Left = 115
        Top = 4
        Width = 71
        Height = 15
        Caption = 'lbEditorDesc'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object imgEditorIcon: TImage
        Left = 6
        Top = 21
        Width = 32
        Height = 32
      end
      object Label13: TLabel
        Left = 44
        Top = 29
        Width = 55
        Height = 15
        AutoSize = False
        Caption = 'Location:'
      end
      object lbAssocEditorFile: TFileLabel
        Left = 101
        Top = 29
        Width = 263
        Height = 17
        Direction = drFromLeft
        Separator = '\'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Bevel3: TBevel
        Left = 7
        Top = 78
        Width = 435
        Height = 9
        Shape = bsTopLine
      end
      object lbViewerDesc: TLabel
        Left = 115
        Top = 83
        Width = 76
        Height = 15
        Caption = 'lbViewerDesc'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 6
        Top = 83
        Width = 108
        Height = 15
        AutoSize = False
        Caption = 'Associated viewer:'
      end
      object imgViewerIcon: TImage
        Left = 6
        Top = 101
        Width = 32
        Height = 32
      end
      object Label15: TLabel
        Left = 44
        Top = 109
        Width = 55
        Height = 15
        AutoSize = False
        Caption = 'Location:'
      end
      object lbAssocViewerFile: TFileLabel
        Left = 101
        Top = 109
        Width = 262
        Height = 17
        Direction = drFromLeft
        Separator = '\'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object cbUseDefEditor: TCheckBox
        Left = 7
        Top = 57
        Width = 133
        Height = 17
        Caption = 'Use built-in &Editor'
        TabOrder = 0
      end
      object btnBrowseEditor: TButton
        Left = 369
        Top = 26
        Width = 75
        Height = 25
        Caption = 'Browse ...'
        TabOrder = 1
        OnClick = btnBrowseEditorClick
      end
      object cbUseDefViewer: TCheckBox
        Left = 6
        Top = 139
        Width = 138
        Height = 17
        Caption = 'Use built-in &Viewer'
        TabOrder = 2
      end
      object btnBrowseViewer: TButton
        Left = 369
        Top = 105
        Width = 75
        Height = 25
        Caption = 'Browse ...'
        TabOrder = 4
        OnClick = btnBrowseViewerClick
      end
      object cbViewAutoHex: TCheckBox
        Left = 6
        Top = 159
        Width = 138
        Height = 17
        Caption = '&Auto hex display'
        TabOrder = 3
      end
    end
    object tsCompat: TTabSheet
      Caption = 'Compatibility'
      object rgCompatibility: TRadioGroup
        Left = 5
        Top = 5
        Width = 268
        Height = 123
        Caption = ' Compatibility mode '
        ItemIndex = 2
        Items.Strings = (
          '&Minimum (Windows NT 3.5x, Win32s)'
          'M&edium (Windows 95 OSR/2, Win NT 4.0)'
          '&Full (100% Windows 95 compatible)')
        TabOrder = 0
      end
    end
    object tsDirButtons: TTabSheet
      Caption = 'Directory buttons'
      object Label8: TLabel
        Left = 6
        Top = 2
        Width = 134
        Height = 15
        AutoSize = False
        Caption = '&Selected commands:'
        FocusControl = lbDirButtons
      end
      object lbDirCmdHint: TLabel
        Left = 6
        Top = 230
        Width = 331
        Height = 14
        AutoSize = False
      end
      object Label17: TLabel
        Left = 225
        Top = 2
        Width = 152
        Height = 15
        AutoSize = False
        Caption = 'A&vailable commands:'
        FocusControl = tvDirButtons
      end
      object sbDirLeft: TExplorerButton
        Left = 189
        Top = 70
        Width = 30
        Height = 46
        Bitmap.Data = {
          A6000000424DA6000000000000007600000028000000050000000C0000000100
          0400000000003000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330003333
          000033300000330C000030CC00000CCC00000CCC000030CC0000330C00003330
          00003333000033333000}
        Caption = '&Add'
        Options = [boPopupMark, boShowBevel]
        OnClick = sbDirLeftClick
        IBitmap = {
          424DF6000000000000003600000028000000050000000C000000010018000000
          0000C000000000000000000000000000000000000000007F7F007F7F007F7F00
          7F7F00FE7F00007F7F007F7F007F7F007F7F00000080007F7F007F7F007F7F00
          0000000000C0007F7F007F7F000000FFFFFF010000FF007F7F000000FFFFFFFF
          FFFF010000FF000000FFFFFFFFFFFFFFFFFF01000033000000FFFFFFFFFFFFFF
          FFFF01000083007F7F000000FFFFFFFFFFFF01000000007F7F007F7F000000FF
          FFFF01000033007F7F007F7F007F7F000000000000F8007F7F007F7F007F7F00
          7F7F00000000007F7F007F7F007F7F007F7F00FE7FB7}
      end
      object sbDirRight: TExplorerButton
        Left = 189
        Top = 126
        Width = 30
        Height = 46
        Bitmap.Data = {
          A6000000424DA6000000000000007600000028000000050000000C0000000100
          0400000000003000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000333
          3000003330000C0330000CC030000CCC00000CCC00000CC030000C0330000033
          30000333300033333000}
        Caption = '&Del'
        Options = [boPopupMark, boShowBevel]
        OnClick = sbDirRightClick
        IBitmap = {
          424DF6000000000000003600000028000000050000000C000000010018000000
          0000C000000000000000000000000000000000000000007F7F007F7F007F7F00
          7F7F00FE7F00000000007F7F007F7F007F7F00FE7F80000000000000007F7F00
          7F7F00FE7FC0000000FFFFFF000000007F7F00FE7FFF000000FFFFFFFFFFFF00
          000000FE7FFF000000FFFFFFFFFFFFFFFFFF01000033000000FFFFFFFFFFFFFF
          FFFF01000083000000FFFFFFFFFFFF00000000FE7F00000000FFFFFF00000000
          7F7F00FE7F33000000000000007F7F007F7F00FE7FF8000000007F7F007F7F00
          7F7F00FE7F00007F7F007F7F007F7F007F7F00FE7FB7}
      end
      object lbDirButtons: TListBox
        Left = 5
        Top = 18
        Width = 177
        Height = 209
        ItemHeight = 17
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnClick = lbDirButtonsClick
        OnDragDrop = lbDirButtonsDragDrop
        OnDragOver = lbDirButtonsDragOver
        OnDrawItem = lbDirButtonsDrawItem
        OnKeyDown = lbDirButtonsKeyDown
        OnMouseMove = lbDirButtonsMouseMove
      end
      object tvDirButtons: THETreeView
        Left = 223
        Top = 16
        Width = 222
        Height = 213
        ReadOnly = True
        HideSelection = False
        Indent = 19
        OnExpanding = tvDirButtonsExpanding
        OnCollapsed = tvDirButtonsCollapsed
        OnChange = tvDirButtonsChange
        ParentColor = False
        TabOrder = 1
        OnMouseMove = tvDirButtonsMouseMove
        OnKeyDown = tvDirButtonsKeyDown
      end
      object cbShowDirButtons: TCheckBox
        Left = 342
        Top = 230
        Width = 103
        Height = 17
        Caption = 'Show &buttons'
        TabOrder = 2
      end
    end
    object tsFileButtons: TTabSheet
      Caption = 'File buttons'
      object Label22: TLabel
        Left = 5
        Top = 2
        Width = 136
        Height = 15
        AutoSize = False
        Caption = '&Selected commands:'
        FocusControl = lbFileButtons
      end
      object Label23: TLabel
        Left = 225
        Top = 2
        Width = 137
        Height = 15
        AutoSize = False
        Caption = 'A&vailable commands:'
        FocusControl = tvFileButtons
      end
      object lbFileCmdHint: TLabel
        Left = 6
        Top = 230
        Width = 334
        Height = 14
        AutoSize = False
      end
      object sbFileLeft: TExplorerButton
        Left = 189
        Top = 70
        Width = 30
        Height = 46
        Bitmap.Data = {
          A6000000424DA6000000000000007600000028000000050000000C0000000100
          0400000000003000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330003333
          000033300000330C000030CC00000CCC00000CCC000030CC0000330C00003330
          00003333000033333000}
        Caption = '&Add'
        Options = [boPopupMark, boShowBevel]
        OnClick = sbFileLeftClick
        IBitmap = {
          424DF6000000000000003600000028000000050000000C000000010018000000
          0000C000000000000000000000000000000000000000007F7F007F7F007F7F00
          7F7F00FE7F00007F7F007F7F007F7F007F7F00000000007F7F007F7F007F7F00
          000000000000007F7F007F7F000000FFFFFF01000000007F7F000000FFFFFFFF
          FFFF01000000000000FFFFFFFFFFFFFFFFFF01000000000000FFFFFFFFFFFFFF
          FFFF01000000007F7F000000FFFFFFFFFFFF01000000007F7F007F7F000000FF
          FFFF01000000007F7F007F7F007F7F00000000000000007F7F007F7F007F7F00
          7F7F00000000007F7F007F7F007F7F007F7F00FE7F00}
      end
      object sbFileRight: TExplorerButton
        Left = 189
        Top = 126
        Width = 30
        Height = 46
        Bitmap.Data = {
          A6000000424DA6000000000000007600000028000000050000000C0000000100
          0400000000003000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000333
          3000003330000C0330000CC030000CCC00000CCC00000CC030000C0330000033
          30000333300033333000}
        Caption = '&Del'
        Options = [boPopupMark, boShowBevel]
        OnClick = sbFileRightClick
        IBitmap = {
          424DF6000000000000003600000028000000050000000C000000010018000000
          0000C000000000000000000000000000000000000000007F7F007F7F007F7F00
          7F7F00FE7F00000000007F7F007F7F007F7F00FE7F00000000000000007F7F00
          7F7F00FE7F00000000FFFFFF000000007F7F00FE7F00000000FFFFFFFFFFFF00
          000000FE7F00000000FFFFFFFFFFFFFFFFFF01000000000000FFFFFFFFFFFFFF
          FFFF01000000000000FFFFFFFFFFFF00000000FE7F00000000FFFFFF00000000
          7F7F00FE7F00000000000000007F7F007F7F00FE7F00000000007F7F007F7F00
          7F7F00FE7F69007F7F007F7F007F7F007F7F00FE7F69}
      end
      object lbFileButtons: TListBox
        Left = 5
        Top = 18
        Width = 177
        Height = 209
        ItemHeight = 17
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnClick = lbFileButtonsClick
        OnDragDrop = lbFileButtonsDragDrop
        OnDragOver = lbFileButtonsDragOver
        OnDrawItem = lbFileButtonsDrawItem
        OnKeyDown = lbFileButtonsKeyDown
        OnMouseMove = lbFileButtonsMouseMove
      end
      object tvFileButtons: THETreeView
        Left = 223
        Top = 16
        Width = 222
        Height = 213
        ReadOnly = True
        HideSelection = False
        Indent = 19
        OnExpanding = tvFileButtonsExpanding
        OnCollapsed = tvFileButtonsCollapsed
        OnChange = tvFileButtonsChange
        ParentColor = False
        TabOrder = 1
        OnMouseMove = tvFileButtonsMouseMove
        OnKeyDown = tvFileButtonsKeyDown
      end
      object cbShowFileButtons: TCheckBox
        Left = 346
        Top = 230
        Width = 101
        Height = 17
        Caption = 'Show &buttons'
        TabOrder = 2
      end
    end
    object tsSounds: TTabSheet
      Caption = 'Sounds'
      object lbAvailSounds: TLabel
        Left = 7
        Top = 8
        Width = 118
        Height = 15
        AutoSize = False
        Caption = 'Available sounds:'
        FocusControl = lbSounds
      end
      object lbChosenSound: TLabel
        Left = 6
        Top = 200
        Width = 92
        Height = 15
        AutoSize = False
        Caption = 'Chosen sound:'
      end
      object lbSound: TLabel
        Left = 99
        Top = 200
        Width = 28
        Height = 15
        Caption = 'none'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object lbSounds: TListBox
        Left = 5
        Top = 24
        Width = 171
        Height = 169
        IntegralHeight = True
        ItemHeight = 15
        Items.Strings = (
          'SystemDefault'
          'SystemAsterisk'
          'SystemExit'
          'SystemHand'
          'SystemQuestion'
          'SystemStart')
        TabOrder = 0
      end
      object cbSoundWhenComplete: TCheckBox
        Left = 5
        Top = 219
        Width = 348
        Height = 17
        Caption = '&Make a sound when an operation completes'
        TabOrder = 3
      end
      object btnChooseSound: TButton
        Left = 185
        Top = 57
        Width = 75
        Height = 26
        Caption = 'Choo&se'
        TabOrder = 2
        OnClick = btnChooseSoundClick
      end
      object btnPlay: TBitBtn
        Left = 185
        Top = 25
        Width = 75
        Height = 26
        Caption = '&Play'
        TabOrder = 1
        OnClick = btnPlayClick
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333300333333330000003333333030833333330000003333
          33030778333833000000333330388FF8338333000000333303B07FF838333300
          000033003BF07FF83333330000003038BFB00FF833333300000033B7FBF080F8
          38888300000033B7BFB070F833333300000033F7FBF00FF83333330000003333
          BFB07FF838333300000033333BF07FF8338333000000333333B887F833383300
          00003333333B0773333333000000333333338083333333000000333333330033
          333333000000333333333333333333000000}
        Spacing = 8
      end
    end
  end
  object BrowseOpenDialog: TOpenDialog
    DefaultExt = 'EXE'
    FileEditStyle = fsEdit
    Filter = 'Programs (*.EXE)|*.EXE|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 41
    Top = 265
  end
  object OptBrowseDirectoryDlg: TBrowseDirectoryDlg
    Options = [bfDirectoriesOnly]
    EnableOKButton = False
    Left = 262
    Top = 266
  end
  object Viewer1: TViewer
    ModalView = True
    AutoHex = False
    Left = 112
    Top = 266
  end
  object dlgSaveShortcuts: TSaveDialog
    DefaultExt = 'KBD'
    FileEditStyle = fsEdit
    Filter =
      'Shortcut templates (*.KBD)|*.KBD|Shortcut reports (*.TXT)|*.TXT|' +
      'All files (*.*)|*.*'
    Options = [ofHideReadOnly]
    Left = 367
    Top = 266
  end
  object PopupMenu1: TPopupMenu
    Left = 172
    Top = 266
    object pmiWhat: TMenuItem
      Caption = '&What is this?'
      ShortCut = 0
      OnClick = pmiWhatClick
    end
  end
end