易语言GDI+第十课 线性渐变画刷实例3

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 标志, 整数型
.程序集变量 g, GP图形
.程序集变量 画刷, GP纯色画刷
.程序集变量 颜色, 整数型, , "3"
.程序集变量 坐标, 小数型, , "3"
.程序集变量 颜色1, 小数型, , "4"
.程序集变量 坐标1, 小数型, , "4"
.程序集变量 矩形, 矩形F

.子程序 __启动窗口_被激活

标志 ＝ Gdiplus初始化 ()

.子程序 __启动窗口_将被销毁

Gdiplus关闭 (标志)

.子程序 _按钮1_被单击
.局部变量 画刷1, GP线性渐变画刷
.局部变量 画刷2, GP线性渐变画刷
.局部变量 画刷3, GP线性渐变画刷

初始化 ()
g.创建自窗口句柄 (取窗口句柄 ())
画刷.创建 (RGB到ARGB (#白色))
g.填充矩形 (画刷, 0, 0, 宽度, 高度)

画刷1.创建 (制坐标F (0, 0), 制坐标F (180, 0), RGB到ARGB (#黑色), RGB到ARGB (#白色))
画刷1.置预设混合 (颜色, 坐标)
g.填充矩形 (画刷1, 0, 0, 180, 100)
画刷2.创建 (制坐标F (0, 0), 制坐标F (60, 0), RGB到ARGB (#红色), RGB到ARGB (#绿色))
画刷3.创建 (制坐标F (60, 0), 制坐标F (181, 0), RGB到ARGB (#绿色), RGB到ARGB (#蓝色))
g.填充矩形 (画刷2, 0, 120, 60, 100)
g.填充矩形 (画刷3, 60, 120, 120, 100)

.子程序 _按钮2_被单击
.局部变量 画刷1, GP线性渐变画刷

初始化 ()
g.创建自窗口句柄 (取窗口句柄 ())
画刷.创建 (RGB到ARGB (#白色))
g.填充矩形 (画刷, 0, 0, 宽度, 高度)
画刷1.创建自矩形 (矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色), #线性渐变模式_从左到右)
画刷1.置混合 (颜色1, 坐标1)
g.填充矩形2 (画刷1, 矩形)

.子程序 初始化

颜色 [1] ＝ 取颜色值 (255, 0, 0)
颜色 [2] ＝ 取颜色值 (255, 0, 0)
颜色 [3] ＝ 取颜色值 (255, 0, 0)
坐标 [1] ＝ 0
坐标 [2] ＝ 0.3
坐标 [3] ＝ 1
颜色1 [1] ＝ 0
颜色1 [2] ＝ 0.9
颜色1 [3] ＝ 0.3
颜色1 [4] ＝ 0
坐标1 [1] ＝ 0
坐标1 [2] ＝ 0.1
坐标1 [3] ＝ 0.6
坐标1 [4] ＝ 1
矩形.左边 ＝ 0
矩形.顶边 ＝ 0
矩形.宽度 ＝ 200
矩形.高度 ＝ 200

.子程序 __启动窗口_创建完毕

@spctomp