FMX Imagelist PNG zufügen

[mmw]

Hallo,
so sollte es funktionieren -

Delphi-Quellcode:

var
  myBitmap:TCustomBitmapitem;
  mysize:Tsize;
  indx:Integer;
begin

myBitmap:=TCustomBitmapitem.Create(nil);

 try
  ImageList1.BitmapItemByName('Image',myBitmap,mysize);
  indx:=mybitmap.Index;

 finally
  myBitmap.Free;
 end; 
end;

Gruß

[creehawk]

Nee, er gibt nur immer eine 0 zurück.

Aber:

    Index := MainForm.ImageList.source.Indexof(Bild); das geht anstandslos. Ha!

Danke dir trotzdem natürlich.

creehawk