- Регистрация
- 1 Мар 2015
- Сообщения
- 1,467
- Баллы
- 155
Создание цветных строк в 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;