home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 January
/
Pcwk0198.iso
/
Wtestowe
/
CALYPSO
/
_SETUP.1
/
Tools.dll
/
0
/
RCDATA
/
TCDBROWSEFORM
/
TCDBROWSEFORM.txt
< prev
Wrap
Text File
|
1997-07-17
|
5KB
|
223 lines
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