object MainForm: TMainForm Left = 204 Top = 119 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] AutoScroll = False Caption = 'Sight && Sound Calypso' ClientHeight = 424 ClientWidth = 622 Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] KeyPreview = True Menu = MainMenu Position = poDefault Scaled = False OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object MainPanel: TPanel Left = 0 Top = 0 Width = 377 Height = 405 Align = alClient BevelOuter = bvNone TabOrder = 0 object lbCompanyHttp: TLMDLabel Left = 0 Top = 208 Width = 141 Height = 18 Alignment = agTopCenter Caption = 'http://www.sight-sound.si' FontFx.Style = tdSunken end object lbCompanyPhone: TLMDLabel Left = 79 Top = 222 Width = 219 Height = 18 Alignment = agTopCenter AutoSize = False Caption = 'tel/fax: +386 62 622 044, 621-161' FontFx.Style = tdSunken end object lbCompanyEmail: TLMDLabel Left = 0 Top = 193 Width = 151 Height = 18 Alignment = agTopCenter Caption = 'email: info@sight-sound.si' FontFx.Style = tdSunken end object lbCompanyAddress: TLMDLabel Left = 0 Top = 165 Width = 377 Height = 29 Alignment = agBottomCenter AutoSize = False Caption = 'Kamni�ka g. 11, 2351 KAMNICA, Slovenia' FontFx.Style = tdSunken end object lbPrgCopyright: TLMDLabel Left = 65 Top = 135 Width = 244 Height = 35 Alignment = agBottomCenter Caption = 'Copyright� 1997 Sight & Sound Slovenia.'#13#10'All rights reserved wor' + 'ldwide.' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] FontFx.Style = tdSunken ParentFont = False ShowAccelChar = False end object lbPrgVersion: TLMDLabel Left = 0 Top = 111 Width = 81 Height = 21 Alignment = agTopCenter Caption = 'lbPrgVersion' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] FontFx.ShadowDepth = 3 FontFx.Style = tdRaisedShadow ParentFont = False end object lbPrgType: TLMDLabel Left = 2 Top = 91 Width = 377 Height = 22 Alignment = agTopCenter AutoSize = False Caption = 'Advanced file manager for MS Windows 95 ' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] FontFx.ShadowDepth = 3 FontFx.Style = tdRaisedShadow ParentFont = False end object lbPrgName: TLMDLabelFill Left = 0 Top = 43 Width = 377 Height = 51 FillObject.Style = sfGradient Alignment = agTopCenter AutoSize = False Caption = 'Calypso' Font.Color = clBlack Font.Height = -37 Font.Name = 'Arial' Font.Style = [fsBold] FontFx.ShadowDepth = 5 FontFx.Style = tdShadow ParentFont = False ShowAccelChar = False end object pnMainListBox: TPanel Left = 0 Top = 221 Width = 377 Height = 153 Align = alClient BevelOuter = bvNone TabOrder = 1 object pnFileListBox: TPanel Left = 22 Top = 0 Width = 355 Height = 153 Align = alClient BevelOuter = bvNone TabOrder = 0 OnDragDrop = pnFileListBoxDragDrop OnDragOver = pnFileListBoxDragOver object FileHeader: TEnhHeaderControl Left = 0 Top = 0 Width = 355 Height = 17 Hint = 'To sort files by ... just click appropriate header section!' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Sections = < item MaxWidth = 500 MinWidth = 65 Style = hsOwnerDraw Text = 'Filename' Width = 130 end item Alignment = taCenter MaxWidth = 30 MinWidth = 30 Style = hsOwnerDraw Text = 'Ext' Width = 30 end item Alignment = taRightJustify MaxWidth = 150 MinWidth = 30 Style = hsOwnerDraw Text = 'Size' Width = 70 end item Alignment = taRightJustify MaxWidth = 250 MinWidth = 35 Style = hsOwnerDraw Text = 'Date' Width = 80 end item Alignment = taCenter MaxWidth = 100 MinWidth = 30 Style = hsOwnerDraw Text = 'Attr' Width = 50 end item Style = hsOwnerDraw Text = 'Description' Width = 250 end> ParentFont = False OnDrawSection = FileHeaderDrawSection OnSectionClick = FileHeaderSectionClick OnSectionResize = FileHeaderSectionResize end object MainListBox: TVirtualListBox Left = 0 Top = 17 Width = 355 Height = 90 Hint = 'File window (press right mouse button for popup menu) ...' WndProcFunction = MainListBoxWndProcFunction Align = alClient ItemHeight = 16 PopupMenu = ListBoxPopupMenu TabOrder = 1 OnClick = MainListBoxClick OnDblClick = MainListBoxDblClick OnDragDrop = pnFileListBoxDragDrop OnDragOver = pnFileListBoxDragOver OnDrawItem = MainListBoxDrawItem OnEndDrag = MainListBoxEndDrag OnEnter = MainListBoxEnter OnExit = MainListBoxExit OnKeyDown = MainListBoxKeyDown OnKeyPress = MainListBoxKeyPress OnKeyUp = MainListBoxKeyUp OnMouseDown = MainListBoxMouseDown OnMouseMove = MainListBoxMouseMove OnStartDrag = MainListBoxStartDrag end object hbFileSearch: THistoryComboBox Left = 0 Top = 107 Width = 355 Height = 23 Hint = 'Quick file search ...' Align = alBottom Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ItemHeight = 15 ParentFont = False TabOrder = 2 Visible = False OnKeyPress = hbFileSearchKeyPress OnFocusGot = hbFileSearchFocusGot OnFocusLost = hbFileSearchFocusLost OnCloseUp = hbFileSearchCloseUp CanEdit = True IniSection = 'FileQuickSearch' end object pnCmdLine: TPanel Left = 0 Top = 130 Width = 355 Height = 23 Align = alBottom BevelOuter = bvNone TabOrder = 3 object hbCmdLine: THistoryComboBox Left = 0 Top = 0 Width = 287 Height = 23 Hint = 'Command line (=browse for executable) ...' Align = alClient ItemHeight = 15 TabOrder = 0 OnDragDrop = hbCmdLineDragDrop OnDragOver = hbCmdLineDragOver OnDropDown = hbCopyToDropDown OnKeyDown = hbCmdLineKeyDown OnKeyPress = hbCmdLineKeyPress OnFocusGot = hbCmdLineFocusGot OnFocusLost = hbCmdLineFocusLost OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'CommandLines' MaxHistoryLength = 20 end object Panel1: TPanel Left = 287 Top = 0 Width = 68 Height = 23 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbExecuteCmd: TSpeedButton Left = 45 Top = 2 Width = 21 Height = 20 Hint = 'Execute command line ...' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333333333333333 0000333333383333333333333333383333333333000033333330033333333333 3333388333333333000033333330F03333333333333338F83333333300003333 3330BF03333333333333387F83333333000033333800F00833333333333888F8 8833333300003333330FB0333333333333338F7833333333000033333330FB03 33333333333338F883333333000033333330BFB0333333333333387F88333333 000033338000F00083333333338888F8888333330000333330BFBF0333333333 33387F7F8333333300003333330BFBF033333333333387F7F833333300003333 330FBFBF0333333333338F7F7F83333300003333333000000833333333333888 8888333300003333333333333333333333333333333333330000333333333333 3333333333333333333333330000333333333333333333333333333333333333 0000} NumGlyphs = 2 OnClick = sbExecuteCmdClick end object sbBrowseCmd: TSpeedButton Left = 1 Top = 2 Width = 21 Height = 20 Hint = 'Browse for executable ...' Caption = '�' OnClick = sbBrowseCmdClick end object sbStartMenuHistory: TSpeedButton Left = 23 Top = 2 Width = 21 Height = 20 Hint = 'Look in Start menu history ...' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333000000000000000307B7B7B7B7B7B7030B7B7B747B7 B7B0307B7B4B4B4B7B7030B7B7B444B7B7B0307B744474447B7030B7B7B444B7 B7B0307B7B4B4B4B7B7030B7B7B747B7B7B0307B7B7B7B7B7B70300000000000 0000330B7B7B0333333333300000333333333333333333333333} ParentShowHint = False ShowHint = False OnClick = sbStartMenuHistoryClick end end end end object sbarFileCmds: TSpeedButtonBar Left = 0 Top = 0 Width = 22 Height = 153 OnButtonPress = sbarFileCmdsButtonPress _ButtonCount = 5 _Vertical = True _Border = 1 _ItemWidth = 20 _ItemHeight = 20 Align = alLeft TabOrder = 1 OnMouseDown = sbarFileCmdsMouseDown end end object pnDrivesTools: TPanel Left = 0 Top = 0 Width = 377 Height = 28 Align = alTop Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object SpeedPanel: TPanel Left = 170 Top = 2 Width = 205 Height = 24 Align = alClient BevelOuter = bvNone DragCursor = crDefault ParentShowHint = False PopupMenu = ToolsPopup ShowHint = True TabOrder = 0 object pnSeparator: TPanel Left = 0 Top = 0 Width = 2 Height = 24 Align = alLeft TabOrder = 0 end object sbarTools: TSpeedButtonBar Left = 2 Top = 0 Width = 203 Height = 24 OnButtonPress = sbarToolsButtonPress _ButtonCount = 5 _Vertical = False _Border = 2 _ItemWidth = 22 _ItemHeight = 21 Align = alClient TabOrder = 1 end end object pnDrives: TPanel Left = 2 Top = 2 Width = 168 Height = 24 Align = alLeft BevelOuter = bvNone TabOrder = 1 object sbDrivesDown: TSpeedButton Left = 51 Top = 4 Width = 16 Height = 16 Hint = 'Drop down listbox with available disks ...' Glyph.Data = { A6000000424DA600000000000000760000002800000009000000060000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000 0000333303333000000033300033300000003300000330000000300000003000 00003333333330000000} OnClick = sbDrivesDownClick end object sbConnect: TSpeedButton Left = 70 Top = 2 Width = 22 Height = 21 Hint = 'Map a network disk ...' Glyph.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0006D696900F0CA 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 000000000000000000000000000000000000D1CFCF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF000000000000 FBFF030000000000000007070707070703030300070707070707FFFFFFFFFFFF FF0700FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFF0000000000 0000000000000000FFFFF807FFFFFFFFFFFFFFFFFFFF07F800FFF807F8F8F8F8 F8F8F8F8F8F807F8F800F8070707070707070707070707F8F800F80707070707 070707070702FAF8F800F8FFFFFFFFFFFFFFFFFFFFFFFFF8F800FFF807070707 0707070707070707F800FFFFF8F8F8F8F8F8F8F8F8F8F8F8F8FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = sbConnectClick end object sbDisconnect: TSpeedButton Left = 95 Top = 2 Width = 22 Height = 21 Hint = 'Unmap a network disk ...' Glyph.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0006D696900F0CA 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 000000000000000000000000000000000000D1CFCF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF9 F9FFFFF9F9FFFFFFFFFFFFFFFFFFFFFFF9F9F9F9FFFFFFFFFFFFFFFFFFFFFFFF FFF9F9FFFFFFFFFFFFFF000000000000F9F9F9F90000000000000707070707F9 F907F8F9F90707070707FFFFFFFFFFFFFF0700FFFFFFFFFFFFFFFFFFFFFFFFFF FF0000FFFFFFFFFFFFFFFF00000000000000000000000000FFFFF807FFFFFFFF FFFFFFFFFFFF07F800FFF807F8F8F8F8F8F8F8F8F8F807F8F800F80707070707 07070707070707F8F800F8070707070707070707070207F8F800F8FFFFFFFFFF FFFFFFFFFFFFFFF8F800FFF8070707070707070707070707F800FFFFF8F8F8F8 F8F8F8F8F8F8F8F8F8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = sbDisconnectClick end object mbFormatDrive: TMenuButton Left = 120 Top = 2 Width = 21 Height = 21 Hint = 'Format (floppy) disk ...' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333000000030CC0FC8888FCC0C300000003CCC0FC88F8FCC0C300000003CCC 0FC8888FCC0C300000003CCC0FC88F8FCC0C300000003CCCC000000000CC3000 00003CCCCCCCCCCCCCCC300000003CCCCCCCCCCCCCCC300000003CC000000000 00CC300000003C0FFFFFFFFFFF0C300000003C0FFFFCFFFFFF0C300000003C0F FFFCFFFFFF0C300000003C0FFFFCCCFFFF0C300000003C0FFFFCFFFFFF0C3000 00003C0FFFFCCCCFFF0C300000003C0FFFFFFFFFFF0C30000000333333333333 333330000000} Layout = blGlyphRight Margin = 0 ParentShowHint = False ShowHint = True Spacing = 12 end object sbMyComp: TSpeedButton Left = 144 Top = 2 Width = 22 Height = 21 Hint = 'My Computer ...' Glyph.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0006D696900F0CA 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 000000000000000000000000000000000000D1CFCF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000 0000000000000000FFFFF8F8F8F8F8F8F8F8F8F8F8F8F8F800FFF8FF07FA0707 07070707F80707F8F800F8FF0707070707000000000007F8F800F8FFFFFFFFFF FFFFFFFFFFFFFFF8F800FF000000000000000000000000F8F800FFF8F8F8F8F8 F8F8F8F8F8F8F800F8FFFFF8FF070707070707070707F8F800FFFFF8FF070004 040404040407F8F800FFFFF8FF0700FCFCFCFCFC0407F8F800FFFFF8FF0700FC FCFCFCFC0407F8F800FFFFF8FF0700FCFCFCFCFC0407F8F800FFFFF8FF070000 000000000007F8F800FFFFF8FFFFFFFFFFFFFFFFFFFFF8F800FFFFFFF8070707 070707070707FFF800FFFFFFFFF8F8F8F8F8F8F8F8F8F8F8FFFF} ParentShowHint = False ShowHint = True OnMouseDown = sbMyCompMouseDown end end end object CurrDirPanel: TPanel Left = 0 Top = 28 Width = 377 Height = 17 Align = alTop BevelOuter = bvNone Caption = 'CurrDirPanel' TabOrder = 2 object CurrDirLabel: TFileLabel Left = 0 Top = 0 Width = 334 Height = 17 Hint = 'Current directory ... Right click for popup menu ...' VertAlignment = vaCenter FileName = 'CurrDirLabel' Direction = drFromLeft Separator = '\' Align = alClient Font.Color = clNavy Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False PopupMenu = pmCurrDir ShowAccelChar = False OnDragOver = CurrDirLabelDragOver end object pnWalkBtn: TPanel Left = 334 Top = 0 Width = 43 Height = 17 Align = alRight BevelOuter = bvNone TabOrder = 0 object sbWalk: TExplorerButton Left = 25 Top = 1 Width = 17 Height = 15 Hint = 'Push to maximize/restore file window ...' Bitmap.Data = { D6000000424DD60000000000000076000000280000000C0000000C0000000100 0400000000006000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770077777 000077770CC0777700007770CCCC07770000770CCCCCC0770000700000000007 000077777777777700007000000000070000770CCCCCC07700007770CCCC0777 000077770CC07777000077777007777700007777777777770000} Options = [boPopupMark, boShowBevel] OnClick = sbWalkClick IBitmap = { 424DC60400000000000036040000280000000C0000000C000000010008000000 0000900000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707070000070707 07070707070700FFFF000707070707070700FFFFFFFF00070707070700FFFFFF FFFFFF0007070700000000000000000000070707070707070707070707070700 00000000000000000007070700FFFFFFFFFFFF00070707070700FFFFFFFF0007 07070707070700FFFF0007070707070707070700000707070707070707070707 070707070707} end object sbDirUp: TExplorerButton Left = 3 Top = 1 Width = 21 Height = 15 Hint = 'Go to parent directory ...' Bitmap.Data = { C6000000424DC60000000000000076000000280000000E0000000A0000000100 0400000000005000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00003003300000 3300F03F03333F003300333333333F003300333333333F003300333333333F00 3300333333333F0033003333333F0000000033333333F0000300333333333F00 33003333333333F33300} Options = [boPopupMark, boShowBevel] OnClick = sbDirUpClick IBitmap = { 424DD60400000000000036040000280000000E0000000A000000010008000000 0000A00000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000300000303000000 000003030000FF0003FF0003030303FF000003030000030303030303030303FF 000003030000030303030303030303FF000003030000030303030303030303FF 000003030000030303030303030303FF00000303000003030303030303FF0000 0000000000000303030303030303FF00000000030000030303030303030303FF 00000303000003030303030303030303FF0303030000} end end end object pnMainTreeView: TPanel Left = 0 Top = 45 Width = 377 Height = 176 Align = alTop BevelOuter = bvNone TabOrder = 3 OnResize = pnMainTreeViewResize object DirPageControl: TExtPageControl Left = 0 Top = 0 Width = 377 Height = 171 ActivePage = tsDirTree Align = alClient TabHeight = 23 TabOrder = 0 TabWidth = 90 OnChange = DirPageControlChange OnChanging = DirPageControlChanging OnDragOver = DirPageControlDragOver TabActiveColor = clBtnFace TabActiveFont.Color = clBlack TabActiveFont.Height = -13 TabActiveFont.Name = 'Arial' TabActiveFont.Style = [fsBold] TabHints.Strings = ( 'Directory tree' 'Directory statistics' 'File finder') TabInactiveColor = 10789024 TabInactiveFont.Color = clWindowText TabInactiveFont.Height = -12 TabInactiveFont.Name = 'Arial' TabInactiveFont.Style = [] OnDrawTab = DirPageControlDrawTab object tsDirTree: TTabSheet Caption = 'Tree' object pnDirTree: TPanel Left = 0 Top = 0 Width = 369 Height = 138 Align = alClient BevelOuter = bvNone TabOrder = 0 object pnTreeView: TPanel Left = 21 Top = 0 Width = 348 Height = 138 Align = alClient BevelOuter = bvNone TabOrder = 0 object MainTreeView: THETreeView Left = 0 Top = 0 Width = 348 Height = 94 Hint = 'Directory window (press right mouse button for popup menu) ...' HideSelection = False Indent = 19 OnEditing = MainTreeViewEditing OnEdited = MainTreeViewEdited OnExpanding = MainTreeViewExpanding OnCollapsing = MainTreeViewCollapsing OnCollapsed = MainTreeViewCollapsed OnChanging = MainTreeViewChanging OnChange = MainTreeViewChange Align = alClient ParentColor = False ParentCtl3D = False Ctl3D = True TabOrder = 0 OnClick = MainTreeViewClick OnEnter = MainTreeViewEnter OnExit = MainTreeViewExit OnDragDrop = MainTreeViewDragDrop OnDragOver = MainTreeViewDragOver OnEndDrag = MainTreeViewEndDrag OnMouseDown = MainTreeViewMouseDown OnMouseMove = MainTreeViewMouseMove OnMouseUp = MainTreeViewMouseUp OnDblClick = MainTreeViewDblClick OnKeyDown = MainTreeViewKeyDown OnKeyPress = MainTreeViewKeyPress OnKeyUp = MainTreeViewKeyUp PopupMenu = TreeViewPopupMenu Images = SmallImageList StateImages = SmallImageList WndProcFunction = MainTreeViewWndProcFunction end object pnDirSearch: TPanel Left = 0 Top = 94 Width = 348 Height = 22 Align = alBottom BevelOuter = bvNone TabOrder = 1 Visible = False object hbDirSearch: THistoryComboBox Left = 0 Top = 0 Width = 281 Height = 23 Hint = 'Quick directory search (=search start, =browse direct' + 'ories) ...' Align = alClient ItemHeight = 15 TabOrder = 0 OnDropDown = hbDirSearchDropDown OnKeyDown = hbDirSearchKeyDown OnKeyPress = hbDirSearchKeyPress OnFocusGot = hbDirSearchFocusGot OnFocusLost = hbDirSearchFocusLost OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'DirQuickSearch' end object Panel27: TPanel Left = 281 Top = 0 Width = 67 Height = 22 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbQSearchGo: TSpeedButton Left = 45 Top = 1 Width = 21 Height = 20 Hint = 'Go to selected directory ...' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333333333333333 0000333333383333333333333333383333333333000033333330033333333333 3333388333333333000033333330F03333333333333338F83333333300003333 3330BF03333333333333387F83333333000033333800F00833333333333888F8 8833333300003333330FB0333333333333338F7833333333000033333330FB03 33333333333338F883333333000033333330BFB0333333333333387F88333333 000033338000F00083333333338888F8888333330000333330BFBF0333333333 33387F7F8333333300003333330BFBF033333333333387F7F833333300003333 330FBFBF0333333333338F7F7F83333300003333333000000833333333333888 8888333300003333333333333333333333333333333333330000333333333333 3333333333333333333333330000333333333333333333333333333333333333 0000} NumGlyphs = 2 OnClick = sbQSearchGoClick end object sbQSearchBrowse: TSpeedButton Left = 2 Top = 1 Width = 21 Height = 20 Hint = 'Browse for directory ...' Caption = '�' OnClick = QuickSearchBrowse end object sbQSearchFav: TSpeedButton Left = 23 Top = 1 Width = 21 Height = 20 Hint = 'Look in favorites for a directory ...' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333000000000000000307B7B7B7B7B7B7030B7B7B747B7 B7B0307B7B4B4B4B7B7030B7B7B444B7B7B0307B744474447B7030B7B7B444B7 B7B0307B7B4B4B4B7B7030B7B7B747B7B7B0307B7B7B7B7B7B70300000000000 0000330B7B7B0333333333300000333333333333333333333333} OnClick = sbQSearchFavClick end end end object pnTreeDrives: TPanel Left = 0 Top = 116 Width = 348 Height = 22 Align = alBottom BevelOuter = bvNone TabOrder = 2 object LoggedDrivesTabSet: TTabSet Left = 0 Top = 0 Width = 315 Height = 22 Hint = 'Switch to another logged disk (right click for popup menu) ...' Align = alClient DitherBackground = False EndMargin = 0 Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] PopupMenu = DrivesPopupMenu StartMargin = 0 Style = tsOwnerDraw TabHeight = 22 Tabs.Strings = ( 'C') TabIndex = 0 UnselectedColor = 10789024 OnClick = LoggedDrivesTabSetClick OnChange = LoggedDrivesTabSetChange OnDragOver = LoggedDrivesTabSetDragOver OnDrawTab = LoggedDrivesTabSetDrawTab OnMouseDown = LoggedDrivesTabSetMouseDown OnMeasureTab = LoggedDrivesTabSetMeasureTab end object pnSwitchDisks: TPanel Left = 315 Top = 0 Width = 33 Height = 22 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbPrevDisk: TExplorerButton Left = 3 Top = 1 Width = 14 Height = 21 Hint = 'Switch to previous logged disk ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330003333 000033300000330C000030CC00000CCC00000CCC000030CC0000330C00003330 00003333000033333000} Options = [boPopupMark, boShowBevel] OnClick = sbPrevDiskClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000303 0303000000000303030000000000030300FF000000000300FFFF0000000000FF FFFF0000000000FFFFFF000000000300FFFF00000000030300FF000000000303 03000000000003030303000000000303030303000000} end object sbNextDisk: TExplorerButton Left = 18 Top = 1 Width = 14 Height = 21 Hint = 'Switch to next logged disk ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000333 3000003330000C0330000CC030000CCC00000CCC00000CC030000C0330000033 30000333300033333000} Options = [boPopupMark, boShowBevel] OnClick = sbNextDiskClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000003 030303000000000003030300000000FF00030300000000FFFF000300000000FF FFFF0000000000FFFFFF0000000000FFFF000300000000FF0003030000000000 03030300000000030303030000000303030303000000} end object Bevel1: TBevel Left = 0 Top = 0 Width = 3 Height = 22 Align = alLeft Shape = bsLeftLine Style = bsRaised end end end end object sbarDirCmds: TSpeedButtonBar Left = 0 Top = 0 Width = 21 Height = 138 OnButtonPress = sbarDirCmdsButtonPress _ButtonCount = 5 _Vertical = True _Border = 1 _ItemWidth = 20 _ItemHeight = 20 Align = alLeft Color = clBtnFace ParentColor = False TabOrder = 1 OnMouseDown = sbarDirCmdsMouseDown end end end object tsDirInfo: TTabSheet Caption = 'Info' object Panel5: TPanel Left = 0 Top = 0 Width = 0 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 0 object Panel32: TPanel Left = 0 Top = 0 Width = 71 Height = 27 Align = alLeft BevelOuter = bvNone TabOrder = 0 object btnScan: TExplorerButton Left = 2 Top = 2 Width = 67 Height = 23 Hint = 'Start/stop directory statistics ...' Bitmap.Data = { EE000000424DEE0000000000000076000000280000000F0000000F0000000100 0400000000007800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333033333833333333303333300333333330333330F033333330333330BF0333 3330333800F00833333033330FB033333330333330FB03333330333330BFB033 3330338000F0008333303330BFBF0333333033330BFBF033333033330FBFBF03 333033333000000833303333333333333330} Caption = '&Scan' Layout = blBitmapLeft Options = [boPopupMark, boShowBevel] OnClick = btnScanClick IBitmap = { 424D260500000000000036040000280000000F0000000F000000010008000000 0000F00000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030303030303 0303030303000303030303FF0303030303030303030003030303030000030303 030303030300030303030300FF000303030303030300030303030300FFFF0003 030303030300030303FF0000FF0000FF0303030303000303030300FFFF000303 030303030300030303030300FFFF0003030303030300030303030300FFFFFF00 0303030303000303FF000000FF000000FF030303030003030300FFFFFFFF0003 0303030303000303030300FFFFFFFF000303030303000303030300FFFFFFFFFF 0003030303000303030303000000000000FF0303030003030303030303030303 030303030300} end end end object meDirStatistics: TMemo Left = 0 Top = 27 Width = 369 Height = 111 Hint = 'Directory statistics ...' Align = alClient Color = clBtnFace Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'Press Scan button to display directory statistics.') ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 1 WordWrap = False end end object tsFileFinder: TTabSheet Caption = 'Finder' object pnFindOptions: TPanel Left = 0 Top = 27 Width = 0 Height = 117 Align = alTop BevelOuter = bvLowered TabOrder = 1 object lbFindStartDir: TLabel Left = 129 Top = 1 Width = 100 Height = 14 AutoSize = False Caption = '&Start directories:' FocusControl = hcbFindStartDir end object sbBrowseFindStartDir: TSpeedButton Left = 343 Top = 18 Width = 21 Height = 20 Hint = 'Browse for directory ...' Caption = '�' OnClick = sbBrowseFindStartDirClick end object sbBrowseFindPatterns: TSpeedButton Left = 343 Top = 56 Width = 21 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbBrowseFindPatternsClick end object lbFindPatterns: TLabel Left = 129 Top = 40 Width = 82 Height = 15 Caption = 'File &pattern(s): ' FocusControl = hcbFindPatterns end object lbFindMatchString: TLabel Left = 129 Top = 77 Width = 67 Height = 14 AutoSize = False Caption = '&Match string: ' FocusControl = hcbFindMatchString end object dlbFindDisks: TEnhDriveListBox Left = 3 Top = 3 Width = 121 Height = 110 Hint = 'Available search disks (allow multiselect) ...' ExtraOptions = [ShowAll, ShowDrvType, ShowBitmaps] TextCase = tcUpperCase Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] MultiSelect = True ParentFont = False TabOrder = 0 OnMouseUp = dlbFindDisksMouseUp end object hcbFindStartDir: THistoryComboBox Left = 128 Top = 17 Width = 211 Height = 23 Hint = 'Start directories - use ";" separator for multiple directories/d' + 'isks ...' ItemHeight = 0 TabOrder = 1 OnChange = hcbFindStartDirChange OnKeyDown = hcbFindStartDirKeyDown OnFocusLost = hcbFindStartDirFocusLost OnChoice = hcbFindStartDirChange CanEdit = True IniSection = 'FinderStartDirs' end object hcbFindPatterns: THistoryComboBox Left = 128 Top = 55 Width = 211 Height = 23 Hint = 'File patterns (=extended file specifications, supports wildc' + 'ard characters) ...' ItemHeight = 0 TabOrder = 3 OnKeyDown = hcbFindPatternsKeyDown OnFocusLost = hcbFindPatternsFocusLost CanEdit = True IniSection = 'FinderFilePatterns' end object cbFindRecursive: TCheckBox Left = 236 Top = 1 Width = 70 Height = 16 Hint = 'Recurse subdirectories?' Caption = '&Recurse' State = cbChecked TabOrder = 2 end object cbMatchEnable: TCheckBox Left = 242 Top = 80 Width = 97 Height = 17 Hint = 'Search files for string...' Caption = 'Match &Enable' TabOrder = 5 end object cbMatchCaseSensitive: TCheckBox Left = 242 Top = 98 Width = 126 Height = 17 Hint = 'Perform case sensitive search...' Caption = 'Match &case' TabOrder = 6 end object hcbFindMatchString: THistoryComboBox Left = 128 Top = 91 Width = 110 Height = 23 Hint = 'Match string (support wildcard characters!) ...' ItemHeight = 0 TabOrder = 4 OnFocusLost = hcbFindMatchStringFocusLost CanEdit = True IniSection = 'FinderMatchStrings' end object cbFindTurbo: TCheckBox Left = 309 Top = 1 Width = 54 Height = 16 Hint = 'Turbo search mode ...' Caption = '&Turbo' TabOrder = 7 end end object pnFindCurrDir: TPanel Left = 0 Top = 0 Width = 0 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 0 object CurrFileFindDirLabel: TFileLabel Left = 67 Top = 0 Width = 302 Height = 27 VertAlignment = vaCenter FileName = 'CurrFileFindDirLabel' Direction = drFromLeft Separator = '\' Align = alClient Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object pnFindButton: TPanel Left = 0 Top = 0 Width = 67 Height = 27 Align = alLeft BevelOuter = bvNone TabOrder = 0 object btnFindFile: TExplorerButton Left = 1 Top = 2 Width = 62 Height = 23 Hint = 'Start/stop file finder ...' Bitmap.Data = { EE000000424DEE0000000000000076000000280000000F0000000F0000000100 0400000000007800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333033333833333333303333300333333330333330F033333330333330BF0333 3330333800F00833333033330FB033333330333330FB03333330333330BFB033 3330338000F0008333303330BFBF0333333033330BFBF033333033330FBFBF03 333033333000000833303333333333333330} Caption = '&Find' Layout = blBitmapLeft Options = [boPopupMark, boShowBevel] OnClick = btnFindFileClick IBitmap = { 424D260500000000000036040000280000000F0000000F000000010008000000 0000F00000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030303030303 0303030303000303030303FF0303030303030303030003030303030000030303 030303030300030303030300FF000303030303030300030303030300FFFF0003 030303030300030303FF0000FF0000FF0303030303000303030300FFFF000303 030303030300030303030300FFFF0003030303030300030303030300FFFFFF00 0303030303000303FF000000FF000000FF030303030003030300FFFFFFFF0003 0303030303000303030300FFFFFFFF000303030303000303030300FFFFFFFFFF 0003030303000303030303000000000000FF0303030003030303030303030303 030303030300} end end end object pnFindListBox: TPanel Left = 0 Top = 146 Width = 369 Height = 92 Align = alClient BevelOuter = bvLowered TabOrder = 3 object Panel30: TPanel Left = 330 Top = 1 Width = 38 Height = 90 Align = alRight BevelOuter = bvNone TabOrder = 0 object lbFindCount: TLabel Left = 0 Top = 0 Width = 38 Height = 15 Align = alTop Caption = '0' end object Panel31: TPanel Left = 0 Top = 62 Width = 38 Height = 28 Align = alBottom BevelOuter = bvNone TabOrder = 0 object btnFindFillResults: TBitBtn Left = 7 Top = 2 Width = 24 Height = 24 Hint = 'Fill file(s) window with find results ...' TabOrder = 0 OnClick = btnFindFillResultsClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 Spacing = 2 end end end object lbFindResults: TListBox Left = 1 Top = 1 Width = 329 Height = 90 Hint = 'List of find results ...' Align = alClient DragMode = dmAutomatic ItemHeight = 15 MultiSelect = True TabOrder = 1 OnDblClick = lbFindResultsDblClick OnEndDrag = lbFindResultsEndDrag OnKeyDown = lbFindResultsKeyDown end end object scFinder: TSplitControl Left = 0 Top = 144 Width = 0 Height = 2 Cursor = crVSplit Align = alTop DragCursor = crVSplit TabOrder = 2 SizeTarget = pnFindOptions OnFinish = scFinderFinish end end end object scHorizontal: TSplitControl Left = 0 Top = 171 Width = 377 Height = 5 Cursor = crVSplit Hint = 'Splitter ...' Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered DragCursor = crVSplit TabOrder = 1 SizeTarget = pnMainTreeView OnFinish = scHorizontalFinish end end object CalPageControl: TPageControl Left = 0 Top = 374 Width = 377 Height = 31 ActivePage = ts_TitlePage Align = alBottom Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 TabStop = False OnEnter = CalPageControlEnter OnExit = CalPageControlExit object ts_TitlePage: TTabSheet TabVisible = False OnEnter = CalPageControlEnter OnExit = CalPageControlExit object pnSysInfo: TPanel Left = 0 Top = 0 Width = 369 Height = 21 Align = alClient Alignment = taLeftJustify BevelInner = bvLowered BevelOuter = bvNone Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 end end object ts_FC_CopyFile1: TTabSheet TabVisible = False object hbCopyAs: THistoryComboBox Left = 87 Top = 0 Width = 157 Height = 23 Hint = 'File specification. Press for extended file specifications.' + '..' Align = alClient ItemHeight = 0 TabOrder = 0 Text = '*.*' OnDropDown = hbCopyAsDropDown OnKeyDown = hbCopyAsKeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'CopyAsHistory' end object pnButtons5: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbCopyAsCancel: TButton Left = 54 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbCopyAsOK: TButton Left = 2 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_FileCopyAs end end object pnCopyfile: TPanel Left = 0 Top = 0 Width = 87 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Copy file(s) as:' TabOrder = 2 end object Panel3: TPanel Left = -125 Top = 0 Width = 20 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 3 object sbCopyAsExt: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbCopyAsExtClick end end end object ts_FC_CopyFile2: TTabSheet TabVisible = False object hbCopyTo: THistoryComboBox Left = 49 Top = 0 Width = 135 Height = 23 Hint = 'Press F2 to browse, F3 to pick from favorites ...' Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbCopyToDropDown OnKeyDown = hbCopyToKeyDown OnKeyPress = hbCopyToKeyPress OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'CopyToHistory' end object pnButtons1: TPanel Left = -185 Top = 0 Width = 185 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbFavorites1: TSpeedButton Left = 58 Top = 0 Width = 21 Height = 21 Hint = 'Look in favorites' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333000000000000000307B7B7B7B7B7B7030B7B7B747B7 B7B0307B7B4B4B4B7B7030B7B7B444B7B7B0307B744474447B7030B7B7B444B7 B7B0307B7B4B4B4B7B7030B7B7B747B7B7B0307B7B7B7B7B7B70300000000000 0000330B7B7B0333333333300000333333333333333333333333} ParentShowHint = False ShowHint = True OnClick = sbFavorites1Click end object sbBrowseDir1: TSpeedButton Left = 35 Top = 0 Width = 21 Height = 21 Hint = 'Browse for folder' Caption = '�' ParentShowHint = False ShowHint = True OnClick = sbBrowseDir1Click end object btnCopyToPrev: TExplorerButton Left = 2 Top = 2 Width = 14 Height = 17 Hint = 'Previous logged disk'#39's directory ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330003333 000033300000330C000030CC00000CCC00000CCC000030CC0000330C00003330 00003333000033333000} Options = [boPopupMark, boShowBevel] OnClick = btnCopyToPrevClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000303 0303000000000303030000000000030300FF000000000300FFFF0000000000FF FFFF0000000000FFFFFF000000000300FFFF00000000030300FF000000000303 03000000000003030303000000000303030303000000} end object btnCopyToNext: TExplorerButton Left = 18 Top = 2 Width = 14 Height = 17 Hint = 'Next logged disk'#39's directory ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000333 3000003330000C0330000CC030000CCC00000CCC00000CC030000C0330000033 30000333300033333000} Options = [boPopupMark, boShowBevel] OnClick = btnCopyToNextClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000003 030303000000000003030300000000FF00030300000000FFFF000300000000FF FFFF0000000000FFFFFF0000000000FFFF000300000000FF0003030000000000 03030300000000030303030000000303030303000000} end object bbCopyCancel: TButton Left = 135 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbCopyToOK: TButton Left = 82 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_FileCopyTo end end object Panel2: TPanel Left = 0 Top = 0 Width = 49 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Copy to:' TabOrder = 2 end end object ts_FC_FileAttr: TTabSheet TabVisible = False object hbFilesAttrHistory: THistoryComboBox Left = 153 Top = 0 Width = 89 Height = 23 Align = alClient ItemHeight = 0 TabOrder = 0 OnKeyDown = hbFilesAttrHistoryKeyDown OnKeyPress = hbFilesAttrHistoryKeyPress OnFocusGot = hbFilesAttrHistoryFocusGot OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'FileAttributesHistory' MaxHistoryLength = 10 end object pnButtons2: TPanel Left = -127 Top = 0 Width = 127 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbSelectAttr: TSpeedButton Left = 2 Top = 1 Width = 20 Height = 20 Hint = 'Select attributes ...' Caption = '�' OnClick = SelectAttrs end object bbFileAttrCancel: TButton Left = 77 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = bbFileAttrCancelClick end object bbFileAttrOK: TButton Left = 25 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_FileAttributes end end object FileAttrPanel: TPanel Left = 0 Top = 0 Width = 153 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Change attributes: ' TabOrder = 2 end end object ts_DC_VolumeLabel: TTabSheet TabVisible = False object VolumeLabelEdit: TEdit Left = 122 Top = 0 Width = 139 Height = 23 MaxLength = 11 TabOrder = 0 end object pnButtons3: TPanel Left = 264 Top = 0 Width = 105 Height = 21 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbVolLabCancel: TButton Left = 54 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object bbVolLabOK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = bbVolLabOKClick end end object Panel20: TPanel Left = 0 Top = 0 Width = 122 Height = 21 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Change disk volume:' TabOrder = 2 end end object ts_DC_SerialNum: TTabSheet TabVisible = False object SerNumberEdit: TMaskEdit Left = 160 Top = 0 Width = 67 Height = 23 EditMask = 'AAAA\-AAAA;1;_' MaxLength = 9 TabOrder = 0 Text = ' - ' end object pnButtons4: TPanel Left = 264 Top = 0 Width = 105 Height = 21 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbSerNumCancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object bbSerNumOK: TButton Left = 0 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = bbSerNumOKClick end end object Panel21: TPanel Left = 0 Top = 0 Width = 157 Height = 21 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Change disk serial number:' TabOrder = 2 end end object ts_DC_Prune: TTabSheet Hint = 'PRUNE: Delete the highlighted branch of the tree' TabVisible = False object pnButtons6: TPanel Left = 264 Top = 0 Width = 105 Height = 21 Align = alRight BevelOuter = bvNone TabOrder = 0 object bbPruneCancel: TButton Left = 55 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object bbPruneOK: TButton Left = 2 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True Enabled = False ModalResult = 1 TabOrder = 0 OnClick = bbPruneOKClick end end object edPrune: TEdit Left = 83 Top = -1 Width = 52 Height = 24 Hint = 'PRUNE: Delete the highlighted branch of the tree' Font.Color = clRed Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 5 ParentFont = False TabOrder = 1 OnChange = edPruneChange OnKeyPress = edPruneKeyPress end object Panel26: TPanel Left = 137 Top = 0 Width = 127 Height = 21 Align = alRight BevelOuter = bvNone Caption = 'WARNING-destructive!' Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold, fsUnderline] ParentFont = False TabOrder = 2 end object Panel22: TPanel Left = 0 Top = 0 Width = 83 Height = 21 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Enter PRUNE:' TabOrder = 3 end end object ts_FC_SearchString: TTabSheet TabVisible = False object hbSearchStrings: THistoryComboBox Left = 110 Top = 0 Width = 69 Height = 23 Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbSearchStringsDropDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'SearchStringsHistory' end object pnButtons7: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbSearchStrCancel: TButton Left = 55 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbSearchStrOK: TButton Left = 2 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_SearchTaggedFilesForString end end object Panel6: TPanel Left = 0 Top = 0 Width = 110 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Search files for text:' TabOrder = 2 end object Panel7: TPanel Left = -190 Top = 0 Width = 85 Height = 0 Align = alRight BevelOuter = bvNone Caption = 'Panel7' TabOrder = 3 object cb_IgnoreCase: TCheckBox Left = 1 Top = 3 Width = 85 Height = 17 Caption = '&Ignore case?' State = cbChecked TabOrder = 0 end end end object ts_FC_MoveFile1: TTabSheet TabVisible = False object hbMoveAs: THistoryComboBox Left = 86 Top = 0 Width = 158 Height = 23 Hint = 'File specification. Press for extended file specifications.' + '..' Align = alClient ItemHeight = 0 TabOrder = 0 Text = '*.*' OnDropDown = hbMoveAsDropDown OnKeyDown = hbMoveAsKeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'MoveAsHistory' end object pnButtons8: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbMoveAsCancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbMoveAsOK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_FileMoveAs end end object pnMoveAs: TPanel Left = 0 Top = 0 Width = 86 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Move file(s) as:' TabOrder = 2 end object Panel8: TPanel Left = -125 Top = 0 Width = 20 Height = 0 Align = alRight BevelOuter = bvNone Caption = 'Panel8' TabOrder = 3 object sbMoveAsExt: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbMoveAsExtClick end end end object ts_FC_MoveFile2: TTabSheet TabVisible = False object hbMoveTo: THistoryComboBox Left = 46 Top = 0 Width = 138 Height = 23 Hint = 'Press F2 to browse, F3 to pick from favorites ...' Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbMoveToDropDown OnKeyDown = hbMoveToKeyDown OnKeyPress = hbMoveToKeyPress OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'MoveToHistory' end object pnButtons9: TPanel Left = -185 Top = 0 Width = 185 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbBrowseDir2: TSpeedButton Left = 34 Top = 0 Width = 21 Height = 21 Hint = 'Browse for folder' Caption = '�' ParentShowHint = False ShowHint = True OnClick = sbBrowseDir2Click end object sbFavorites2: TSpeedButton Left = 58 Top = 0 Width = 21 Height = 21 Hint = 'Look in favorites' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333000000000000000307B7B7B7B7B7B7030B7B7B747B7 B7B0307B7B4B4B4B7B7030B7B7B444B7B7B0307B744474447B7030B7B7B444B7 B7B0307B7B4B4B4B7B7030B7B7B747B7B7B0307B7B7B7B7B7B70300000000000 0000330B7B7B0333333333300000333333333333333333333333} ParentShowHint = False ShowHint = True OnClick = sbFavorites2Click end object btnMoveToPrev: TExplorerButton Left = 2 Top = 2 Width = 14 Height = 17 Hint = 'Previous logged disk'#39's directory ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330003333 000033300000330C000030CC00000CCC00000CCC000030CC0000330C00003330 00003333000033333000} Options = [boPopupMark, boShowBevel] OnClick = btnMoveToPrevClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000303 0303000000000303030000000000030300FF000000000300FFFF0000000000FF FFFF0000000000FFFFFF000000000300FFFF00000000030300FF000000000303 03000000000003030303000000000303030303000000} end object btnMoveToNext: TExplorerButton Left = 18 Top = 2 Width = 14 Height = 17 Hint = 'Next logged disk'#39's directory ...' Bitmap.Data = { A6000000424DA6000000000000007600000028000000050000000C0000000100 0400000000003000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000333 3000003330000C0330000CC030000CCC00000CCC00000CC030000C0330000033 30000333300033333000} Options = [boPopupMark, boShowBevel] OnClick = btnMoveToNextClick IBitmap = { 424D96040000000000003604000028000000050000000C000000010008000000 0000600000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030000000003 030303000000000003030300000000FF00030300000000FFFF000300000000FF FFFF0000000000FFFFFF0000000000FFFF000300000000FF0003030000000000 03030300000000030303030000000303030303000000} end object bbMoveToCancel: TButton Left = 135 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbMoveToOK: TButton Left = 82 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_FileMoveTo end end object Panel9: TPanel Left = 0 Top = 0 Width = 46 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Move to:' TabOrder = 2 end end object ts_FC_RenameFile1: TTabSheet TabVisible = False object pnButtons10: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 0 object bbRename1Cancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbRename1OK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_RenameSingleFile end end object pnRenameTo: TPanel Left = 0 Top = 0 Width = 101 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Rename file(s) to:' TabOrder = 1 end object Panel12: TPanel Left = -147 Top = 0 Width = 42 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 2 object sbRen1Ext: TSpeedButton Left = 21 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbRen1ExtClick end object sbRenCase: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Uppercase/Lowercase/Capitalize ...' Caption = 'Aa' OnClick = sbRenCaseClick end end object hbRenameFile1: THistoryComboBox Left = 101 Top = 0 Width = 121 Height = 23 Hint = 'File specification. Press F2 for extended file specifications...' Align = alClient ItemHeight = 0 TabOrder = 3 OnDropDown = hbRenameFile1DropDown OnKeyDown = hbRenameFile1KeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'RenameFileHistory' end end object ts_FC_RenameFile2: TTabSheet TabVisible = False object hbRenameFile2: THistoryComboBox Left = 103 Top = 0 Width = 119 Height = 23 Hint = 'File specification. Press F2 for extended file specifications...' Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbRenameFile2DropDown OnKeyDown = hbRenameFile2KeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'RenameAllTaggedFilesHistory' end object pnButtons11: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbRename2Cancel: TButton Left = 54 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbRename2OK: TButton Left = 2 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_RenameTaggedFiles end end object Panel15: TPanel Left = 0 Top = 0 Width = 103 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Rename file(s) to:' TabOrder = 2 end object Panel13: TPanel Left = -147 Top = 0 Width = 42 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 3 object sbRen2Ext: TSpeedButton Left = 22 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbRen2ExtClick end object sbRenCase2: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Uppercase/Lowercase/Capitalize ...' Caption = 'Aa' OnClick = sbRenCase2Click end end end object ts_FC_FullCopy1: TTabSheet TabVisible = False object hbFullCopyAs: THistoryComboBox Left = 145 Top = 0 Width = 99 Height = 23 Hint = 'File specification. Press F2 for extended file specifications...' Align = alClient ItemHeight = 0 TabOrder = 0 Text = '*.*' OnDropDown = hbFullCopyAsDropDown OnKeyDown = hbFullCopyAsKeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'FullCopyAsHistory' end object pnButtons15: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbFullCopyCancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = 'C&ancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbFullCopyOK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = bbFullCopyOKClick end end object Panel10: TPanel Left = 0 Top = 0 Width = 145 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Copy file(s) with paths as:' TabOrder = 2 end object Panel14: TPanel Left = -125 Top = 0 Width = 20 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 3 object sbFCopyAsExt: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbFCopyAsExtClick end end end object ts_FC_FullMove1: TTabSheet TabVisible = False object hbFullMoveAs: THistoryComboBox Left = 147 Top = 0 Width = 97 Height = 23 Hint = 'File specification. Press F2 for extended file specifications...' Align = alClient ItemHeight = 0 TabOrder = 0 Text = '*.*' OnDropDown = hbFullMoveAsDropDown OnKeyDown = hbFullMoveAsKeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'FullMoveAsHistory' end object pbButtons16: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbFullMoveCancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object bbFullMoveOK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = bbFullMoveOKClick end end object Panel11: TPanel Left = 0 Top = 0 Width = 147 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Move file(s) with paths as:' TabOrder = 2 end object Panel17: TPanel Left = -125 Top = 0 Width = 20 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 3 object sbFMoveAsExt: TSpeedButton Left = 1 Top = 1 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbFMoveAsExtClick end end end object ts_DC_MakeDir: TTabSheet TabVisible = False object hbMakeDir: THistoryComboBox Left = 113 Top = 0 Width = 151 Height = 23 Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbMakeDirDropDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'MakeDirHistory' end object pnButtons17: TPanel Left = -105 Top = 0 Width = 105 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbMakeDirCancel: TButton Left = 54 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object bbMakeDirOK: TButton Left = 2 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_MakeNewDir end end object Panel16: TPanel Left = 0 Top = 0 Width = 113 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Make new directory:' TabOrder = 2 end end object ts_DC_RenameDir: TTabSheet TabVisible = False object hbRenameDir: THistoryComboBox Left = 118 Top = 0 Width = 148 Height = 23 Align = alClient ItemHeight = 0 TabOrder = 0 OnDropDown = hbRenameDirDropDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'RenameDirHistory' end object pnButtons18: TPanel Left = -103 Top = 0 Width = 103 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbRenameDirCancel: TButton Left = 53 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object bbRenameDirOK: TButton Left = 1 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_RenameDir end end object Panel18: TPanel Left = 0 Top = 0 Width = 118 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Rename directory to:' TabOrder = 2 end end object ts_DC_EditFile: TTabSheet TabVisible = False object Panel4: TPanel Left = 0 Top = 0 Width = 50 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = ' Edit file: ' TabOrder = 0 end object hbEditFile: THistoryComboBox Left = 50 Top = 0 Width = 189 Height = 23 Align = alClient ItemHeight = 0 TabOrder = 1 OnDropDown = hbEditFileDropDown OnKeyDown = hbEditFileKeyDown OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'EditFileHistory' end object Panel25: TPanel Left = -130 Top = 0 Width = 130 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 2 object sbEditBrowse: TSpeedButton Left = 2 Top = 0 Width = 21 Height = 21 Hint = 'Browse for file ...' Caption = '�' ParentShowHint = False ShowHint = True OnClick = sbEditBrowseClick end object btnEditCancel: TButton Left = 78 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = TreeViewFocus end object btnEditOk: TButton Left = 25 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = btnEditOKClick end end end object ts_FC_DateTime: TTabSheet TabVisible = False object pnNewDate: TPanel Left = 0 Top = 0 Width = 121 Height = 0 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'New file(s) date/time:' TabOrder = 0 end object hbDateTime: THistoryComboBox Left = 121 Top = 0 Width = 121 Height = 23 Hint = 'Change file date/time (press for calendar) ...' Align = alClient ItemHeight = 0 TabOrder = 1 OnKeyDown = hbDateTimeKeyDown OnFocusGot = hbDateTimeFocusGot OnCloseUp = HistoryBoxWriteIniOnCloseUp CanEdit = True IniSection = 'DateTimeHistory' MaxHistoryLength = 10 end object Panel28: TPanel Left = -127 Top = 0 Width = 127 Height = 0 Align = alRight BevelOuter = bvNone TabOrder = 2 object sbBrowseDate: TSpeedButton Left = 2 Top = 1 Width = 20 Height = 20 Hint = 'Select date ...' Caption = '�' OnClick = BrowseDate end object btnCancel_NewDate: TButton Left = 77 Top = 0 Width = 50 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 OnClick = ListBoxFocus end object btnOK_NewDate: TButton Left = 25 Top = 0 Width = 50 Height = 22 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OK_NewDate end end end end end object StatisticsPanel: TPanel Left = 382 Top = 0 Width = 240 Height = 405 Align = alRight BevelOuter = bvNone TabOrder = 1 object FileSpecPanel: TPanel Left = 0 Top = 0 Width = 240 Height = 27 Align = alTop Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object hbFileSpec: THistoryComboBox Left = 66 Top = 2 Width = 128 Height = 23 Hint = 'File specification ... Press for extended file specificatio' + 'ns ...' Align = alClient Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 15 ParentFont = False TabOrder = 0 Text = '*.*' OnKeyDown = hbFileSpecKeyDown OnKeyPress = hbFileSpecKeyPress OnFocusGot = hbFileSpecFocusGot OnFocusLost = hbFileSpecFocusLost OnCloseUp = RefreshFileSpec CanEdit = True IniSection = 'FileSpecHistory' MaxHistoryLength = 20 end object pnFileSpec: TPanel Left = 2 Top = 2 Width = 64 Height = 23 Hint = 'Click to invert file specifications ...' Align = alLeft BevelInner = bvLowered BevelOuter = bvNone BevelWidth = 2 Caption = 'File Spec:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = pnFileSpecClick end object Panel24: TPanel Left = 194 Top = 2 Width = 44 Height = 23 Align = alRight BevelOuter = bvNone TabOrder = 2 object sbExtFileSpec: TSpeedButton Left = 22 Top = 2 Width = 20 Height = 20 Hint = 'Extended file specifications ...' Caption = '�' OnClick = sbExtFileSpecClick end object sbDefaultFSpec: TSpeedButton Left = 1 Top = 2 Width = 20 Height = 20 Hint = 'Default file specification ... (*.*)' Caption = '*.*' OnClick = sbDefaultFSpecClick end end end object pnQuickView: TPanel Left = 0 Top = 285 Width = 240 Height = 120 Align = alClient BevelInner = bvLowered TabOrder = 1 object imgQuick: TImage Left = 2 Top = 5 Width = 236 Height = 64 Hint = 'Press right mouse button for popup menu ...' Align = alClient PopupMenu = pmImgQuick Stretch = True end object meFileInfo: TMemo Left = 2 Top = 5 Width = 236 Height = 64 TabStop = False Align = alClient BorderStyle = bsNone Font.Color = clBlack Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PopupMenu = pmQView ReadOnly = True TabOrder = 0 WordWrap = False OnKeyPress = meFileInfoKeyPress end object mpMedia: TMyMediaPlayer Left = 2 Top = 98 Width = 236 Height = 20 VisibleButtons = [btPlay, btPause, btStop, btStep, btBack] AutoEnable = False Visible = False TabOrder = 1 Align = alBottom end object pnMedia: TPanel Left = 2 Top = 69 Width = 236 Height = 29 Align = alBottom TabOrder = 2 object gMedia: TGauge Left = 1 Top = 23 Width = 234 Height = 5 Align = alBottom ShowText = False BorderStyle = bsNone ForeColor = clHighlight BackColor = clBtnFace Progress = 50 end object sbPlay: TExplorerButton Left = 3 Top = 3 Width = 23 Height = 18 Hint = 'Play multimedia file ...' Bitmap.Data = { DE000000424DDE0000000000000076000000280000000C0000000D0000000100 0400000000006800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 00003FF333333333000038AFF3333333000038AAAFF33333000038AAAAAFF333 000038AAAAAAAFF3000038AAAAAAAAA3000038AAAAAAA883000038AAAAA88333 000038AAA8833333000038A88333333300003883333333330000333333333333 0000} Options = [boIconOnly, boPopupMark, boShowBevel] OnClick = btnPlayClick IBitmap = { 424DD20400000000000036040000280000000C0000000D000000010008000000 00009C0000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030303030303 030303FFFF03030303030303030303FFFFFFFF0303030303030303FFFFFFFFFF FF030303030303FFFFFFFFFFFFFFFF03030303FFFFFFFFFFFFFFFFFFFF0303FF FFFFFFFFFFFFFFFFFF0303FFFFFFFFFFFFFFFFFFFF0303FFFFFFFFFFFFFFFF03 030303FFFFFFFFFFFF030303030303FFFFFFFF0303030303030303FFFF030303 030303030303030303030303030303030303} end object sbStop: TExplorerButton Left = 28 Top = 3 Width = 23 Height = 18 Hint = 'Stop playing ...' Bitmap.Data = { CE000000424DCE0000000000000076000000280000000B0000000B0000000100 0400000000005800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333FFFFF3330 00003FF00000FF3000003F9999990F3000008999999990F000008999999990F0 00008999999990F00000899F999990F00000899FF99990F00000389999999830 000038899999883000003338888833300000} Caption = 'ExplorerButton' Options = [boIconOnly, boPopupMark, boShowBevel] OnClick = btnStopClick IBitmap = { 424DBA0400000000000036040000280000000B0000000B000000010008000000 0000840000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303FFFFFFFFFF0303 030003FFFF0000000000FFFF030003FFFFFFFFFFFFFF00FF0300FFFFFFFFFFFF FFFFFF00FF00FFFFFFFFFFFFFFFFFF00FF00FFFFFFFFFFFFFFFFFF00FF00FFFF FFFFFFFFFFFFFF00FF00FFFFFFFFFFFFFFFFFF00FF0003FFFFFFFFFFFFFFFFFF 030003FFFFFFFFFFFFFFFFFF0300030303FFFFFFFFFF03030300} end end object scQuickView: TSplitControl Left = 2 Top = 2 Width = 236 Height = 3 Cursor = crVSplit Hint = 'Splitter ...' Align = alTop DragCursor = crVSplit TabOrder = 3 SizeTarget = pnStatistics OnFinish = scQuickViewFinish end end object pnStatistics: TPanel Left = 0 Top = 27 Width = 240 Height = 258 Align = alTop BevelOuter = bvNone Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 object pnCurFile: TPanel Left = 0 Top = 178 Width = 240 Height = 79 Hint = 'Current file informations ...' Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 Visible = False object lbCurrFileDesc: TLabel Left = 2 Top = 61 Width = 236 Height = 16 Align = alBottom AutoSize = False Caption = 'lbCurrFileDesc' end object pnQuickFileView: TPanel Left = 212 Top = 2 Width = 26 Height = 59 Align = alRight BevelOuter = bvNone TabOrder = 0 object btnQuickFileView: TExplorerButton Left = 2 Top = 2 Width = 22 Height = 25 Hint = 'Quick file view/play On/Off ...' Bitmap.Data = { 16010000424D1601000000000000760000002800000010000000140000000100 040000000000A000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333000000000000003387777777777770338F00FFFF00FF703380EE0FF0EE0 F703380EE0000EE0F703380EE0FF0EE0F70338F00FFFF00FF70338FF0FFFFF0F F70338FFF0F0FFF0F00338FFFF00FFFF000338FF2FFFFFFFF70338FF22FFFFFF F70338FF222FFFFFF70338FF2222FFFFF70338FF222FFFF0000338FF22FFFFF7 F83338FF2FFFFFF7833338888888888833333333333333333333} Options = [boIconOnly, boPopupMark, boShowBevel] OnClick = btnQuickFileViewClick PopupMenu = pmAutoPlay IBitmap = { 424D760500000000000036040000280000001000000014000000010008000000 0000400100000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003030303030303030303 0303030303030300000000000000000000000000000303FFFFFFFFFFFFFFFFFF FFFFFFFF000303FFFF0000FFFFFFFF0000FFFFFF000303FF00FFFF00FFFF00FF FF00FFFF000303FF00FFFF00000000FFFF00FFFF000303FF00FFFF00FFFF00FF FF00FFFF000303FFFF0000FFFFFFFF0000FFFFFF000303FFFFFF00FFFFFFFFFF 00FFFFFF000303FFFFFFFF00FF00FFFFFF00FF00000303FFFFFFFFFF0000FFFF FFFF0000000303FFFFFFF8FFFFFFFFFFFFFFFFFF000303FFFFFFF8F8FFFFFFFF FFFFFFFF000303FFFFFFF8F8F8FFFFFFFFFFFFFF000303FFFFFFF8F8F8F8FFFF FFFFFFFF000303FFFFFFF8F8F8FFFFFFFF000000000303FFFFFFF8F8FFFFFFFF FFFFFFFF030303FFFFFFF8FFFFFFFFFFFFFFFF03030303FFFFFFFFFFFFFFFFFF FFFF0303030303030303030303030303030303030303} end end object pnCurrFileLabels: TPanel Left = 2 Top = 2 Width = 210 Height = 59 Align = alClient BevelOuter = bvNone TabOrder = 1 object lbCurrFilePos: TLabel Left = 0 Top = 0 Width = 210 Height = 15 Align = alTop AutoSize = False Caption = 'lbCurrFilePos' end object lbCurrFileNm: TLabel Left = 0 Top = 15 Width = 210 Height = 15 Align = alTop AutoSize = False Caption = 'lbCurrFileName' ShowAccelChar = False OnClick = FileInfo end object lbCurrFileSize: TLabel Left = 0 Top = 30 Width = 210 Height = 15 Align = alTop AutoSize = False Caption = 'lbCurrFileSize' end object lbCurrFileDate: TLabel Left = 0 Top = 45 Width = 210 Height = 15 Align = alTop AutoSize = False Caption = 'lbCurrFileDate' OnClick = miFileDateClick end end end object TaggedGroupBox: TGroupBox Left = 0 Top = 132 Width = 240 Height = 46 Hint = 'Tagged statistics ...' Align = alTop Caption = ' Tagged statistics: ' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label5: TLabel Left = 6 Top = 28 Width = 62 Height = 15 AutoSize = False Caption = 'Total size:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 31 Top = 14 Width = 37 Height = 15 AutoSize = False Caption = 'Files:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TaggedFilesLabel: TLabel Left = 70 Top = 14 Width = 100 Height = 15 Caption = 'TaggedFilesLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TaggedBytesLabel: TLabel Left = 70 Top = 28 Width = 103 Height = 15 Caption = 'TaggedBytesLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object CurrDirStatGroupBox: TGroupBox Left = 0 Top = 86 Width = 240 Height = 46 Hint = 'Current directory statistics ...' Align = alTop Caption = ' Current directory statistics: ' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 object FilesInDirLabel: TLabel Left = 70 Top = 14 Width = 84 Height = 15 Caption = 'FilesInDirLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 6 Top = 29 Width = 61 Height = 15 AutoSize = False Caption = 'Total size:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TotalDirSizeLabel: TLabel Left = 70 Top = 29 Width = 97 Height = 15 Caption = 'TotalDirSizeLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 31 Top = 14 Width = 36 Height = 15 AutoSize = False Caption = 'Files:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object DriveStatGroupBox: TGroupBox Left = 0 Top = 0 Width = 240 Height = 86 Hint = 'Disk statistics ... Right click for disk popup menu' Align = alTop Caption = ' Disk statistics: ' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False PopupMenu = DrivesPopupMenu TabOrder = 3 object Label7: TLabel Left = 9 Top = 42 Width = 62 Height = 15 AutoSize = False Caption = 'Available:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object AvailableBytesLabel: TLabel Left = 70 Top = 42 Width = 110 Height = 15 Caption = 'AvailableBytesLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 11 Top = 27 Width = 60 Height = 15 AutoSize = False Caption = 'Capacity:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 8 Top = 58 Width = 63 Height = 15 AutoSize = False Caption = 'Disk type:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object DriveCapacityLabel: TLabel Left = 70 Top = 27 Width = 106 Height = 15 Caption = 'DriveCapacityLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object lbDiskType: TLabel Left = 92 Top = 58 Width = 61 Height = 15 Caption = 'lbDiskType' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 16 Top = 13 Width = 55 Height = 15 AutoSize = False Caption = 'Volume:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object VolumeLabel: TLabel Left = 70 Top = 13 Width = 73 Height = 15 Caption = 'VolumeLabel' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False ShowAccelChar = False OnClick = DiskVolumeName end object DrvSpaceGauge: TGauge Left = 2 Top = 79 Width = 236 Height = 5 Align = alBottom ShowText = False BorderStyle = bsNone ForeColor = clRed BackColor = clGreen Progress = 100 end object btnDiskImage: TExplorerButton Left = 68 Top = 57 Width = 22 Height = 21 Hint = 'Click for disk information ...' Caption = 'ExplorerButton' Options = [boIconOnly, boPopupMark, boShowBevel] OnClick = btnDiskImageClick IBitmap = { 424DC60400000000000036040000280000000C0000000C000000010008000000 0000900000000000000000000000000000000000000000000000000080000080 000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000 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 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707070000070707 07070707070700FFFF000707070707070700FFFFFFFF00070707070700FFFFFF FFFFFF0007070700000000000000000000070707070707070707070707070700 00000000000000000007070700FFFFFFFFFFFF00070707070700FFFFFFFF0007 07070707070700FFFF0007070707070707070700000707070707070707070707 070707070707} end end end end object MainStatusBar: TStatusBar Left = 0 Top = 405 Width = 622 Height = 19 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Panels = < item Width = 300 end item Style = psOwnerDraw Width = 100 end item Alignment = taCenter Bevel = pbRaised Text = 'STOP' Width = 50 end item Width = 100 end> ParentFont = False SimplePanel = False OnMouseDown = MainStatusBarMouseDown OnDrawPanel = MainStatusBarDrawPanel end object scVertical: TSplitControl Left = 377 Top = 0 Width = 5 Height = 405 Cursor = crHSplit Hint = 'Splitter ...' Align = alRight BevelInner = bvRaised BevelOuter = bvLowered DragCursor = crHSplit TabOrder = 3 SizeTarget = StatisticsPanel OnFinish = scVerticalFinish end object lbDrives: TCalypsoDrives Left = 4 Top = 4 Width = 46 Height = 20 Hint = 'Available disks ... press right mouse button for popup menu ...' ExtraOptions = [ShowAll, ShowBitmaps] TextCase = tcUpperCase Ctl3D = False Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 18 ParentCtl3D = False ParentFont = False PopupMenu = DrivesPopupMenu TabOrder = 4 OnClick = lbDrivesClick OnEnter = lbDrivesEnter OnExit = lbDrivesExit OnKeyPress = lbDrivesKeyPress end object SmallImageList: TImageList Left = 530 Top = 309 end object TreeViewPopupMenu: TPopupMenu AutoPopup = False Left = 205 Top = 241 object pmiDirCommands: TMenuItem Caption = 'Commands' ShortCut = 0 end object pmiDirLogBranch: TMenuItem Caption = 'Log &Branch' Hint = 'Logs the directory branch from the current directory down ...' ShortCut = 0 OnClick = LogDirBranch end object pmiDirInfo: TMenuItem Caption = 'Info' Hint = 'Scan directory and display summary ...' ShortCut = 0 OnClick = pmiDirInfoClick end object pmiWhat5: TMenuItem Caption = '&What is this?' ShortCut = 0 OnClick = pmiWhat5Click end object pmiReleaseDsk: TMenuItem Caption = 'Re&lease disk' Hint = 'Unlog disk from memory ...' ShortCut = 0 OnClick = ReleaseDisk end object N2: TMenuItem Caption = '-' ShortCut = 0 end object pmiAddToFav: TMenuItem Caption = 'Add to Fa&vorites ...' Hint = 'Add the current directory to your favorites ...' ShortCut = 0 OnClick = pmiAddToFavClick end object pmiAddToDirQSearch: TMenuItem Caption = 'Add to &Quick Search ...' Hint = 'Add the current directory to your quick search directory history' + ' ...' ShortCut = 0 OnClick = pmiAddToDirQSearchClick end object pmiFindItem: TMenuItem Caption = 'F&ind file ...' Hint = 'Find file ...' ShortCut = 0 OnClick = FindFile end object pmiExploreDir: TMenuItem Caption = 'E&xplore directory ...' Hint = 'Explore the current directory ...' ShortCut = 0 OnClick = ExploreDir end object pmiDosPrompt: TMenuItem Caption = '&DOS prompt ...' Hint = 'Jump to DOS prompt ...' ShortCut = 0 OnClick = DosPrompt end object N6: TMenuItem Caption = '-' ShortCut = 0 end object pmiChangeFont: TMenuItem Caption = 'Change &Font ...' Hint = 'Change font of the directory window ...' ShortCut = 0 OnClick = ChangeTreeViewFont end object pmiDirContextMenu: TMenuItem Caption = 'Co&ntext menu' Hint = 'Display context menu of selected directory ...' ShortCut = 0 OnClick = pmiDirContextMenuClick end object pmiDirProperties: TMenuItem Caption = 'P&roperties ...' Hint = 'Show properties of the current directory/disk ...' ShortCut = 0 OnClick = DirProperties end end object ListBoxPopupMenu: TPopupMenu AutoPopup = False OnPopup = ListBoxPopupMenuPopup Left = 274 Top = 244 object pmiFileCommands: TMenuItem Caption = 'Commands' ShortCut = 0 end object pmiFileMaxMinWin: TMenuItem Caption = '&Max/Min window' Hint = 'Maximize/minimize files window ...' ShortCut = 13 OnClick = MaxFileWin end object pmiFileChangeDisplay: TMenuItem Caption = '&Toggle file display' Hint = 'Change display type of the files window ...' ShortCut = 0 OnClick = ChangeFileDisplay end object pmiDOSPrompt2: TMenuItem Caption = '&DOS prompt ...' Hint = 'Jump to DOS prompt ...' ShortCut = 0 OnClick = DosPrompt end object pmiFileDisplayFullpath: TMenuItem Caption = 'Display f&ull path' ShortCut = 0 OnClick = pmiFileDisplayFullpathClick end object pmiFileOptimum: TMenuItem Caption = '&Optimize view' Hint = 'Sets widths of the columns to optimal values' ShortCut = 0 OnClick = pmiFileOptimumClick end object pmiWhat4: TMenuItem Caption = '&What is this?' ShortCut = 0 OnClick = pmiWhat4Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object pmiSortBy: TMenuItem Caption = 'Sort files by ...' Hint = 'Changes the order in which files are displayed ...' ShortCut = 0 object pmiFileSortByName: TMenuItem Caption = '&Name' GroupIndex = 1 Hint = 'Sort files in files window by name ...' RadioItem = True ShortCut = 0 OnClick = SortFilesByName end object pmiFileSortByExtension: TMenuItem Caption = '&Extension' GroupIndex = 1 Hint = 'Sort files in files window by extension ...' RadioItem = True ShortCut = 0 OnClick = SortFilesByExtension end object pmiFileSortBySize: TMenuItem Caption = '&Size' GroupIndex = 1 Hint = 'Sort files in files window by size ...' RadioItem = True ShortCut = 0 OnClick = SortFilesBySize end object pmiFileSortByDate: TMenuItem Caption = '&Date' GroupIndex = 1 Hint = 'Sort files in files window by date ...' RadioItem = True ShortCut = 0 OnClick = SortFilesByDate end object pmiFileSortByAttr: TMenuItem Caption = '&Attributes' GroupIndex = 1 Hint = 'Sort files in files window by attributes ...' RadioItem = True ShortCut = 0 OnClick = SortFilesByAttr end object pmiFileSortByDesc: TMenuItem Caption = 'Des&cription' GroupIndex = 1 Hint = 'Sort files in files window by Windows description ...' RadioItem = True ShortCut = 0 OnClick = SortFilesByDesc end object N20: TMenuItem Caption = '-' GroupIndex = 1 ShortCut = 0 end object pmiFileSortByReversedOrd: TMenuItem Caption = '&Reversed order' GroupIndex = 1 Hint = 'Reversed sort files in files window ...' ShortCut = 0 OnClick = ReversedSortOrder end end object N21: TMenuItem Caption = '-' ShortCut = 0 end object pmiFileChangeFont: TMenuItem Caption = 'Change &Font ...' Hint = 'Change font of the files window ...' ShortCut = 0 OnClick = ChangeFileListBoxFont end object pmiFileContextMenu: TMenuItem Caption = '&Context menu ...' Hint = 'Display context menu of selected file ...' ShortCut = 0 OnClick = pmiFileContextMenuClick end object pmiFileProperties: TMenuItem Caption = '&Properties ...' Hint = 'Show properties of the current file ...' ShortCut = 0 OnClick = FileProperties end end object FormPlacement: TPlacement Section = 'MainForm' Left = 486 Top = 257 end object WTBrowseDirectoryDlg: TBrowseDirectoryDlg Root = idDrives Options = [bfDirectoriesOnly] EnableOKButton = False Left = 431 Top = 303 end object QSortWT: TQSort Compare = QSortWTCompare Swap = QSortWTSwap Left = 340 Top = 242 end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [] Left = 324 Top = 290 end object ToolsPopup: TPopupMenu Left = 163 Top = 79 object miToolsOptions2: TMenuItem Caption = '&Options' Hint = 'Toolbar options ...' ShortCut = 0 OnClick = miToolsOptions2Click end object pmiWhat2: TMenuItem Caption = '&What is this?' ShortCut = 0 OnClick = pmiWhat2Click end end object FileOperator1: TFileOperator ProgressTitle = 'File Operation' Left = 184 Top = 128 end object DrivesPopupMenu: TPopupMenu OnPopup = DrivesPopupMenuPopup Left = 298 Top = 79 object pmiReleaseDisk: TMenuItem Caption = '&Release disk' Hint = 'Unlog disk from memory ...' ShortCut = 0 OnClick = ReleaseDisk end object pmiDriveCollapseall: TMenuItem Caption = '&Collapse all disks' Hint = 'Collapse all logged disks ...' ShortCut = 0 OnClick = pmiCollapseAllDrivesClick end object N8: TMenuItem Caption = '-' ShortCut = 0 end object pmiDefrag: TMenuItem Caption = '&Defrag disk' Hint = 'Defragmentation for the current disk ...' ShortCut = 0 OnClick = Run_DEFRAG end object pmiDefragAllDisks: TMenuItem Caption = 'Defrag &All hard disks' Hint = 'Defragmentation for all hard disks ...' ShortCut = 0 OnClick = pmiDefragAllDisksClick end object pmiScanDisk: TMenuItem Caption = '&Scan disk' Hint = 'Scan the current disk for file system errors ...' ShortCut = 0 OnClick = Run_SCANDISK end object N7: TMenuItem Caption = '-' ShortCut = 0 end object pmiDiskInfo: TMenuItem Caption = '&Info ...' Hint = 'Show information about current disk ...' ShortCut = 0 OnClick = btnDiskImageClick end object pmiProperties: TMenuItem Caption = '&Properties ...' Hint = 'Show properties of current disk ...' ShortCut = 0 OnClick = pmiPropertiesClick end end object BrowseOpenDialog: TOpenDialog DefaultExt = 'EXE' FileEditStyle = fsEdit Filter = 'Programs (*.EXE *.COM)|*.EXE;*.COM|All files (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 541 Top = 213 end object MediaTimer: TTimer Interval = 250 OnTimer = MediaTimerTimer Left = 41 Top = 290 end object MainMenu: TMainMenu Left = 244 Top = 132 object miCalypso: TMenuItem Tag = 1 Caption = 'Calypso' ShortCut = 0 object miCalypsoProperties: TMenuItem Caption = '&Options ...' Hint = 'Program options ...' ShortCut = 32889 OnClick = miCalypsoPropertiesClick end object N16: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miCalypsoExit: TMenuItem Caption = 'E&xit' Hint = 'Exit program ...' ShortCut = 32849 OnClick = QuitCalypso end end object miDirectory: TMenuItem Tag = 1 Caption = 'Directory' ShortCut = 0 object miDirTag: TMenuItem Tag = 1 Caption = 'T&ag ...' Hint = 'Tag operations ...' ShortCut = 0 object miDirTagFiles: TMenuItem Caption = 'Directory files' Hint = 'Tag all matching files in the current directory ...' ShortCut = 84 OnClick = DirTagFiles end object N28: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirTagAllBranchFiles: TMenuItem Caption = 'Branch' Hint = 'Tag all matching files in the current branch ...' ShortCut = 16502 OnClick = DirTagBranch end object miDirTagAllBranchByAttr: TMenuItem Caption = 'Branch by attributes' Hint = 'Tag any matching file on all branch files whose file attributes ' + 'match a specified setting ...' ShortCut = 24694 OnClick = miDirTagAllBranchByAttrClick end object miDirTagAllBranchByPattern: TMenuItem Caption = 'Branch by pattern' Hint = 'Tag any matching file in the current branch that match specified' + ' pattern ...' ShortCut = 24656 OnClick = miDirTagAllBranchByPatternClick end object miDirTagAllBranchByAge: TMenuItem Caption = 'Branch by age' Hint = 'Tag any matching file in current branch that is newer than speci' + 'fied ...' ShortCut = 24641 OnClick = miDirTagAllBranchByAgeClick end object N24: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirTagAllDiskFiles: TMenuItem Caption = 'Disk' Hint = 'Tag all matching files on the current disk ...' ShortCut = 16468 OnClick = DiskTagAll end object miDirTagAllDiskByAttr: TMenuItem Caption = 'Disk by attributes' Hint = 'Tag any matching file on the disk whose file attributes match a ' + 'specified setting ...' ShortCut = 32833 OnClick = miDirTagAllDiskByAttrClick end object miDirTagAllDiskByPattern: TMenuItem Caption = 'Disk by pattern' Hint = 'Tag any matching file on the disk that match specified pattern .' + '..' ShortCut = 16464 OnClick = miDirTagAllDiskByPatternClick end object miDirTagAllDiskByAge: TMenuItem Caption = 'Disk by age' Hint = 'Tag any matching file on the disk that is newer than specified .' + '..' ShortCut = 16449 OnClick = miDirTagAllDiskByAgeClick end object N25: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirTagAllGlobalFiles: TMenuItem Caption = 'Global' Hint = 'Tag all matching files on all logged disks ...' ShortCut = 24660 OnClick = GlobalTagAll end object miDirTagAllGlobalByAttr: TMenuItem Caption = 'Global by attributes' Hint = 'Tag any matching file on all logged disks whose file attributes ' + 'match a specified setting ...' ShortCut = 41044 OnClick = miDirTagAllGlobalByAttrClick end object miDirTagAllGlobalByPattern: TMenuItem Caption = 'Global by pattern' Hint = 'Tag any matching logged file that match specified pattern ...' ShortCut = 49232 OnClick = miDirTagAllGlobalByPatternClick end object miDirTagAllGlobalByAge: TMenuItem Caption = 'Global by age' Hint = 'Tag any matching logged file that is newer than specified ...' ShortCut = 49217 OnClick = miDirTagAllGlobalByAgeClick end object N32: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirTagWizard: TMenuItem Caption = 'Tag Wizard ...' Hint = 'Use tag wizard to do complex tagging of files ...' ShortCut = 16507 OnClick = miDirTagWizardClick end end object miDirUnTag: TMenuItem Tag = 1 Caption = '&UnTag ...' Hint = 'Untag operations ...' ShortCut = 0 object miDirUnTagFiles: TMenuItem Caption = 'Directory files' Hint = 'Untag all matching files in the current directory ...' ShortCut = 85 OnClick = DirUnTagFiles end object N29: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirUnTagAllBranchFiles: TMenuItem Caption = 'Branch' Hint = 'Untag all matching files in the current branch ...' ShortCut = 16503 OnClick = DirUnTagBranch end object miDirUntagAllBranchByAttr: TMenuItem Caption = 'Branch by attributes' Hint = 'Untag any matching file in current branch whose file attributes ' + 'match a specified setting ...' ShortCut = 24695 OnClick = miDirUntagAllBranchByAttrClick end object miDirUntagAllBranchByPattern: TMenuItem Caption = 'Branch by pattern' Hint = 'Untag any matching file in the current branch that match specifi' + 'ed pattern ...' ShortCut = 24655 OnClick = miDirUntagAllBranchByPatternClick end object miDirUntagAllBranchByAge: TMenuItem Caption = 'Branch by age' Hint = 'Untag any matching file in current branch that is newer than spe' + 'cified ...' ShortCut = 24648 OnClick = miDirUntagAllBranchByAgeClick end object N26: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirUnTagAllDiskFiles: TMenuItem Caption = 'Disk' Hint = 'Untag all matching files on the current disk ...' ShortCut = 16469 OnClick = DiskUnTagAll end object miDirUnTagAllDiskByAttr: TMenuItem Caption = 'Disk by attributes' Hint = 'Untag any matching file on the disk whose file attributes match ' + 'a specified setting ...' ShortCut = 32853 OnClick = miDirUnTagAllDiskByAttrClick end object miDirUnTagAllDiskByPattern: TMenuItem Caption = 'Disk by pattern' Hint = 'Untag any matching file on the disk whose file attributes match ' + 'a specified pattern ...' ShortCut = 16463 OnClick = miDirUnTagAllDiskByPatternClick end object miDirUntagAllDiskByAge: TMenuItem Caption = 'Disk by age' Hint = 'Untag any matching file on the disk that is newer than specified' + ' ...' ShortCut = 16456 OnClick = miDirUntagAllDiskByAgeClick end object N27: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirUnTagAllGlobalFiles: TMenuItem Caption = 'Global' Hint = 'Untag all matching files on all logged disks ...' ShortCut = 24661 OnClick = GlobalUnTagAll end object miDirUnTagAllGlobalByAttr: TMenuItem Caption = 'Global by attributes' Hint = 'Untag any matching file on all logged disks whose file attribute' + 's match a specified setting ...' ShortCut = 41045 OnClick = miDirUnTagAllGlobalByAttrClick end object miDirUntagAllGlobalByPattern: TMenuItem Caption = 'Global by pattern' Hint = 'Untag any matching logged file that match specified pattern ...' ShortCut = 49231 OnClick = miDirUntagAllGlobalByPatternClick end object miDirUntagAllGlobalByAge: TMenuItem Caption = 'Global by age' Hint = 'Untag any matching logged file that is newer than specified ...' ShortCut = 49224 OnClick = miDirUntagAllGlobalByAgeClick end end object miDirToggle: TMenuItem Tag = 1 Caption = 'To&ggle ...' Hint = 'Toggle operations ...' ShortCut = 0 object miDirToggleFileSpec: TMenuItem Caption = 'File spec' Hint = 'Reverse the file specification ...' ShortCut = 73 OnClick = miDirToggleFileSpecClick end object miDirToggleDirTags: TMenuItem Caption = 'Dir tags' Hint = 'Toggle the tags on files in the current directory ...' ShortCut = 32 OnClick = InvertDirTags end object miDirToggleAllBranchTags: TMenuItem Caption = 'Branch tags' Hint = 'Toggle the tags on files in the current branch ...' ShortCut = 16504 OnClick = InvertBranchTags end object miDirToggleAllDiskTags: TMenuItem Caption = 'Disk tags' Hint = 'Toggle the tags on all matching files on the current disk ...' ShortCut = 16457 OnClick = InvertAllDiskTags end object miDirToggleAllGlobalTags: TMenuItem Caption = 'Global tags' Hint = 'Toggle the tags on all matching files on all logged disks ...' ShortCut = 24649 OnClick = InvertAllGlobalTags end end object miDirShowAll: TMenuItem Tag = 1 Caption = 'Show all files' Hint = 'Show all logged files ...' ShortCut = 0 object miDirBranchShowAll: TMenuItem Caption = 'Branch' Hint = 'Show all matching files in the current branch ...' ShortCut = 66 OnClick = BranchShowAllLogged end object miDirDiskShowAll: TMenuItem Caption = 'Disk' Hint = 'Show all logged matching files on the current disk ...' ShortCut = 83 OnClick = DiskShowAllLogged end object miDirGlobalShowAll: TMenuItem Caption = 'Global' Hint = 'Show all matching files on all logged disks ...' ShortCut = 71 OnClick = GlobalShowAllLogged end object miDirTaggedBranchShowAll: TMenuItem Caption = 'Branch tagged' Hint = 'Show all matching tagged files in the current branch ...' ShortCut = 16450 OnClick = BranchShowAllTagged end object miDirTaggedDiskShowAll: TMenuItem Caption = 'Disk tagged' Hint = 'Show all matching tagged files on the current disk ...' ShortCut = 16467 OnClick = DiskShowAllTagged end object miDirTaggedGlobalShowAll: TMenuItem Caption = 'Global tagged' Hint = 'Show all tagged matching files on all logged disks ...' ShortCut = 16455 OnClick = GlobalShowAllTagged end end object N13: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirCut: TMenuItem Caption = 'Cu&t' Hint = 'Mark current directory and its subdirectories for cut operation ' + '...' ShortCut = 16472 OnClick = DirCut end object miDirCopy: TMenuItem Caption = '&Copy' Hint = 'Mark current directory and its subdirectories for copy operation' + ' ...' ShortCut = 16451 OnClick = DirCopy end object miDirPaste: TMenuItem Caption = '&Paste' Hint = 'Paste previously marked directory ant its subdirectories to curr' + 'ent directory ...' ShortCut = 16470 OnClick = DirPaste end object N23: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirDelete: TMenuItem Caption = '&Delete' Hint = 'Remove the current directory from the disk ...' ShortCut = 68 OnClick = DeleteDir end object miDirMake: TMenuItem Caption = '&Make ...' Hint = 'Make a new subdirectory under the current directory ...' ShortCut = 77 OnClick = MakeNewDir end object miDirPrune: TMenuItem Caption = 'Pru&ne ...' Hint = 'Remove the current directory and all its sub-directories and fil' + 'es from the disk ...' ShortCut = 32848 OnClick = PruneDir end object miDirRename: TMenuItem Caption = '&Rename ...' Hint = 'Rename the current directory ...' ShortCut = 82 OnClick = RenameDir end object miDirTestDirectory: TMenuItem Caption = '&Test' Hint = 'Tests integrity of all matching files in the current branch ...' ShortCut = 16471 OnClick = pmiTestDirectoryClick end object miDirZIPDirectory: TMenuItem Caption = '&ZIP ...' Hint = 'Packs all matching files in current directory or branch ...' ShortCut = 16500 OnClick = pmiZIPdirectoryClick end object N12: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirMisc: TMenuItem Tag = 1 Caption = 'Misc ...' ShortCut = 0 object miDirCmdLine: TMenuItem Caption = 'Command line ...' Hint = 'Go to command line ...' ShortCut = 32856 OnClick = CommandLine end object miDirDOSprompt: TMenuItem Caption = '&DOS prompt ...' Hint = 'Jump to DOS prompt ...' ShortCut = 49220 OnClick = DosPrompt end object miDirExploreDirectory: TMenuItem Caption = 'Explore directory ...' Hint = 'Explore the current directory ...' ShortCut = 49221 OnClick = ExploreDir end object miDirFindFile: TMenuItem Caption = 'Find file ...' Hint = 'Find file ...' ShortCut = 16454 OnClick = FindFile end object miDirMakeRoot: TMenuItem Caption = 'Ma&ke Root ...' Hint = 'Make virtual root ...' ShortCut = 16461 OnClick = MakeRoot end object miDirQSearch: TMenuItem Caption = 'Quick searc&h ...' Hint = 'Switch to another directory by typing a path ...' ShortCut = 32857 OnClick = miDirQSearchClick end object miDirRelog: TMenuItem Caption = 'Re&log' Hint = 'Re-read the current directory information into program ...' ShortCut = 32882 OnClick = RelogDir end object miDirRemoveRoot: TMenuItem Caption = 'Remo&ve Root' Hint = 'Remove virtual root ...' ShortCut = 16466 OnClick = RemoveRoot end object miDirStatistics: TMenuItem Caption = '&Statistics ...' Hint = 'Show statistics of the current directory ...' ShortCut = 49219 OnClick = miDirStatisticsClick end end object miDirEditFile: TMenuItem Caption = 'Edit file ...' Hint = 'Edit file ...' ShortCut = 69 OnClick = miDirEditFileClick end object miDirFileSpec: TMenuItem Caption = '&File spec ...' Hint = 'Change the file specification ...' ShortCut = 70 OnClick = SetFileSpec end object N11: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miDirChangeFont: TMenuItem Caption = 'Change &font ...' Hint = 'Change font of the directory window ...' ShortCut = 49222 OnClick = ChangeTreeViewFont end object miDirProperties: TMenuItem Caption = 'Propert&ies ...' Hint = 'Show properties of the current directory/disk ...' ShortCut = 32781 OnClick = DirProperties end end object miFile: TMenuItem Tag = 1 Caption = 'File' ShortCut = 0 object miFileTag: TMenuItem Tag = 1 Caption = 'T&ag ...' Hint = 'Tag operations ...' ShortCut = 0 object miFileTagFile: TMenuItem Caption = 'File' Hint = 'Tag the current file ...' ShortCut = 84 OnClick = TagSingleFile end object miFileTagAllInWindow: TMenuItem Caption = 'All in window' Hint = 'Tags all files in the files window ...' ShortCut = 16468 OnClick = TagFileWinFiles end object miFileTagAllbyAttrs: TMenuItem Caption = 'All by attributes' Hint = 'Tags all files in the files window based on the status of the fi' + 'le'#39's attributes ...' ShortCut = 32833 OnClick = miFileTagAllbyAttrsClick end object miFileTagSpecial: TMenuItem Caption = 'Special ...' Hint = 'Tags files in a files window by additional file specifications .' + '..' ShortCut = 187 OnClick = TagFilesSpecial end end object miFileUnTag: TMenuItem Tag = 1 Caption = '&UnTag ...' Hint = 'Untag operations ...' ShortCut = 0 object miFileUnTagFile: TMenuItem Caption = 'File' Hint = 'Untag the current file ...' ShortCut = 85 OnClick = UnTagSingleFile end object miFileUnTagAllinWindow: TMenuItem Caption = 'All in window' Hint = 'Untags all files in the files window ...' ShortCut = 16469 OnClick = UnTagFileWinFiles end object miFileUnTagAllbyAttrs: TMenuItem Caption = 'All by attributes' Hint = 'Untags all files in the files window based on the status of the ' + 'file'#39's attributes ...' ShortCut = 32853 OnClick = miFileUnTagAllbyAttrsClick end object miFileUnTagSpecial: TMenuItem Caption = 'Special ...' Hint = 'Untags files in a files window by additional file specifications' + ' ...' ShortCut = 191 OnClick = UnTagFilesSpecial end end object miFileTagged: TMenuItem Tag = 1 Caption = 'Tagg&ed ...' Hint = 'Operations on tagged files ...' ShortCut = 0 object miFileTaggAttrs: TMenuItem Caption = 'Attributes' Hint = 'Modify the attributes of the tagged files ...' ShortCut = 16449 OnClick = AttributesTaggedFiles end object miFileTaggCopyFiles: TMenuItem Caption = 'Copy' Hint = 'Copy the tagged files to a new disk and/or path ...' ShortCut = 16451 OnClick = CopyTaggedFiles end object miFileTaggCopyWithPaths: TMenuItem Caption = 'Copy with paths' Hint = 'Copy tagged files with their directory structure to another disk' + ' and/or directory ...' ShortCut = 32835 OnClick = CopyPathTaggedFiles end object miFileTaggDelete: TMenuItem Caption = 'Delete' Hint = 'Delete the tagged files ...' ShortCut = 16452 OnClick = DeleteTaggedFiles end object miFileTaggMove: TMenuItem Caption = 'Move' Hint = 'Move the tagged files to a new disk and/or path ...' ShortCut = 16461 OnClick = MoveTaggedFiles end object miFileTaggMoveWithPaths: TMenuItem Caption = 'Move with paths' Hint = 'Move tagged files with their directory structure to another disk' + ' and/or directory ...' ShortCut = 32845 OnClick = MovePathTaggedFiles end object miFileTaggDateTime: TMenuItem Caption = 'New date/time' Hint = 'Modify the date and time of the tagged files ...' ShortCut = 16462 OnClick = miFileTaggDateTimeClick end object miFileTaggRename: TMenuItem Caption = 'Rename' Hint = 'Renames the tagged files ...' ShortCut = 16466 OnClick = RenameTaggedFiles end object miFileTaggSearch: TMenuItem Caption = 'Search ...' Hint = 'Looks through all the tagged files for a specified text string .' + '..' ShortCut = 16467 OnClick = SearchTaggedFilesForString end object miFileTaggTest: TMenuItem Caption = 'Test' Hint = 'Test integrity of all tagged files ...' ShortCut = 16471 OnClick = miFileTaggTestClick end object miFileTaggZIP: TMenuItem Caption = 'ZIP ...' Hint = 'Compresses and stores the tagged files into a ZIP file ...' ShortCut = 16500 OnClick = MakeZIPFile end end object miFileToggle: TMenuItem Tag = 1 Caption = 'To&ggle ...' Hint = 'Toggle operations ...' ShortCut = 0 object miFileTglFileSpec: TMenuItem Caption = 'File spec' Hint = 'Toggle file specification ...' ShortCut = 73 OnClick = miFileTglFileSpecClick end object miFileTglInvertFileTag: TMenuItem Caption = 'Current file tag' Hint = 'Toggle the tag on the current file ...' ShortCut = 32 OnClick = ToggleSingleFileTag end object miFileTglInvertFileTags: TMenuItem Caption = 'File tags' Hint = 'Toggle the tags on all files in the list ...' ShortCut = 16457 OnClick = ToggleFileTags end end object N14: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miFileAttributes: TMenuItem Tag = 1 Caption = 'A&ttributes ...' Hint = 'File attributes ...' ShortCut = 0 object miFileAttrs: TMenuItem Caption = 'File ...' Hint = 'Modify the DOS file attributes of the current file ...' ShortCut = 65 OnClick = AttributesSingleFile end object miFileAttrsToggle: TMenuItem Caption = 'Toggle' Hint = 'Toggle the DOS file attributes of the current file ...' ShortCut = 48 OnClick = ToggleFileAttrs end object miFileAttrsPaste: TMenuItem Caption = 'Paste' Hint = 'Paste the DOS file attributes of the current file ...' ShortCut = 8240 OnClick = PasteFileAttrs end end object miFileCopy: TMenuItem Caption = '&Copy ...' Hint = 'Copy the current file ...' ShortCut = 67 OnClick = CopySingleFile end object miFileDelete: TMenuItem Caption = '&Delete ...' Hint = 'Delete the current file ...' ShortCut = 68 OnClick = DeleteSingleFile end object miFileEdit: TMenuItem Caption = 'Edit ...' Hint = 'Edit the current file ...' ShortCut = 69 OnClick = EditSingleFile end object miFileExecute: TMenuItem Caption = 'E&xecute' Hint = 'Execute the current file ...' ShortCut = 88 OnClick = miFileExecuteClick end object miFileSpec: TMenuItem Caption = '&File spec ...' Hint = 'Change the file specification ...' ShortCut = 70 OnClick = SetFileSpec end object miFileMove: TMenuItem Caption = '&Move ...' Hint = 'Moves the current file ...' ShortCut = 77 OnClick = MoveSingleFile end object miFileDate: TMenuItem Caption = '&New date/time ...' Hint = 'Stamps a new date and time on a current file ...' ShortCut = 78 OnClick = miFileDateClick end object miFilePrint: TMenuItem Caption = '&Print ...' Hint = 'Print the contents of the current file ...' ShortCut = 80 OnClick = miFilePrintClick end object miFileRename: TMenuItem Caption = '&Rename ...' Hint = 'Rename the current file ...' ShortCut = 82 OnClick = RenameSingleFile end object miFileView: TMenuItem Caption = '&View' Hint = 'View the contents of the current file ...' ShortCut = 86 OnClick = ViewSingleFile end object miFileZIP: TMenuItem Tag = 1 Caption = '&ZIP ...' Hint = 'ZIP archives ...' ShortCut = 0 object miFileOpenZIP: TMenuItem Caption = '&Open ...' Hint = 'Examine the contents of a ZIP archive, and then optionally to ex' + 'tract one or more files ...' ShortCut = 32884 OnClick = OpenZIPFile end object miFileTestZIP: TMenuItem Caption = '&Test ...' Hint = 'Test ZIP archive ...' ShortCut = 8308 OnClick = TestZIPFile end end object N33: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miFileSortBy: TMenuItem Tag = 1 Caption = '&Sort by ...' Hint = 'Changes the order in which files are displayed ...' ShortCut = 0 object miFileSortByName: TMenuItem Tag = 1 Caption = 'Name' Hint = 'Sort files in files window by name ...' ShortCut = 0 OnClick = SortFilesByName end object miFileSortByExtension: TMenuItem Tag = 1 Caption = 'Extension' Hint = 'Sort files in files window by extension ...' ShortCut = 0 OnClick = SortFilesByExtension end object miFileSortBySize: TMenuItem Tag = 1 Caption = 'Size' Hint = 'Sort files in files window by size ...' ShortCut = 0 OnClick = SortFilesBySize end object miFileSortByDate: TMenuItem Tag = 1 Caption = 'Date' Hint = 'Sort files in files window by date ...' ShortCut = 0 OnClick = SortFilesByDate end object miFileSortByAttr: TMenuItem Tag = 1 Caption = 'Attributes' Hint = 'Sort files in files window by attributes ...' ShortCut = 0 OnClick = SortFilesByAttr end object miFileSortByDesc: TMenuItem Tag = 1 Caption = 'Description' Hint = 'Sort files in files window by Windows description ...' ShortCut = 0 OnClick = SortFilesByDesc end object N19: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miFileSortByReversedOrd: TMenuItem Tag = 1 Caption = 'Reversed order' Hint = 'Reversed sort files in files window ...' ShortCut = 0 OnClick = ReversedSortOrder end end object miFileChangeDisplay: TMenuItem Tag = 1 Caption = 'C&hange display ...' Hint = 'Change display type of the files window ...' ShortCut = 0 object miFileDispSmallIcons: TMenuItem Tag = 1 Caption = '&Small icons' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = miFileDispSmallIconsClick end object miFileDispLargeIcons: TMenuItem Tag = 1 Caption = '&Large icons' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = miFileDispLargeIconsClick end object miFileDispNormal: TMenuItem Tag = 1 Caption = '&Normal' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = miFileDispNormalClick end object miFileDisp3Col: TMenuItem Tag = 1 Caption = '&3 columns' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = miFileDisp3ColClick end object miFileDisp5Col: TMenuItem Tag = 1 Caption = '&5 columns' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = miFileDisp5ColClick end object N22: TMenuItem Tag = 1 Caption = '-' GroupIndex = 1 ShortCut = 0 end object miFileDispToggle: TMenuItem Caption = 'Toggle display' GroupIndex = 1 Hint = 'Change file display type between large,small, no icons and 3 and' + ' 5 column ...' ShortCut = 32838 OnClick = ChangeFileDisplay end end object miFileMisc: TMenuItem Tag = 1 Caption = 'Misc ...' ShortCut = 0 object miFileBrowseIcons: TMenuItem Caption = '&Browse icons ...' Hint = 'Browse icons in the current file (EXE, DLL, NIL, etc.) ...' ShortCut = 32841 OnClick = BrowseIcons end object miFileCmdLine: TMenuItem Caption = '&Command line ...' Hint = 'Go to command line ...' ShortCut = 32856 OnClick = CommandLine end object miFileCompare: TMenuItem Caption = 'Compare file&list' Hint = 'Compares two file lists ...' ShortCut = 75 OnClick = miFileCompareClick end object miFileDOSPrompt: TMenuItem Caption = '&DOS prompt ...' Hint = 'Jump to DOS prompt ...' ShortCut = 49220 OnClick = DosPrompt end object miFileFind: TMenuItem Caption = '&Find ...' Hint = 'Find file ...' ShortCut = 24646 OnClick = FindFile end object miFileInfo: TMenuItem Caption = '&Info ...' Hint = 'Show additional informations for the current file ...' ShortCut = 49225 OnClick = FileInfo end object miFilePasteToCmdLine: TMenuItem Caption = '&Paste to Cmd line' Hint = 'Paste the current file'#39's name to command line ...' ShortCut = 16397 OnClick = PasteFileToCmdLine end object miFileOtherQSearch: TMenuItem Caption = '&Quick search ...' Hint = 'Find file by typing a name ...' ShortCut = 32857 OnClick = miFileOtherQSearchClick end object miFileRefillWindow: TMenuItem Caption = '&Refill file window' Hint = 'Clears and refills the file window ...' ShortCut = 123 OnClick = miFileRefillWindowClick end object miFileRelogDir: TMenuItem Caption = 'Re&log directory' Hint = 'Re-read the current directory information into program ...' ShortCut = 32882 OnClick = RelogDir end object miFileTest: TMenuItem Caption = '&Test' Hint = 'Test integrity of a file ...' ShortCut = 87 OnClick = miFileTestClick end end object N17: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miFileChangeFont: TMenuItem Caption = 'Change fo&nt ...' Hint = 'Change font of the files window ...' ShortCut = 49222 OnClick = ChangeFileListBoxFont end object miFileProperties: TMenuItem Caption = 'Properties ...' Hint = 'Show properties of the current file ...' ShortCut = 32781 OnClick = FileProperties end end object miVolume: TMenuItem Tag = 1 Caption = 'Volume' ShortCut = 0 object miVolLogOptions: TMenuItem Tag = 1 Caption = 'Log &options ...' Hint = 'Perform a partial log operation ...' ShortCut = 0 object miVolLogDisk: TMenuItem Tag = 1 Caption = 'Disk L ...' Hint = 'Log another disk, keeping the disks which were previously logged' + ' ...' ShortCut = 0 OnClick = LogDisk end object miVolLogOptionsBranch: TMenuItem Caption = 'Branch' Hint = 'Logs the directory branch from the current directory down ...' ShortCut = 32834 OnClick = LogDirBranch end object miVolLogOptionsOneLevel: TMenuItem Caption = 'One level' Hint = 'Logs only the first level of files and directories under the cur' + 'rent directory ...' ShortCut = 32847 OnClick = LogOneLevel end end object miVolReleaseDisk: TMenuItem Caption = '&Release disk' Hint = 'Remove current disk from memory ...' ShortCut = 32850 OnClick = ReleaseDisk end object miVolArchiveCDROM: TMenuItem Caption = '&Archive CD-ROM disk' Hint = 'Archives the current logged CD-ROM disk ...' ShortCut = 117 OnClick = ArchiveCDROMDisk end object miVolCollapseAllDrives: TMenuItem Caption = '&Collapse all disks' Hint = 'Collapse all logged disks ...' ShortCut = 16575 OnClick = pmiCollapseAllDrivesClick end object miVolRefreshAllDirs: TMenuItem Caption = 'Refres&h all directories' Hint = 'Check all logged directories for changed and new files ...' ShortCut = 16498 OnClick = miVolRefreshAllDirsClick end object miVolRefill: TMenuItem Caption = 'Re&fresh file window' Hint = 'Clears and refills the file window ...' ShortCut = 123 OnClick = miVolRefillClick end object N4: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miVolNextDisk: TMenuItem Tag = 1 Caption = '&Next disk > ...' Hint = 'Switch to next logged disk ...' ShortCut = 0 OnClick = NextDisk end object miVolPrevDisk: TMenuItem Tag = 1 Caption = '&Previous disk < ...' Hint = 'Switch to previous logged disk ...' ShortCut = 0 OnClick = PrevDisk end object N31: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miVolConnectNetworkDisk: TMenuItem Caption = 'Map a net&work disk' Hint = 'Connect a network disk ...' ShortCut = 32846 OnClick = sbConnectClick end object miVolDisconnectNetworkDisk: TMenuItem Caption = '&Unmap a network disk' Hint = 'Disconnect a network disk ...' ShortCut = 32835 OnClick = sbDisconnectClick end object N1: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miVolName: TMenuItem Caption = 'Na&me ...' Hint = 'Changes the volume label name of the current disk ...' ShortCut = 86 OnClick = DiskVolumeName end object miVolSerNum: TMenuItem Caption = '&Serial number ...' Hint = 'Change the serial number of the current disk ...' ShortCut = 24659 OnClick = DiskSerialNumber end object miVolFormatDisk: TMenuItem Caption = 'Format dis&k ...' Hint = 'Format the current disk ...' ShortCut = 32881 OnClick = miVolFormatDiskClick end object miVolCopyDisk: TMenuItem Caption = '&Duplicate floppy disk' Hint = 'Make a duplicate of floppy disk ...' ShortCut = 32836 OnClick = miVolCopyDiskClick end object N9: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miVolInfo: TMenuItem Caption = '&Info ...' Hint = 'Show additional informations of the current disk ...' ShortCut = 32841 OnClick = btnDiskImageClick end object miVolProperties: TMenuItem Caption = 'Proper&ties ...' Hint = 'Show properties of the current disk ...' ShortCut = 49165 OnClick = miVolPropertiesClick end end object miTools: TMenuItem Tag = 1 Caption = 'Tools' ShortCut = 0 object miToolsOptions1: TMenuItem Tag = 1 Caption = '&Options ...' Hint = 'Add/remove external programs ...' ShortCut = 0 OnClick = miToolsOptions2Click end object N30: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miToolsSysInfo: TMenuItem Tag = 1 Caption = 'System &Information' Hint = 'Display instant system info ...' ShortCut = 0 OnClick = miToolsSysInfoClick end object miToolsCDBrowser: TMenuItem Tag = 1 Caption = 'CD &Browser' Hint = 'Show cached CD-ROM contents' ShortCut = 0 OnClick = miToolsCDBrowserClick end object miClipBrd: TMenuItem Tag = 1 Caption = 'Clipboard &Viewer' Hint = 'View clipboard contents ...' ShortCut = 0 OnClick = miClipBrdClick end object N3: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end end object miHelp: TMenuItem Tag = 1 Caption = 'Help' ShortCut = 0 object miHelpContents: TMenuItem Tag = 1 Caption = '&Contents ...' Hint = 'Help contents ...' ShortCut = 0 OnClick = miHelpContentsClick end object miHelpWhat: TMenuItem Tag = 1 Caption = 'What is this?' Hint = 'Context help ...' ShortCut = 0 OnClick = miHelpWhatClick end object miHelpTip: TMenuItem Tag = 1 Caption = '&Tip of the day ...' Hint = 'Display the '#39'Tip of the day'#39' ...' ShortCut = 0 OnClick = miHelpTipClick end object miHelpQuote: TMenuItem Tag = 1 Caption = '&Quote of the day ...' Hint = 'Display the '#39'Quote of the day'#39' ...' ShortCut = 0 OnClick = miHelpQuoteClick end object N18: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miHelpRegisterInfo: TMenuItem Tag = 1 Caption = 'Register &Information' Hint = 'Registration informations ...' ShortCut = 0 OnClick = miHelpRegisterInfoClick end object miHelpRegister: TMenuItem Tag = 1 Caption = '&Register ...' Hint = 'Register program ...' ShortCut = 0 OnClick = miHelpRegisterClick end object N15: TMenuItem Tag = 1 Caption = '-' ShortCut = 0 end object miHelpAbout: TMenuItem Tag = 1 Caption = '&About ...' Hint = 'Informations about program ...' ShortCut = 0 OnClick = miHelpAboutClick end end end object pmCurrDir: TPopupMenu OnPopup = pmCurrDirPopup Left = 192 Top = 289 object pmiBrowse: TMenuItem Caption = '&Browse directory' Hint = 'Switch to another directory by selecting a path ...' ShortCut = 0 OnClick = pmiBrowseClick end object pmiSearch: TMenuItem Caption = '&Search directory' Hint = 'Switch to another directory by typing a path ...' ShortCut = 0 OnClick = pmiSearchClick end end object App: TApplicationProperties HintColor = clWhite HintPause = 1000 ShowHint = True OnActivate = AppActivate OnDeactivate = AppDeactivate OnException = AppException OnHint = AppHint OnIdle = AppIdle OnMessage = AppMessage OnShowHint = AppShowHint Left = 585 Top = 261 end object ailForm: TAniImageList BkColor = clBlack Left = 234 Top = 291 end object SplashTimer: TTimer Enabled = False OnTimer = SplashTimerTimer Left = 280 Top = 293 end object aiForm: TAnimatedFormIcon ImageList = ailForm Animated = False Priority = tpIdle Direction = aniForward MinFramesToRun = 0 Left = 148 Top = 290 end object SysInfo1: TSysInfo Left = 297 Top = 131 end object SysTimer: TTimer Interval = 10000 OnTimer = SysTimerTimer Left = 39 Top = 244 end object MSOfficeCaption1: TMSOfficeCaption AppNameText.Caption = 'Program -' AppNameText.FontKind = fkSystemB AppNameText.Visible = False CaptionText.Caption = 'Calypso' CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.Caption = 'Sight && Sound' CompanyText.Font.Color = clBlack CompanyText.Font.Height = -11 CompanyText.Font.Name = 'Arial' CompanyText.Font.Style = [fsBold, fsItalic] CompanyText.FontKind = fkCustom CompanyText.Visible = True Enabled = geWhenActive NumColors = 255 Left = 104 Top = 243 end object mruDirs: TMRUFileList Tag = 1 Maximum = 20 RemoveOnClick = False SubmenuName = 'Reopen' OnMRUItemClick = mruDirsMRUItemClick FileMenu = N16 AutoSaveName = '\Software\Sight&Sound\Calypso' AutoSaveKey = 'MRU Directories' Left = 101 Top = 290 end object Viewer1: TViewer ModalView = True AutoHex = False Left = 486 Top = 211 end object pmDirToolbar: TPopupMenu Left = 51 Top = 128 object miDirToolBarOptions: TMenuItem Caption = '&Options' Hint = 'Directory command button options ...' ShortCut = 0 OnClick = miDirToolBarOptionsClick end object pmiWhat3: TMenuItem Caption = '&What is this?' ShortCut = 0 OnClick = pmiWhat3Click end end object pmFileToolbar: TPopupMenu Left = 83 Top = 82 object miFileToolbarOptions: TMenuItem Caption = '&Options' Hint = 'File command button options ...' ShortCut = 0 OnClick = miFileToolbarOptionsClick end object pmiWhat1: TMenuItem Caption = '&What is this?' ShortCut = 0 OnClick = pmiWhat1Click end end object NiceHints: TLMDShapeHint Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Shadow.Depth = 5 Left = 220 Top = 79 end object pmImgQuick: TPopupMenu OnPopup = pmImgQuickPopup Left = 115 Top = 127 object miCopyToClipBrd: TMenuItem Caption = '&Copy to Clipboard ...' Hint = 'Copy picture to clipboard ...' ShortCut = 0 end end object TrayPopupMenu: TPopupMenu Left = 342 Top = 80 object pmiHideShowWindow: TMenuItem Caption = '&Hide Window' ShortCut = 0 OnClick = pmiHideShowWindowClick end object MenuItem1: TMenuItem Caption = '-' ShortCut = 0 end object pmiTrayAbout: TMenuItem Caption = '&About' Hint = 'About Calypso ...' ShortCut = 0 OnClick = pmiTrayAboutClick end object pmiExitCalypso: TMenuItem Caption = 'E&xit Calypso' ShortCut = 0 OnClick = QuitCalypso end end object CalypsoTrayIcon: TTrayIcon Active = False ShowDesigning = False Icon.Data = {} ShowApp = True ToolTip = 'Calypso' OnDblClick = pmiHideShowWindowClick PopupMenu = TrayPopupMenu Left = 344 Top = 134 end object pmQView: TPopupMenu OnPopup = pmQViewPopup Left = 396 Top = 283 object pmiQViewCopy: TMenuItem Caption = '&Copy to clipboard' ShortCut = 0 OnClick = pmiQViewCopyClick end object pmiQViewAppendToClipboard: TMenuItem Caption = '&Append to clipboard' ShortCut = 0 OnClick = pmiQViewAppendToClipboardClick end object pmiQViewFont: TMenuItem Caption = 'Change &Font ...' ShortCut = 0 OnClick = pmiQViewFontClick end end object DragTimer: TTimer Enabled = False OnTimer = DragTimerTimer Left = 558 Top = 127 end object pmAutoPlay: TPopupMenu OnPopup = pmAutoPlayPopup Left = 552 Top = 259 object pmiQView: TMenuItem Caption = '&Quick view' ShortCut = 0 OnClick = btnQuickFileViewClick end object pmiAutoPlay: TMenuItem Caption = '&Auto play MM files' ShortCut = 0 OnClick = pmiAutoPlayClick end end end