jvcl driver development envionment
源代码在线查看： mainform.dfm
object frmMain: TfrmMain
Left = 192
Top = 107
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'JvBrowseFolder test'
ClientHeight = 289
ClientWidth = 439
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object GroupBox2: TGroupBox
Left = 4
Top = 2
Width = 433
Height = 139
Caption = '[ Options ]'
TabOrder = 0
object Label4: TLabel
Left = 62
Top = 20
Width = 23
Height = 13
Caption = 'Title:'
end
object Label5: TLabel
Left = 14
Top = 46
Width = 71
Height = 13
Caption = 'Root Directory:'
end
object Edit4: TEdit
Left = 92
Top = 16
Width = 327
Height = 21
TabOrder = 0
Text = 'JVCL - TJvBrowseForFolderDialog Test'
end
object CheckBox1: TCheckBox
Left = 10
Top = 72
Width = 107
Height = 17
Caption = 'New Dialog Style'
Checked = True
State = cbChecked
TabOrder = 1
end
object CheckBox2: TCheckBox
Left = 10
Top = 92
Width = 119
Height = 17
Caption = 'Browse For Computer'
TabOrder = 2
end
object CheckBox3: TCheckBox
Left = 10
Top = 112
Width = 97
Height = 17
Caption = 'Only Directory'
Checked = True
State = cbChecked
TabOrder = 3
end
object CheckBox4: TCheckBox
Left = 158
Top = 72
Width = 97
Height = 17
Caption = 'Only Printers'
TabOrder = 4
end
object CheckBox5: TCheckBox
Left = 158
Top = 92
Width = 97
Height = 17
Caption = 'Include Files'
TabOrder = 5
end
object CheckBox6: TCheckBox
Left = 158
Top = 112
Width = 97
Height = 17
Caption = 'Include Urls'
TabOrder = 6
end
object CheckBox7: TCheckBox
Left = 278
Top = 72
Width = 97
Height = 17
Caption = 'Show Edit Box'
TabOrder = 7
end
object CheckBox8: TCheckBox
Left = 278
Top = 92
Width = 97
Height = 17
Caption = 'Shareable'
TabOrder = 8
end
object ComboBox1: TComboBox
Left = 92
Top = 42
Width = 327
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 9
Items.Strings = (
'Root Folder'
'Control Panel'
'Recycle Bin'
'Desktop'
'Desktop Directory'
'My Computer'
'Fonts'
'NetHood'
'Network'
'Personal'
'Printers'
'Programs'
'Recent Files'
'SendTo'
'StartMenu'
'Startup'
'Templates')
end
end
object GroupBox1: TGroupBox
Left = 4
Top = 182
Width = 433
Height = 103
Caption = '[ Results ]'
TabOrder = 1
object Label1: TLabel
Left = 34
Top = 20
Width = 45
Height = 13
Caption = 'Directory:'
end
object Label2: TLabel
Left = 10
Top = 74
Width = 69
Height = 13
Caption = 'Current Folder:'
end
object Label3: TLabel
Left = 11
Top = 46
Width = 68
Height = 13
Caption = 'Display Name:'
end
object Edit1: TEdit
Left = 92
Top = 16
Width = 327
Height = 21
ReadOnly = True
TabOrder = 0
end
object Edit2: TEdit
Left = 92
Top = 42
Width = 327
Height = 21
ReadOnly = True
TabOrder = 1
end
object Edit3: TEdit
Left = 92
Top = 70
Width = 327
Height = 21
ReadOnly = True
TabOrder = 2
end
end
object Button1: TButton
Left = 178
Top = 152
Width = 75
Height = 25
Caption = '&Test'
TabOrder = 2
OnClick = Button1Click
end
object JvBrowseFolder1: TJvBrowseForFolderDialog
Position = fpScreenCenter
RootDirectory = fdRootFolder
Title = 'Titre de mes deux'
OnChange = JvBrowseFolder1Change
Left = 326
Top = 134
end
end
