procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
begin
// Очистка
ListBox1.Clear;
S := 'C:\Windows\*.bmp';
// Даем команду листбоксу чтобы он нашел все картинки в папке Windows
// и занес их имена к себе
ListBox1.Perform(LB_DIR, DDL_READWRITE, Longint(@S[1]));
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
// очищаем прямоугольник
FillRect(Rect);
// В зависимости от индекса - определяем цвет
Font.Color := clBlack;
case Index of
0: Font.Color := clBlue;
1: Font.Color := clRed;
2, 4: Font.Color := clGreen;
end;
// Выводим текст
TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
end;
end;
end.
Автор: Александр (Rouse_) Багель
Программа на Delphi, демонстрирующая использование контрола TListBox и его связанных методов для отображения списка файлов в директории.
Декларация модуля
Модуль начинается с стандартной декларации Delphi, которая указывает используемые модули (Windows, Messages, SysUtils и т.д.) и определяет класс TForm1.
Дизайн формы
Форма содержит три компонента: ListBox1, Button1 и пустой фон. ListBox1 настроен для отображения списка файлов, а Button1 используется как триггер для заполнения списка из директории.
Событие клика кнопки
Когда кнопка нажата, происходит следующее:
1. Список очищается с помощью метода Clear.
2. Переменная типа stringS устанавливается в путь к директории Windows (C:\Windows) с добавлением wildcard-карактера *.bmp.
3. Метод Perform списка вызывается с параметрами LB_DIR и DDL_READWRITE, что указывает список на чтение файлов из указанной директории.
Событие рисования элемента списка
Этот обработчик события отвечает за кастомизацию внешнего вида каждого элемента списка при его рисовании. Метод принимает четыре параметра:
1. Control: Контроль, который вызвал это событие (в этом случае, список).
2. Index: Индекс элемента, который рисуется.
3. Rect: Прямоугольник, указывающий область, где должен быть нарисован элемент.
4. State: Значение типа TOwnerDrawState, указывающее состояние элемента (например, выбран или фокусирован).
Внутри этого метода происходит следующее:
1. Канвас списка используется для очистки области рисования с помощью метода FillRect.
2. В зависимости от индекса элемента, цвет шрифта устанавливается в черный, синий, красный или зеленый.
3. Текст элемента рисуется на канвасе с помощью метода TextOut.
Альтернативное решение
Если вы хотите упростить процесс рисования, можно использовать метод DrawItem, предоставляемый контролем списка. Этот метод позволяет нарисовать каждый элемент списка без необходимости обрабатывать рисование самостоятельно. Вот пример, как можно модифицировать код:
Этот код просто передает задачу рисования контроллу списка, который будет обрабатывать ее для вас.
В статье рассмотрен пример отрисовки элементов ListBox в Delphi, включая очистку списка, поиск файлов и их вывод на экран с использованием метода DrawItem.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал