Colorlistboxitemstyle bei ListBoxItems! Fehler bei mir oder in FMX? <-

**Mavarik**

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:

zusammenfalten · markieren

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

Colorlistboxitemstyle bei ListBoxItems! Fehler bei mir oder in FMX? <-

Colorlistboxitemstyle bei ListBoxItems! Fehler bei mir oder in FMX? <-

Forumregeln