|
|
Определяет диалоговый фрагмент, позволяющий сделать выбор фильтра на имена файлов.
Создание объекта
frgObj=new TFilterComboBox(Parent);
Собственные свойства
|
Свойство
| Тип
| Описание
|
DirList
| TDirectoryListBox
| связанный фрагмент для выбора каталога
|
Drive
| String
| выбранный диск, также диск по умолчанию
|
FileList
| TFileListBox
| связанный фрагмент для выбора файла
|
Filter
| String
| текстовая строка специального формата для указания фильтров (см. Пример ниже)
|
Наследуемые от компонента TComboBox
| [TYPE]
| [DESC]
|
AutoCloseUp
| Boolean
| автоматически закрывать список, если в поле редактирования введена уже имеющаяся строка
|
AutoComplete
| Boolean
| автоматически прокручивать список до подходящей строки при вводе символа
|
AutoCompleteDelay
| Number
| задержка в миллисекундах между нажатием клавиши и прокруткой списка до подходящей строки
|
AutoDropDown
| Boolean
| автоматически раскрывать список, если в поле редактирования введена часть имеющейся строки
|
DropDownCount
| Number
| максимальное количество видимых строк в выпадающем списке
|
DroppedDown
| Boolean
| выпадающий список развернут
|
ItemHeight
| Number
| высота строки выпадающего списка
|
ItemIndex
| Number
| индекс выбранной строки выпадающего списка
|
Items
| TStrings
| набор строк выпадающего списка
|
SelLength
| Number
| длина выделенного текста в поле редактирования
|
SelStart
| Number
| индекс первого символа выделенного текста в поле редактирования
|
SelText
| String
| выделенный текст в поле редактирования
|
Sorted
| Boolean
| сортировать список по алфавиту
|
Только чтение
| [TYPE]
| [DESC]
|
Mask
| String
| маска на имена отображаемых файлов из текущего фильтра
|
Text
| String
| текст в поле редактирования
|
|
Стандартные свойства
Стандартные методы
Собственные события
|
Событие
| Описание
|
OnChange
| изменился выбранный фильтр
|
Наследуемые от компонента TComboBox
| [DESC]
|
OnCloseUp
| выпадающий список свернут
|
OnDropDown
| выпадающий список развернут
|
OnSelect
| выбрана строка из выпадающего списка
|
|
Стандартные события
// Главная форма frm=new TForm(); frm.Caption="JS+ - фрагмент диалога TFilterComboBox";
// Строка состояния 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+ | Руководство пользователя
|
|
|
|
|
|