var
// picOriginal: TPicture;
srcBMP: TBitmap;
begin
srcBMP := TBitmap.Create;
srcBMP.Width := 200;
srcBMP.Height := 200;
srcBMP.Canvas.StretchDraw(Rect(0, 0, srcBMP.Width, srcBMP.Height),
image2.Picture.Graphic);
image2.Picture.Assign(nil);
image2.Picture.Bitmap.Assign(srcBMP);
srcBMP.Free;
end;
delphi 图片转bmp
最新推荐文章于 2023-11-28 18:39:59 发布