Experts Exchange connects you with the people and services you need so you can get back to work.
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
With Sender.Canvas do
if Item.Selected then
Brush.Color := clRed;
if (Item.Index And 1)=1
Then Brush.Color := clGray
Else Brush.Color := clWhite;
if NC<2 Then Exit;
for i:=1 to NC-1 do
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $159.20.
Premium members get this course for $122.40.
Premium members get this course for $31.25.
Premium members get this course for $12.50.
Premium members get this course for $108.00.