home *** CD-ROM | disk | FTP | other *** search
- object DirSelect: TDirSelect
- Left = 200
- Top = 132
- ActiveControl = DirectoryListBox
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Select directory'
- ClientHeight = 280
- ClientWidth = 285
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 26
- Top = 200
- Width = 51
- Height = 13
- Caption = 'Alias name'
- end
- object DirectoryListBox: TDirectoryListBox
- Left = 26
- Top = 16
- Width = 233
- Height = 153
- ItemHeight = 16
- TabOrder = 0
- end
- object DriveComboBox: TDriveComboBox
- Left = 26
- Top = 175
- Width = 233
- Height = 19
- DirList = DirectoryListBox
- TabOrder = 1
- TextCase = tcUpperCase
- end
- object bOk: TButton
- Left = 41
- Top = 243
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- OnClick = bOkClick
- end
- object AliasName: TEdit
- Left = 26
- Top = 213
- Width = 233
- Height = 21
- TabOrder = 3
- Text = 'New Alias'
- end
- object Button1: TButton
- Left = 168
- Top = 243
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 4
- end
- end
-