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

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

Здравствуйте, эксперты!
Есть ListView допустим с 5 итемами в каждом по 3 сабитема.
Задача закрасить один сабитем(любой) в красный цвет по нажатию кнопки.
В чём проблема: я знаю как закрасить сабитем при событии ListView1CustomDrawItem, но не знаю как это сделать по нажатию кнопки( допустим итем2, сабитем3).

Надеюсь на помощь.

Вопрос задал: zver777 (статус: Посетитель) Вопрос отправлен: 27 июля 2010, 23:19 Состояние вопроса: решён, ответов: 2.

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

Здравствуйте, zver777!
Описываю идею, как это сделать.
Для начала заводиться глобальная буленова переменная (поле класса, отдельный класс, не суть важно - вопрос дизайна). Теперь, если переменная true, рисуем одним цветом, если нет - другим. То есть, код отрисовки в ListView1CustomDrawItem будет таким

if flag then begin
 //тут код отрисовки красным, Вы его знаете
end
else begin
//тут либо нет кода, либо код отрисовки нейтральным цветом.
end;

flag := not flag; //инвертируем переменую
ListView1.Refresh; //либо другой эквивалент, что бы обновилось

Ответ отправил: Вадим К (статус: Академик) Время отправки: 28 июля 2010, 00:56 Оценка за ответ: 5 Комментарий к оценке: За помощь

Ответ #2. Отвечает эксперт: DNK

Здравствуйте, zver777!
Добавлю к предыдущему ответу с учетом пожелания в мини-форуме.

Код в обработчике кнопки:

ListView1.items[i].subitems.Objects[j] := TObject(clRed);
ListView1.Refresh;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var cl: TColor;
begin
  // Получаем нужный цвет
  cl := TColor(Item.SubItems.Objects[SubItem]);
  // И дальше используем его для отрисовки
 
end;

Ответ отправил: DNK (статус: Студент) Время отправки: 28 июля 2010, 13:13 Оценка за ответ: 5 Комментарий к оценке: Спасибо. То что нужно.

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

zver777 (статус: Посетитель), 28 июля 2010, 01:04 [#1]: Спасибо. Я о таком решении думал, но надеялся что есть что-нибудь типа listview1.items.item[i].subitems.subitem[j].color:=clred

Вадим К (статус: Академик), 28 июля 2010, 01:09 [#2]: Если понять идею того, что я написал выше, можно много вещей делать просто Галочка "подтверждения прочтения" - вселенское зло.

31 января 2011, 19:36: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

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