|
|
|
| |
Определяет диалоговый фрагмент, позволяющий сделать выбор накопителя информации.
Создание объекта
frgObj=new TDriveComboBox(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| DirList
| TDirectoryListBox
| связанный фрагмент для выбора каталога
|
| Drive
| String
| выбранный диск, также диск по умолчанию
|
| TextCase
| Enum
| регистр отображения информации (см. ниже), то же, что и CharCase
|
| Наследуемые от компонента TComboBox
| [TYPE]
| [DESC]
|
| AutoCloseUp
| Boolean
| автоматически закрывать список, если в поле редактирования введена уже имеющаяся строка
|
| AutoComplete
| Boolean
| автоматически прокручивать список до подходящей строки при вводе символа
|
| AutoCompleteDelay
| Number
| задержка в миллисекундах между нажатием клавиши и прокруткой списка до подходящей строки
|
| AutoDropDown
| Boolean
| автоматически раскрывать список, если в поле редактирования введена часть имеющейся строки
|
| CharCase
| Enum
| регистр отображения информации (см. ниже), то же, что и TextCase
|
| DropDownCount
| Number
| максимальное количество видимых строк в выпадающем списке
|
| DroppedDown
| Boolean
| выпадающий список развернут
|
| ItemHeight
| Number
| высота строки выпадающего списка
|
| ItemIndex
| Number
| индекс выбранной строки выпадающего списка
|
| Items
| TStrings
| набор строк выпадающего списка
|
| SelLength
| Number
| длина выделенного текста в поле редактирования
|
| SelStart
| Number
| индекс первого символа выделенного текста в поле редактирования
|
| SelText
| String
| выделенный текст в поле редактирования
|
| Sorted
| Boolean
| сортировать список по алфавиту
|
| Style
| Enum
| стиль отображения комбинированного списка (см. ниже)
|
| Только чтение
| [TYPE]
| [DESC]
|
| Text
| String
| текст в поле редактирования
|
|
| Свойство TextCase
|
| Значение
| Описание
|
| tcAsIs
| как есть
|
| tcLowerCase
| в нижнем регистре
|
| tcUpperCase
| в верхнем регистре
|
|
| Свойство CharCase
|
| Значение
| Описание
|
| ecNormal
| не преобразовывать регистр отображения текста (по умолчанию)
|
| ecUpperCase
| отображать текст прописными буквами
|
| ecLowerCase
| отображать текст строчными буквами
|
|
| Свойство Style
|
| Значение
| Описание
|
| csDropDown
| выпадающий список (поле редактирования можно изменять)
|
| csSimple
| развернутый список (поле редактирования можно изменять)
|
| csDropDownList
| выпадающий список (поле редактирования нельзя изменять)
|
|
Стандартные свойства
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnChange
| изменился выбранный диск
|
| Наследуемые от компонента TComboBox
| [DESC]
|
| OnCloseUp
| выпадающий список свернут
|
| OnDropDown
| выпадающий список развернут
|
| OnSelect
| выбрана строка из выпадающего списка
|
|
Стандартные события
// Главная форма
frm=new TForm();
frm.Caption="JS+ - фрагмент диалога TDriveComboBox";
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Выберите диск/папку/файл/фильтр";
// Метка диска
ldc=new TLabel(frm);
ldc.Left=10;
ldc.Caption="Диск:";
// Диски
dcb=new TDriveComboBox(frm);
dcb.Left=ldc.Left+ldc.Width+5;
dcb.Top =10;
dcb.Width=200;
dcb.Drive=getWinDir().charAt(0);
dcb.OnChange=xxx_Change;
ldc.Top=dcb.Top+(dcb.Height-ldc.Height)/2;
// Папки
dlb=new TDirectoryListBox(frm);
dlb.BorderStyle=bsSingle;
dlb.Left=ldc.Left;
dlb.Top =dcb.Top+dcb.Height+5;
dlb.Width =dcb.Left+dcb.Width-ldc.Left;
dlb.Height=dlb.Width*1.5;
dlb.Directory=getWinDir();
dlb.OnChange=xxx_Change;
// Метка фильтра
lfc=new TLabel(frm);
lfc.Left=dlb.Left+dlb.Width+10;
lfc.Top =ldc.Top;
lfc.Caption="Фильтр:";
// Фильтры
fcb=new TFilterComboBox(frm);
fcb.Left=lfc.Left+lfc.Width+5;
fcb.Top =dcb.Top;
fcb.Width=350;
fcb.Filter=
"Документы (doc, ppt, xls)|*.doc;*.ppt;*.xls|"+
"Изображения (bmp, gif, jpg, ico, png)|*.bmp;*.gif;*.jpg;*.ico;*.png|"+
"Программы (bat, com, exe)|*.bat;*.com;*.exe|"+
"Все файлы|*.*";
fcb.ItemIndex=fcb.Items.Count-1;
fcb.OnChange=xxx_Change;
// Файлы
flb=fcb.FileList=new TFileListBox(frm);
flb.BorderStyle=bsSingle;
flb.Left=dlb.Left+dlb.Width+10;
flb.Top =dlb.Top;
flb.Width =fcb.Left+fcb.Width-lfc.Left;
flb.Height=dlb.Height;
flb.Directory=dlb.Directory;
flb.OnChange=xxx_Change;
frm.ClientWidth =flb.Left+flb.Width+10;
frm.ClientHeight=flb.Top+flb.Height+stb.Height+10;
frm.ShowModal();
// Обработчик событий OnChange
function xxx_Change(src)
{
var stb_Str="";
switch (src) {
case dcb:// Диск
stb_Str=flb.Directory=
dlb.Directory=dcb.Drive.toUpperCase()+":\\";
break;
case dlb:// Папка
if ((stb_Str=flb.Directory=dlb.Directory).length>3)
stb_Str+="\\";
break;
case flb:// Файл
stb_Str=flb.FileName;
break;
case fcb:// Фильтр
stb_Str="Выбрана маска: "+fcb.Mask;
}
stb.SimpleText=" "+stb_Str;
}
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
