Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

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 проверил - тоже работает. Кто то из на что то не так делает ;)


 
HardClubber ©   (2003-08-14 01:58) [9]

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


 
Abelisto ©   (2003-08-14 02:00) [10]

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


 
HardClubber ©   (2003-08-14 02:00) [11]

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

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



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
1-81682
Гаврилов В.А.
2003-08-11 11:55
2003.08.25
Основная


1-81800
Checist [root]
2003-08-14 02:01
2003.08.25
StringReplace Error !


8-81842
zorg2003
2003-04-26 00:43
2003.08.25
MMSYSTEM some questions


7-81967
INCOGNITO
2003-06-10 11:09
2003.08.25
Программа для работы с USB портом


1-81748
Den[NSP]
2003-08-09 19:37
2003.08.25
AccessViolation, из-за чего???