WinAPI: CreatePen - 建立画笔

//声明:
CreatePen(Style, Width: Integer; {样式与笔宽}Color: COLORREF        {颜色}
): HPEN;                 {返回笔句柄}//Style 参数可选值:
PS_SOLID       = 0; {实线}
PS_DASH        = 1; {段线; 要求笔宽<=1}
PS_DOT         = 2; {点线; 要求笔宽<=1}
PS_DASHDOT     = 3; {线、点; 要求笔宽<=1}
PS_DASHDOTDOT  = 4; {线、点、点; 要求笔宽<=1}
PS_NULL        = 5; {不可见}
PS_INSIDEFRAME = 6; {实线; 但笔宽是向里扩展}//举例:
procedure TForm1.FormPaint(Sender: TObject);
varPenStyle: Integer; {Pen 样式}PenHandle: HPEN;   {Pen 句柄}
beginPenStyle := RadioGroup1.ItemIndex;PenHandle := CreatePen(PenStyle, 1, clRed);Canvas.Pen.Handle := PenHandle;Rectangle(Canvas.Handle, 20, 20, 96,160);DeleteObject(PenHandle);
end;procedure TForm1.RadioGroup1Click(Sender: TObject);
beginSelf.Refresh;
end;//效果图:

//测试 PS_SOLID 与 PS_INSIDEFRAME 的区别
procedure TForm1.FormPaint(Sender: TObject);
varPenHandle: HPEN;
beginPenHandle := CreatePen(PS_SOLID, 20, clRed);Canvas.Pen.Handle := PenHandle;Rectangle(Canvas.Handle, 20, 20, 96,132);PenHandle := CreatePen(PS_INSIDEFRAME, 20, clRed);Canvas.Pen.Handle := PenHandle;Rectangle(Canvas.Handle, 120, 20, 196,132);PenHandle := CreatePen(PS_SOLID, 1, clRed);Canvas.Pen.Handle := PenHandle;Rectangle(Canvas.Handle, 220, 20, 296,132);DeleteObject(PenHandle);
end;//效果图:

WinAPI: CreatePen - 建立画笔相关推荐

博客总目录(2007.11.12 - 2010.4.25)
如果我的学习记录和历程能对你有所帮助, 我非常高兴; 但是 -- "万一" 不是高手.更不是大师, 只是利用工作之余学点东西, 并感觉学得挺吃力. 内容都是写时才会, 难免稚嫩, ...
window程序设计（创建、选择和删除画笔）
尽管使用备用对象中的画笔非常方便,但只能使用实心的黑色画笔.实心的白色画笔或者没有画笔三种情况.如果想获得更丰富的效果,则必须创建自己的画笔. 这里是创建画笔的一-般过程:调用CreatePen或者 ...
使用画笔 Stock Pens
Windows使用设备内容中目前选中的「画笔」来画线.画笔决定线的色彩.宽度和画笔样式,画笔样式可以是实线.点划线或者虚线,内定设备内容中画笔为BLACK_PEN.不管映像方式是什么,这种画笔都画出一 ...
VS2019MFC进行无预览简单绘图:直线,画笔,画刷,矩形,椭圆
1.MFC常用绘图函数 CreatePen 创建画笔:属性:线型.宽度.颜色 CreateSolidBrush 创建画刷,填充封闭图形 SetPixel 绘制像素点,返回RGB值 SetPixelV ...
第05章图形基础
图形设备接口(GDI:Graphics Device Interface)是Windows的子系统,它负责在视讯显示器和打印机上显示图形.正如您所认为的那样,GDI是Windows非常重要的部分.不只 ...
Win32 API 函数列表
ID编号函数名函数说明详细说明 Win16支持 Win9x支持 WinNT支持 1 AbortDoc 终止一项打印作业 Yes Yes Yes 2 AbortPath 终止或取消DC中的一切路 ...
Win32 API 函数列表1（格式有点乱）
西安邮电学院徐兆元 ID编号函数名函数说明详细说明 Win16支持 Win9x支持 WinNT支持 1 AbortDoc 终止一项打印作业 Yes Yes Yes 2 AbortPath 终 ...
Windows 程序设计笔记
Windows 程序设计笔记知识点双字节字符集和Unicode字符集有何区别?采用双字节字符集有何问题双字节字符集(DBCS)编码是0-255,DBCS含有1字节代码与2字节代码,而Unico ...
關於電腦鍵盤的基礎知識
在Microsoft Windows 98中,键盘和鼠标是两个标准的使用者输入来源,在一些连贯操作中常产生互补作用.当然,鼠标在今天的应用程序中比十年前使用得更为广泛.甚至在一些应用程序中,我们更习惯 ...

WinAPI: CreatePen - 建立画笔

WinAPI: CreatePen - 建立画笔相关推荐

最新文章

热门文章