home *** CD-ROM | disk | FTP | other *** search
- object SelDirectory: TSelDirectory
- Left = 200
- Top = 108
- Width = 310
- Height = 367
- Caption = 'Select Directory'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 308
- Width = 302
- Height = 30
- Align = alBottom
- BevelOuter = bvLowered
- TabOrder = 1
- object Button1: TButton
- Left = 136
- Top = 3
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object Button2: TButton
- Left = 222
- Top = 3
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object Button3: TButton
- Left = 5
- Top = 3
- Width = 75
- Height = 25
- Caption = '&New'
- TabOrder = 2
- OnClick = Button3Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 302
- Height = 15
- Align = alTop
- BevelOuter = bvLowered
- Caption = 'Select folder...'
- TabOrder = 0
- end
- object dirtree1: TSystemTreeView
- Left = 0
- Top = 15
- Width = 302
- Height = 293
- Version = 'TSystemTreeView v0.82 Beta'
- Indent = 19
- Align = alClient
- ParentColor = False
- TabOrder = 2
- end
- object MultiLang1: TMultiLang
- Languages = 2
- Words.Strings = (
- '%Form%'
- 'SelDirectory'
- '')
- CharSets.Strings = (
- 'MS Sans Serif,1'
- 'MS Sans Serif,1')
- end
- end
-