procedure TForm3.Button1Click(Sender: TObject);
begin
with ListView1.Items.Add do
begin
Text := '...';
Data['STATUS'] := 'Signal';
end;
with ListView1.Items.Add do
begin
Text := '...';
Data['STATUS'] := 'Normal';
end;
ListView1.Resize;
end;
procedure TForm3.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem);
var
TextObject: TListItemText;
begin
TextObject := AItem.Objects.FindDrawable('STATUS') As TListItemText;
if TextObject = nil then
begin
TextObject := TListItemText.Create(AItem);
TextObject.Name := 'STATUS';
end;
if TextObject.Text = 'Signal' Then
TextObject.TextColor := TAlphaColorRec.Red
else
TextObject.TextColor := TAlphaColorRec.Black;
end;
остальное сами настроете