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

//声明:

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;


 
   




//效果图:

---