Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Сен

Покрасить строки в ListView начиная со второй

Posted by micher under Delphi

artemavd

Нужно, чтобы раскраска ListView осуществлялась со второй по счету строки. Не от заголовка надо отсчет вести, а от первой строки.

Человек_Борща

Вот закрашивание др. элементов кроме 0-го(1-го для нас) в списке:



procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;

  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

const

  col:array[0..7] of TColor = (clRed,clGreen,clBlue,clBlack,clLime,clMaroon,clDkGray,clYellow);

begin

  if Item.index > 0 then //Если мы не первыев списке.

   Sender.Canvas.Brush.Color:=Col[RandomRange(0,7)]; //Math Unit for RandomRange needed.

end;
procedure TForm1.Button1Click(Sender: TObject);

var

LI:TListItem;

i:Integer;

begin

 for i:=0 to 10 do

 begin

   li:=ListView1.Items.Add;

   LI.Caption:=IntToStr(i);

 end;

end;
end.