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_) Багель
Статья Отрисовка элементов ListBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal.
