Привет всем !!!
Не могу поменять цвет строки в listview нужно в зависимости от пользователя (что он выбирет) поменять цвет строки их 2 красный и зеленый
написал такой код
procedure TForm1.Button2Click(Sender: TObject);
begin
ListView.Canvas.Font.Color:=clWindowText;
ListView.Canvas.Brush.Color := clLime;// нужный цвет
ListItem := ListView.Items.Add;
Listitem.Caption := ADOTable1.Fields[0].AsString;
ListItem.SubItems.Add (ADOTable1.Fields[1].AsString);
end;
не прет добавляет но не светит
помогите разобраться
Добавлено через 1 час 4 минуты
Все ребята сам разобрался
procedure TForm1.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.SubItems[1]='1' then
ListView.Canvas.Brush.Color := clLime
else
ListView.Canvas.Brush.Color := clred;
end;