WinAPI: CreatePatternBrush - 建立位图画刷

//声明:

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;


 
   




//效果图:

---