ListView расскрасить

← →
HardClubber © (2003-08-13 17:14) [0]

Мастера! Надо раскрасить четные строки одним, нечётные строки другим цветом, выделенные - третьим в ListView при vsReport

Как это делается, с чем вообще работать, с Items или какими-нибудь там rows ( :? ) Что то не доходит до меня...

← →
dez © (2003-08-13 18:30) [1]

OnDrawItem, OnCustomDrawItem

← →
HardClubber © (2003-08-13 23:10) [2]

Это то понятно. А как непосредственно задать цвет фона для Item"а?

← →
Abelisto © (2003-08-13 23:19) [3]

Смотри хелп по OnDrawItem у ЛистБокса, а в нем пример (у меня Delphi 7, как на более поздних версиях - сейчас посмотреть не могу). У ListView по идее то же - прийдется полностью руками рисовать элемент.

← →
Abelisto © (2003-08-13 23:34) [4]

О, только что посмотрел (Delphi 7):
========================
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if odd(item.Index) then
ListView1.Canvas.Brush.Color := clRed
else
ListView1.Canvas.Brush.Color := clWhite;
end;

А насчет выделенных - смотри хелп по State: TCustomDrawState

Ну и пропертю OwnerDraw в True выставить...

Спасибо за внимание :)

← →
HardClubber © (2003-08-14 01:28) [5]

Не... не пашет у меня... дебаггером смотрел, событие работает...
Вроде бы выставляет цвет Brush, но цвета не меняются...

Пока задача не решена...

← →
Abelisto © (2003-08-14 01:33) [6]

Хм... "Ну и пропертю OwnerDraw в True выставить..." не забыл? Если нет - тогда извините. Могу ехе-шник работающий прислать :)
Итак, что нужно проверить:
пропертю OwnerDraw в True
Соббытие - OnCustomDrawItem
После этого должно работать. Если нет - вопрос к мастерам: что мы делаем не так?

← →
HardClubber © (2003-08-14 01:37) [7]

всё сделал... можно попросить код?
HardClubber@pisem.net

вопрос к масетрам остаётся...

← →
Abelisto © (2003-08-14 01:48) [8]

Отправил вроде. Исходники и ехе-ник работающий. Еще раз напоминаю: Delphi 7, так что если прект не будет компилиться...
Под Delphi 5 проверил - тоже работает. Кто то из на что то не так делает ;)

Можешь смеяться... но я поставил OwnerDraw в false - и всё заработало... в любом случае спасибо.

Ха-ха-ха :)))
В любом случае если мастера объяснят фишку... Интересно все же...

аааааа....... понял. просто у меня vsReport, а это критично...

Прочто чу-чуть друг-друга не поняли. Ещё раз спасибо.

ListView расскрасить Найти похожие ветки