Hallo Zusammen!
Ich erzeuge eine ListBox mit entsprechenden Items im Source dynamisch und setze den Style auf "colorlistboxitemstyle".
Wenn ich dann die Farbe (z.B. im OnClick) setze mit:
Delphi-Quellcode:
Procedure SetListBoxItemBarColor(LBItem : TListBoxItem;Color : TAlphaColor);
var
ColorObj: TFmxObject;
begin
ColorObj := LBItem.FindStyleResource('color');
if ColorObj is TShape then
TShape(ColorObj).Fill.Color := Color;
end;
procedure MyListBoxItemClick(Sender: TObject);
begin
SetListBoxItemBarColor(TListBoxItem(Sender),SelectedGood);
end;
Wir die Farbe zwar gesetzt, aber wenn ich die Listbox scrolle werden beliebige Items mit der Farbe gesetzt.
Ist das ein Fehler im FMX oder muss ich bei mir weiter suchen?
Mavarik