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

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

FMX Combobox mit BMP

FMX Combobox mit BMP

AW: FMX Combobox mit BMP

AW: FMX Combobox mit BMP

AW: FMX Combobox mit BMP

Forumregeln

Rollo62 Registriert seit: 15. Mär 2007 3.896 Beiträge Delphi 12 Athens	#2 AW: FMX Combobox mit BMP 29. Jan 2021, 15:39 https://www.delphipraxis.net/189562-...ch-styles.html
	Zitat

franktron Registriert seit: 11. Nov 2003 Ort: Oldenburg 1.446 Beiträge Delphi 10.2 Tokyo Enterprise	#3 AW: FMX Combobox mit BMP 1. Feb 2021, 08:53 Das habe ich auch schon gefunden geht aber leider nicht mit einer Combobox Frank Tux sein Lieblingsquellcode While anzfische<TuxSatt do begin Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
	Zitat