Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Внешний вид компонентов



Вернуться к списку функций
 Чередование фона строк в TListView

 Прислал: Subfire (Питер) ( 19 февраля 2003 г. )
©  =) не нужно
 Описание:
Да какое описание...
Вообщем можно просто copy/past сделать...
Хотя реализация не оптимальная, но общая идея - та что нужна =)))

 Зависимости:
нету =)

 Ограничения:
нету=)

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Чередование фона строк в 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;


Вернуться к списку функций

Наверх ▲