Question

delphi imagelist保存图片的问题！

两个imagelist 一个大小为64×64 ，另一个为48×48，如何将64×64的图片保存到48 × 48的imagelist中去呢？

Answer 1

procedure copyimage(formil, toil: timagelist; index: integer); //index为图片序号
var
bmp, fbmp: tbitmap;
begin
fbmp := tbitmap.Create;
bmp := tbitmap.Create;
bmp.Height := toil.Height;
bmp.Width := toil.Width;
formil.GetBitmap(index, fbmp);
SetStretchBltMode(bmp.Canvas.Handle, HalfTone);
stretchblt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height,
fbmp.Canvas.Handle, 0, 0, fbmp.Width, fbmp.Height , SRCCOPY);
bmp.Transparent := true;
bmp.TransparentMode := tmAuto;
toil.Add(bmp, nil);
bmp.Free;
fbmp.Free;
end;