WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷
WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷
涂孟超 发表于3年前
WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷
  • 发表于 3年前
  • 阅读 9
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

//声明:
CreateBrushIndirect(
  const p1: TLogBrush {画刷结构}
): HBRUSH;            {返回画刷句柄}

//TLogBrush 是 tagLOGBRUSH 结构的重定义:
tagLOGBRUSH = packed record
  lbStyle: UINT;     {画刷风格}
  lbColor: COLORREF; {颜色}
  lbHatch: Longint;  {阴影样式}
end;

//lbStyle 可选值:
BS_SOLID         = 0;
BS_NULL          = 1;
BS_HOLLOW        = BS_NULL;
BS_HATCHED       = 2;
BS_PATTERN       = 3;
BS_INDEXED       = 4;
BS_DIBPATTERN    = 5;
BS_DIBPATTERNPT  = 6;
BS_PATTERN8X8    = 7;
BS_DIBPATTERN8X8 = 8;
BS_MONOPATTERN   = 9;

//lbHatch 可选值:
HS_HORIZONTAL = 0;
HS_VERTICAL   = 1; 
HS_FDIAGONAL  = 2; 
HS_BDIAGONAL  = 3; 
HS_CROSS      = 4; 
HS_DIAGCROSS  = 5;

 
 
 
 
 

 

 

  
//举例: procedure TForm1.FormPaint(Sender: TObject); var b: TLogBrush; BrushHandle: HBRUSH; begin b.lbStyle := BS_HATCHED; b.lbColor := clRed; b.lbHatch := HS_CROSS; BrushHandle := CreateBrushIndirect(b); Canvas.Brush.Handle := BrushHandle; FillRect(Canvas.Handle, ClientRect, BrushHandle); DeleteObject(BrushHandle); end;
//效果图:

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: