Icon aus Resource in eine Imagelist?

[Pseudemys Nelsoni]

siehe topic,

wie mache ich das?

hatte es schon hiermit versucht:

imagelist1.ResourceLoad(restype, 'ICO_READ_CD', clRed); geht aber nicht :\

[Niko]

Hi,

das sollte so funktionieren:
ImageList1.GetResource(rtIcon, 'ICO_READ_CD', 0, lrNone, clRed);

[Pseudemys Nelsoni]

hallo, leider geht es nicht

die imagelist ist immernoch leer, denn:

imagelist1.GetIcon(0, image1.Picture.Icon); funktionietr nicht(weil kein bild da)

[Niko]

Hm, komisch.

Aber wenn's mit den Borland-Funktionen nicht geht, dann eben ganz altmodisch über die Win-API :

Delphi-Quellcode:

var
  Hd: THandle;
  Ico: TIcon;

//...

Hd := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
Ico := TIcon.Create;
try
  Ico.ReleaseHandle;
  Ico.Handle := Hd;
  ImageList1.AddIcon(Ico);
finally
   Ico.Free;
end;