Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!

Есть такая задача:
У нас есть допустим такой ListView
http://s46.radikal.ru/i113/1006/9e/e528c13d48d6.png

Как в "столбец3" во второй строке "dddsssddd" покрасить sss в красный цвет?

Вопрос задал: zver777 (статус: Посетитель) Вопрос отправлен: 21 июня 2010, 13:13 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, zver777!
вот где то так

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
if (SubItem = 2) and (item.index = 1) then //задали условия
begin
Sender.Canvas.Pen.Color := clRed; //цвет шрифта
Sender.Canvas.Brush.Color := clGreen; //цвет фона
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 21 июня 2010, 13:53

Мини-форум вопроса

min@y™ (статус: Доктор наук), 21 июня 2010, 13:28 [#1]: Цитата (zver777): Как в "столбец3" во второй строке "dddsssddd" покрасить sss в красный цвет? У TListView есть событие OnCustomDrawSubItem. Воспользуйся. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

26 июня 2010, 21:48: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А. Причина: ListView - не компонент?

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.