Also möchtest du quasi sowas
Delphi-Quellcode:
procedure TForm1.Paintbox1Paint( Sender : TObject );
begin
if Assigned( LV.Selected ) then
begin
// Aktuelles ListItem-Icon zeichnen
PaintBox1.Canvas.Draw( ... );
end;
end;
und immer wenn sich das ListView-Item ändert, dann einfach ein
PaintBox1.Invalidate;
und die malt sich wieder selber.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)