Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Создание цветных строк в ListBox
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
//далее можно задать наше условие для цвета отдельных строк
if Index=3 then
begin
Font.Color := clRed; //здесь любой ваш цвет. Можно и другие параметры шрифта задать, например, Bold...
Font.Style:=Font.Style+[fsBold];
Brush.Color:=clYellow;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;