Кто нибудь может помочь примером на вопрос № 35177?
Запарился уже. У меня в третьем SubItem'е у ListView (Report стиль) при заполенении появляются различные слова. Так как-то можно ведь сделать, чтобы, если я там видел определенное слово, то во всей строке шрифт бы был красный. Т.е. в заполененом списке были строки и с шрифтом по умолчанию и выделенные красным шрифтом? При том значение на закраску читается не из Item'a, что не сложно сделать, а из SubItem'a.
Перерыл все 200 с чем-то вопросов и ничего не нашел подходящего.
Помогите пожалуйста!
Это точно можно сделать, т.к. у меня есть рабочая прога с таким же эффектом и писаная на дельфях.
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.SubItems.Count > 0 then
if Item.SubItems[Item.SubItems.Count-1] = 'Green' then
Sender.Canvas.Font.Color:=clGreen
else if Item.SubItems[Item.SubItems.Count-1] = 'Blue' then
Sender.Canvas.Font.Color:=clBlue
else
Sender.Canvas.Font.Color:=clBlack;
(*
case Item.Index of
0: Sender.Canvas.Font.Color:=clGreen;
1: Sender.Canvas.Font.Color:=clBlue;
end;
*)
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.