home *** CD-ROM | disk | FTP | other *** search
- object SetDirectory: TSetDirectory
- Left = 200
- Top = 108
- ActiveControl = TNewDir
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- ClientHeight = 265
- ClientWidth = 233
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- PixelsPerInch = 96
- TextHeight = 13
- object TNewDir: TEdit
- Left = 8
- Top = 8
- Width = 217
- Height = 21
- TabOrder = 0
- OnChange = TNewDirChange
- end
- object TPath: TDirectoryListBox
- Left = 8
- Top = 34
- Width = 217
- Height = 153
- ItemHeight = 16
- TabOrder = 1
- OnChange = TPathChange
- end
- object TDisk: TDriveComboBox
- Left = 8
- Top = 192
- Width = 217
- Height = 22
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- TextCase = tcUpperCase
- OnChange = TDiskChange
- end
- object Button1: TButton
- Left = 40
- Top = 228
- Width = 75
- Height = 25
- Caption = 'Button1'
- TabOrder = 3
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 118
- Top = 228
- Width = 75
- Height = 25
- Caption = 'Button2'
- TabOrder = 4
- OnClick = Button2Click
- end
- end
-