//声明: 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;
//效果图:
WinAPI: CreateBrushIndirect 根据画刷结构建立画刷
免责声明:文章转载自《WinAPI: CreateBrushIndirect 根据画刷结构建立画刷》仅用于学习参考。如对内容有疑问,请及时联系本站处理。
上篇Google静态地图如何显示两点之间路线3(url过长–路径简化完结篇)需求规格说明书格式及要求下篇
宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=