易语言实现自定义线帽源码

资源介绍：

源码调用GDI模块，实现了自定义线帽。 该源码是易语言GDI学习的教程。

资源作者：

@易语言源码大全

资源界面：

.版本 2

.程序集 窗口程序集1

.子程序 _窗口1_创建完毕

Gdiplus初始化 ()

.子程序 _窗口1_将被销毁

Gdiplus关闭 ()

.子程序 _画板1_绘画
.参数 重画区左边, 整数型
.参数 重画区上边, 整数型
.参数 重画区右边, 整数型
.参数 重画区下边, 整数型
.局部变量 hdc, 整数型
.局部变量 图形, GP图形
.局部变量 画笔, GP画笔
.局部变量 字体, GP字体
.局部变量 画刷, GP纯色画刷
.局部变量 线帽1, GP箭头线帽
.局部变量 线帽2, GP箭头线帽

hdc ＝ 画板1.取设备句柄 ()
图形.创建自DC (hdc)
画笔.创建自颜色 (RGB到ARGB (#红褐), 6)

字体.创建自名称 (“宋体”, 12)
画刷.创建 (RGB到ARGB (#红色))
图形.画文本 (“箭头线帽：”, 字体, 画刷)

线帽1.创建箭头线帽 (4, 4)
线帽2.创建箭头线帽 (4, 4, 假)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 30, 30, 250, 30)

线帽1.销毁 ()
线帽2.销毁 ()
线帽1.创建箭头线帽 (4, 8)
线帽2.创建箭头线帽 (4, 8, 假)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 30, 80, 250, 80)


.子程序 _画板2_绘画
.参数 重画区左边, 整数型
.参数 重画区上边, 整数型
.参数 重画区右边, 整数型
.参数 重画区下边, 整数型
.局部变量 hdc, 整数型
.局部变量 图形, GP图形
.局部变量 画笔, GP画笔
.局部变量 i, 整数型
.局部变量 字体, GP字体
.局部变量 画刷, GP纯色画刷
.局部变量 路径1, GP路径
.局部变量 路径2, GP路径
.局部变量 线帽1, GP自定义线帽
.局部变量 线帽2, GP自定义线帽
.局部变量 坐标组, 坐标F, , "4"
.局部变量 坐标1, 坐标F
.局部变量 坐标2, 坐标F

hdc ＝ 画板2.取设备句柄 ()
图形.创建自DC (hdc)
画笔.创建自颜色 (RGB到ARGB (#黄褐), 3)

字体.创建自名称 (“宋体”, 12)
画刷.创建 (RGB到ARGB (#红色))
图形.画文本 (“自定义线帽：”, 字体, 画刷)

路径1.创建 ()
路径1.添加椭圆 (-3, -3, 6, 6)

路径2.创建 ()
坐标组 [1].x ＝ -4
坐标组 [1].y ＝ 0
坐标组 [2].x ＝ 0
坐标组 [2].y ＝ -4
坐标组 [3].x ＝ 4
坐标组 [3].y ＝ 0
坐标组 [4].x ＝ 0
坐标组 [4].y ＝ 8
路径2.添加多边形 (坐标组)
坐标1.x ＝ 50
坐标1.y ＝ 30
坐标2.x ＝ 50
坐标2.y ＝ 150

' =================
线帽1.创建自定义线帽 (, 路径1)
线帽2.创建自定义线帽 (, 路径2)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 坐标1.x, 坐标1.y, 坐标2.x, 坐标2.y)
线帽1.销毁 ()
线帽2.销毁 ()
图形.变形平移 (坐标1.x, 0)
' =================
线帽1.创建自定义线帽 (, 路径1, #线帽样式_平线帽, 3)
线帽2.创建自定义线帽 (, 路径2, #线帽样式_平线帽, 4)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 坐标1.x, 坐标1.y, 坐标2.x, 坐标2.y)
线帽1.销毁 ()
线帽2.销毁 ()
图形.变形平移 (坐标1.x, 0)
' =================使用填充路径
线帽1.创建自定义线帽 (路径1)
线帽2.创建自定义线帽 (路径2)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 坐标1.x, 坐标1.y, 坐标2.x, 坐标2.y)
线帽1.销毁 ()
线帽2.销毁 ()
图形.变形平移 (坐标1.x, 0)
' ===================
线帽1.创建自定义线帽 (路径1)
线帽2.创建自定义线帽 (路径2)
线帽1.置宽比例 (0.75)
线帽2.置宽比例 (1.25)
画笔.置自定起点线帽 (线帽1)
画笔.置自定终点线帽 (线帽2)
图形.画直线 (画笔, 坐标1.x, 坐标1.y, 坐标2.x, 坐标2.y)

资源下载：