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 = {} 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