FMX Combobox mit BMP

[franktron]

Ich habe eine Problem mit der FMX Combobox

Delphi-Quellcode:

Var
  Item  : TComboItem;
  Item1 : TListBoxItem;
  BMP   : TBitmap;
begin
  Item1:=TListBoxItem.Create(Nil);
  Item1.ItemData.Text:=aText;
  Item1.Parent:=Combo_1;
  Item1.ItemData.Detail:=IntToStr(Combo_1.Items.Count);

  BMP:=TBitmap.Create;
  BMP.Width:=10;
  BMP.Height:=10;
  BMP.Canvas.BeginScene();
  BMP.Canvas.Fill.Color:=TAlphaColorRec.Red;
  BMP.Canvas.Fill.Kind:=TBrushKind.Solid;
  BMP.Canvas.FillRect(RectF(0,0,10,10),0,0,AllCorners,1);
  BMP.Canvas.EndScene;
  BMP.SaveToFile('test.bmp');
  Item1.ItemData.Accessory:=TListBoxItemData.TAccessory.aMore;

  Item1.ItemData.Bitmap.LoadFromFile('test.bmp');
  
  //Item1.OnPaint:=lst1Paint;
  Combo_1.AddObject(Item1);

Wenn ich diesen Code Benutze wird kein Bild in der Combobox angezeigt.

Das speichern des BMP dient nur zum Testen und es ist ein Rotes Quadrat.

Was habe ich da Falsch gemacht

[Rollo62]

https://www.delphipraxis.net/189562-...ch-styles.html

[franktron]

Das habe ich auch schon gefunden geht aber leider nicht mit einer Combobox

[Moombas]

Hilft dir das ggf. weiter:
http://docwiki.embarcadero.com/Libra...omboBox.Images

Demnach musst du nach dem ändern noch einen Aufruf machen.
"Call ImagesChanged when Images is changed."

Und sonst:
https://stackoverflow.com/questions/...-in-firemonkey