Несколько колонок в TFileListBox

Delphi , Компоненты и Классы , Списки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure ShowMultiColumns(FileListBox: TFileListBox; bValue: Boolean);
 begin
   with TDirectoryListBox(FileListBox) do
   begin
     Columns := Ord(bValue) and (Ord(bValue) and 1);
     SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'), 0);
   end;
 end;

 {Example:}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMultiColumns(FileListBox1, True);
 end;

Here's the translation of the text into Russian:

Этот код на языке Delphi - фрагмент программы, который демонстрирует, как отображать несколько столбцов в контроле TFileListBox. Процедура ShowMultiColumns принимает два параметра: файловый список и булевое значение, указывающее, нужно ли отобразить дополнительный столбец.

Вот разбор, что делает каждая строка:

1. with TDirectoryListBox(FileListBox) do: Это начало with-статements, которое позволяет нам доступ к свойствам и методам объекта TDirectoryListBox, который является родительским контролем для FileListBox.
2. Columns := Ord(bValue) and (Ord(bValue) and 1);: Это устанавливает количество столбцов, отображаемых в файловом списке, на основе значения параметра bValue. Если bValue истинно, то оно устанавливает количество столбцов в 1; иначе оставляет его по умолчанию.
3. SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWWWWW'), 0);: Это отправляет сообщение контролу FileListBox для установки ширины каждого столбца. Метод Canvas.TextWidth возвращает ширину текста "WWWWWWWWWWW" в пикселях, который используется как ширина по умолчанию для каждого столбца.

В примере кода, когда кнопка Button1 нажимается, она вызывает процедуру ShowMultiColumns с FileListBox1 и True как параметрами, что отображает несколько столбцов в файловом списке.

Альтернативное решение:

Вы также можете использовать свойство TFileListBox.Columns для установки количества столбцов. Например:

procedure ShowMultiColumns(FileListBox: TFileListBox; bValue: Boolean);
begin
  FileListBox.Columns := bValue;
end;

Эта APPROACH проще и более прямолинейна, чем использовать with-статements и отправлять сообщение контролу. В целом, это код-снippet предоставляет полезный пример, как можно настроить внешний вид контрола TFileListBox для отображения нескольких столбцов.

Рассмотрен способ отображения нескольких колонок в компоненте TFileListBox Delphi, реализованный с помощью процедуры ShowMultiColumns.

Комментарии и вопросы

:: Главная :: Списки ::