|
|
|
| |
Определяет диалоговый фрагмент, позволяющий сделать выбор файла.
Создание объекта
frgObj=new TFileListBox(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Directory
| String
| выбранный каталог, также каталог по умолчанию
|
| Drive
| String
| выбранный диск, также диск по умолчанию
|
| FileEdit
| TEdit
| связанное поле редактирования для отображения выбранного файла
|
| FileName
| String
| выбранный файл, также файл по умолчанию
|
| FileType
| Enumset
| комбинируемые флаги на типы отображаемых файлов (см. ниже)
|
| Mask
| String
| маска на имена отображаемых файлов (например, "*.txt")
|
| ShowGlyphs
| Boolean
| отображать иконки, сопоставленные расширениям файлов
|
| Наследуемые от компонента TListBox
| [TYPE]
| [DESC]
|
| AutoComplete
| Boolean
| автоматически прокручивать список до подходящей строки при вводе символа
|
| AutoCompleteDelay
| Number
| задержка в миллисекундах между нажатием клавиши и прокруткой списка до подходящей строки
|
| Columns
| Number
| количество столбцов списка
|
| Count
| Number
| количество строк в списке
|
| ExtendedSelect
| Boolean
| разрешить использование клавиш Ctrl и Shift при установленном свойстве MultiSelect
|
| IntegralHeight
| Boolean
| подгонять высоту окна списка под общую высоту видимых строк
|
| ItemHeight
| Number
| высота строки
|
| ItemIndex
| Number
| индекс выделенной строки
|
| Items
| TStrings
| список строк
|
| MultiSelect
| Boolean
| разрешить выбор нескольких строк
|
| ScrollWidth
| Number
| ширина списка, превышение которой приводит к появлению полосы горизонтальной прокрутки
|
| Selected[]
| Boolean
| индексированный список выделенных строк
|
| Sorted
| Boolean
| сортировать список по алфавиту
|
| TabWidth
| Number
| ширина отступов в базовых единицах диалога (0 - стандартная ширина)
|
| TopIndex
| Number
| индекс первой видимой строки
|
| Только чтение
| [TYPE]
| [DESC]
|
| SelCount
| Number
| количество выделенных строк
|
|
| Свойство FileType
|
| Значение
| Описание
|
| ftArchive
| архивный
|
| ftDirectory
| каталог
|
| ftHidden
| скрытый
|
| ftNormal
| обычный (по умолчанию)
|
| ftReadOnly
| только для чтения
|
| ftSystem
| системный
|
| ftVolumeID
| метка тома
|
|
Стандартные свойства
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnChange
| изменился выбранный файл
|
|
Стандартные события
// Главная форма
frm=new TForm();
frm.Caption="JS+ - фрагмент диалога TFileListBox";
// Строка состояния
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+ | Руководство пользователя
|
|
|
| |
|
|
