home *** CD-ROM | disk | FTP | other *** search
- object CDBrowseForm: TCDBrowseForm
- Left = 206
- Top = 106
- ActiveControl = lbCacheFiles
- AutoScroll = False
- Caption = 'Sight && Sound CD-ROM cache browser'
- ClientHeight = 424
- ClientWidth = 691
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Menu = MainMenu1
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyPress = FormKeyPress
- PixelsPerInch = 96
- TextHeight = 15
- object lbCacheFiles: TListBox
- Left = 0
- Top = 0
- Width = 691
- Height = 95
- Hint = 'List of all cached CD-ROM disks'
- Align = alTop
- ItemHeight = 15
- TabOrder = 0
- OnClick = lbCacheFilesClick
- OnKeyDown = lbCacheFilesKeyDown
- end
- object tvDirs: TTreeView
- Left = 0
- Top = 100
- Width = 300
- Height = 305
- Hint = 'Directory structure of current CD-ROM cache'
- ReadOnly = True
- HideSelection = False
- Indent = 19
- OnChange = tvDirsChange
- Align = alClient
- ParentColor = False
- TabOrder = 1
- Images = SmallImageList
- end
- object lvFiles: TListView
- Left = 305
- Top = 100
- Width = 386
- Height = 305
- Hint = 'Files in current directory of cached CD-ROM'
- Align = alRight
- Columns = <
- item
- Caption = 'Filename'
- Width = 150
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 80
- end
- item
- Alignment = taRightJustify
- Caption = 'Date'
- Width = 75
- end
- item
- Caption = 'Description'
- Width = 250
- end>
- ReadOnly = True
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- OnColumnClick = lvFilesColumnClick
- OnCompare = lvFilesCompare
- TabOrder = 2
- ViewStyle = vsReport
- end
- object SplitControl1: TSplitControl
- Left = 0
- Top = 95
- Width = 691
- Height = 5
- Cursor = crVSplit
- Align = alTop
- DragCursor = crVSplit
- TabOrder = 3
- SizeTarget = lbCacheFiles
- end
- object SplitControl2: TSplitControl
- Left = 300
- Top = 100
- Width = 5
- Height = 305
- Cursor = crHSplit
- Align = alRight
- DragCursor = crHSplit
- TabOrder = 4
- SizeTarget = lvFiles
- end
- object CDStatusBar: TStatusBar
- Left = 0
- Top = 405
- Width = 691
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object SmallImageList: TImageList
- Left = 26
- Top = 109
- end
- object MainMenu1: TMainMenu
- Left = 26
- Top = 162
- object miFile: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object miFileRefresh: TMenuItem
- Caption = '&Refresh'
- Hint = 'Rereads all cached CD-ROMs'
- ShortCut = 16466
- OnClick = miFileRefreshClick
- end
- object miFileInfo: TMenuItem
- Caption = '&Info'
- Hint = 'Displays additional information about cached CD-ROM'
- ShortCut = 16457
- OnClick = miFileInfoClick
- end
- object miFileRename: TMenuItem
- Caption = 'Rename'
- Hint = 'Renames current CD-ROM cache file'
- ShortCut = 16462
- OnClick = miFileRenameClick
- end
- object miFileDelete: TMenuItem
- Caption = '&Delete'
- Hint = 'Deletes current CD-ROM cache file'
- ShortCut = 0
- OnClick = miFileDeleteClick
- end
- object miFind: TMenuItem
- Caption = '&Find file'
- Hint = 'Find a file in current CD-ROM cache'
- ShortCut = 16454
- OnClick = miFindClick
- end
- object miFilefindagain: TMenuItem
- Caption = 'Find &again'
- Hint = 'Continues to find a file'
- ShortCut = 114
- OnClick = miFilefindagainClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object miFileExit: TMenuItem
- Caption = 'E&xit'
- Hint = 'Ends this program'
- ShortCut = 32856
- OnClick = miFileExitClick
- end
- end
- object miHelp: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object miHelpContents: TMenuItem
- Caption = '&Contents'
- ShortCut = 0
- OnClick = miHelpContentsClick
- end
- object miHelpWhatIsThis: TMenuItem
- Caption = '&What is this?'
- ShortCut = 0
- OnClick = miHelpWhatIsThisClick
- end
- end
- end
- object ApplicationProperties1: TApplicationProperties
- HintColor = clBlack
- HintPause = 0
- ShowHint = False
- OnHint = ApplicationProperties1Hint
- Left = 30
- Top = 214
- end
- object MSOfficeCaption1: TMSOfficeCaption
- AppNameText.Caption = 'Program -'
- AppNameText.FontKind = fkSystemB
- AppNameText.Visible = False
- CaptionText.Caption = 'CD-ROM cache browser'
- CaptionText.FontKind = fkSystem
- CaptionText.Visible = True
- CompanyText.Caption = 'Sight && Sound'
- CompanyText.Font.Color = clWindowText
- CompanyText.Font.Height = -11
- CompanyText.Font.Name = 'Arial'
- CompanyText.Font.Pitch = fpVariable
- CompanyText.Font.Style = [fsBold, fsItalic]
- CompanyText.FontKind = fkCustom
- CompanyText.Visible = True
- Enabled = geWhenActive
- Left = 148
- Top = 250
- end
- object FindDialog1: TFindDialog
- Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown]
- OnFind = FindDialog1Find
- Left = 172
- Top = 158
- end
- end
-