大家好，欢迎来到IT知识分享网。
//声明:
CreatePatternBrush(
Bitmap: HBITMAP {位图句柄}
): HBRUSH; {返回画刷句柄}
//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
Bitmap: TBitmap;
BrushHandle: HBRUSH;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\temp\bg.bmp');
BrushHandle := CreatePatternBrush(Bitmap.Handle);
FillRect(Canvas.Handle, ClientRect, BrushHandle);
DeleteObject(BrushHandle);
end;
//效果图:
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/34122.html
