Hallo Harry,
vielen Dank für die Antwort.
Leider klappt das so noch nicht ganz.
Wenn ich das so einfüge wird die Template Farbe mit weiß überschrieben.
Aber auch diese Variante funktioniert nicht.
Delphi-Quellcode:
procedure TForm1.ListBoxItem1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
Canvas.Clear(ListBox1.Canvas.Fill.Color);
end;
Gibt es vielleicht noch eine andere Möglichkeit?