Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
13-06-2004 09:17
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
If Odd(Item.Index) then Begin //чётные строки
TListView(Sender).Canvas.Font.Color:=clBlack;
TListView(Sender).Canvas.Brush.Color:=clYellow;
End
else Begin //нечётные строки
TListView(Sender).Canvas.Font.Color:=clBlack;
TListView(Sender).Canvas.Brush.Color:=clGreen;
End;
end;
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
