lazarus/components/filebrowser/frmfilebrowser.lfm
mattias de0f8578f0 set some TTreeView.ReadOnly to true
git-svn-id: trunk@18361 -
2009-01-20 20:20:52 +00:00

79 lines
1.6 KiB
Plaintext

object FileBrowserForm: TFileBrowserForm
Left = 305
Height = 434
Top = 466
Width = 385
ActiveControl = Panel1
Caption = 'File Browser'
ClientHeight = 434
ClientWidth = 385
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '0.9.27'
object FileListBox: TFileListBox
Left = 0
Height = 186
Top = 248
Width = 385
Align = alClient
Directory = '/home/graemeg'
FileType = [ftArchive, ftNormal]
ItemHeight = 0
OnDblClick = FileListBoxDblClick
TabOrder = 0
TopIndex = -1
end
object TV: TTreeView
Left = 0
Height = 201
Top = 42
Width = 385
Align = alTop
DefaultItemHeight = 19
ReadOnly = True
TabOrder = 1
OnExpanded = TVExpanded
OnSelectionChanged = TVSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
object Panel1: TPanel
Left = 0
Height = 42
Top = 0
Width = 385
Align = alTop
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 385
TabOrder = 2
object cbHidden: TCheckBox
Left = 200
Height = 22
Top = 8
Width = 134
Caption = 'Show hidden files'
OnChange = cbHiddenChange
TabOrder = 0
end
object btnConfigure: TButton
Left = 8
Height = 25
Top = 7
Width = 90
Caption = 'Configure'
OnClick = btnConfigureClick
TabOrder = 1
end
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 243
Width = 385
Align = alTop
ResizeAnchor = akTop
end
end