10、Delphi 3 Win32 图形 API 绘画与绘图函数详解

fire9

于 2025-08-16 09:06:50 发布

阅读量42

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi图形API精要文章标签： Delphi 3 Win32 API 图形编程

本文链接：https://blog.youkuaiyun.com/fire9/article/details/151006211

Delphi图形API精要专栏收录该内容

23 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Delphi 3 Win32 图形 API 绘画与绘图函数详解

1. 创建新笔（CreatePen）

1.1 代码示例

procedure TForm1.Button1Click(Sender: TObject);
var
  Style: Integer;     // holds the pen styles
  PenHandle: HPen;       // the handle of the pen
begin
  {erase any previous image}
  Canvas.Brush.Color := clBtnFace;
  Canvas.FillRect(Rect(10, 10, 111, 111));
  {determine the pen style}
  case RadioGroup1.ItemIndex of
    0: Style := PS_SOLID;
    1: Style := PS_DASH;
    2: Style := PS_DOT;
    3: Style := PS_DASHDOT;
    4: Style := PS_DASHDOTDOT;
    5: Style := PS_NULL;
    6: Style := PS_INSIDEFRAME;
  end;
  {create the pen}
  PenHandle := CreatePen(Style, 1, 0);
  {instruct the canvas to use the new pen}
  Canvas.Pen.Handle := PenHandle;
  {draw a squar