WinAPI: CreateSolidBrush - 建立实心画刷

最新推荐文章于 2022-01-06 01:44:09 发布

转载最新推荐文章于 2022-01-06 01:44:09 发布 · 158 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319856

本文介绍如何使用CreateSolidBrush函数创建一个指定颜色的画刷，并将其应用于窗体背景的绘制。通过示例代码展示了从创建画刷到填充窗体背景的全过程。

为什么80%的码农都做不了架构师？>>>

//声明:
CreateSolidBrush(
  p1: COLORREF {颜色值}
): HBRUSH;     {返回画刷句柄}

 
 
 
 
 

 

 

  

//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  BrushHandle: HBRUSH;
begin
  BrushHandle := CreateSolidBrush(clYellow);
  FillRect(Canvas.Handle, ClientRect, BrushHandle);
  DeleteObject(BrushHandle);
end;

 
 
 
 
 

 

 

  

//效果图: