WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷

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

//声明:
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;

 
 
 
 
 

 

 

  

//效果图:

---

转载于:https://my.oschina.net/hermer/blog/320291