No Delphi 10 com Firemonkey, em tempo de execução eu preciso que ao clicar em um item de lista de um TListView, a cor de fundo deste item seja alterada e permaneça assim mesmo que eu clique em outro item. Depois, mesmo se clicar em outro item, a cor de fundo deste também será alterada e se manterá dessa forma.
Já vi dizerem para usar o TStyleBook e alterar o estilo dos item do ListView, mas não consegui montar o código para executar em runtime.
Imaginei algo assim, mas não funcionou:
procedure TForm1.lvListasItemClickEx(const Sender: TObject; ItemIndex: Integer;
const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
var Obj: TFmxObject;
begin
Obj := ListView1.FindStyleResource('itembackground');
if Obj <> nil then
begin
TColorObject(Obj).Color := TAlphaColorRec.Blue;
end;
end;
Este código não dá erro, mas não funciona. Além disso eu preciso que seja executada a troca de cor apenas no item clicado.