ich habs mal so probiert: (im2 ist auch ein TImage, SrcRect und DestRect vom typ TRect)
Delphi-Quellcode:
[...]
j.LoadFromStream(r);
Im.Picture.Assign(j);
ImageToBitmap(Im);
SrcRect.Left := im.Picture.Width div 2 - 12;
SrcRect.Top := im.Picture.Height div 2 - 12;
SrcRect.Right := im.Picture.Width div 2 + 12;
SrcRect.Bottom := im.Picture.Height div 2 + 12;
DestRect := Rect(0, 0, 24, 24);
Im2.Canvas.CopyRect(DestRect, Im.Canvas, SrcRect);
ImageList1.Add(im2.Picture.Bitmap, im2.Picture.Bitmap);
[...]
aber irgendwie kommen dann nur schwarze kästchen...
mit dem ganzen image/bitmap/picture/canvas zeugs blick ich net durch^^
kann mir jemand sagen was ich falsch mache?