WinAPI: CreatePen - 建立画笔

最新推荐文章于 2018-08-24 11:44:37 发布

转载最新推荐文章于 2018-08-24 11:44:37 发布 · 209 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/321018

本文深入探讨了编程领域中，为何大部分程序员难以晋升为架构师的原因，从技术能力、思维模式、沟通协作等多个维度解析这一现象。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

//声明:
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);
var
  PenStyle: Integer; {Pen 样式}
  PenHandle: HPEN;   {Pen 句柄}
begin
  PenStyle := 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);
begin
  Self.Refresh;
end;

 
 
 
 
 

 

 

  

//效果图:

//测试 PS_SOLID 与 PS_INSIDEFRAME 的区别
procedure TForm1.FormPaint(Sender: TObject);
var
  PenHandle: HPEN;
begin
  PenHandle := 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;

 
 
 
 
 

 

 

  

//效果图: