procedure WinControlDrawImage(WinControl: TWinControl; Graphic: TGraphic);
var
MCanvas: TControlCanvas;
begin
MCanvas := TControlCanvas.Create;
try
MCanvas.Control := WinControl;
MCanvas.StretchDraw(MCanvas.ClipRect, Graphic);
finally
MCanvas.Free;
end;
end;
本文介绍了一种在Delphi中使用TControlCanvas进行图形拉伸绘制的方法。通过创建TControlCanvas实例并设置其Control属性为指定的TWinControl,然后调用StretchDraw方法将TGraphic对象拉伸绘制到画布的裁剪矩形区域。

1万+

被折叠的 条评论
为什么被折叠?



