Чередование фона строк в TListViewDelphi , Компоненты и Классы , TListViewЧередование фона строк в TListView
Автор: Subfire { **** UBPFD *********** by delphibase.endimus.com **** >> Чередование фона строк в TListView Да какое описание... Вообщем можно просто copy/past сделать... Хотя реализация не оптимальная, но общая идея - та что нужна =))) Зависимости: нету =) Автор: Subfire, subfire@mail.ru, Питер Copyright: =) не нужно Дата: 19 февраля 2003 г. ***************************************************** } procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i: word; begin if item = nil then EXIT; i := Item.Index; if trunc((i) / 2) < (i / 2) then sender.canvas.brush.Color := cl3DLight else sender.canvas.brush.Color := clwhite; end; Статья Чередование фона строк в TListView раздела Компоненты и Классы TListView может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросы:: 2009-10-22 22:48:14 :: re:Чередование фона строк в TListViewпользователь: Дмитрий. почемуто не работает Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |