Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
