1,184
社区成员
发帖
与我相关
我的任务
分享
var FGraphics : TGpGraphics;
FImage : TGPImage;
Rect : TGpRect;
begin
try
FGraphics := TGpGraphics.Create(Form1.Canvas.Handle);
Rect := GpRect(650,140,100,100); //X,Y 坐标,需要绘制的长度和宽度
FImage := TGPImage.Create('4.gif');
FGraphics.DrawImage(FImage,Rect,0,0,100,100,utPixel); // 0,0,320,240Rect 范围内的起始坐标和原图像大小
Finally
FGraphics.Free;
FImage.Free;
end;
end;