画板自绘按钮实例

浮伤年华＼

  

窗口程序集名	保 留	保 留	备 注
L_画板自绘_yz, , 公开
变量名	类 型	数组	备 注
_画板	画板
_按钮数组	按钮_类型	0
_ID	整数型		该ID以后可以识别 按钮、编辑框、列表框、以及其他

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

_ID ＝ 0

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
绑定组件	逻辑型
参数名	类 型	参考	可空	数组	备 注
欲绑定画板	画板

如果真 (是否已创建 (欲绑定画板) ＝ 假)
返回 (假)
_画板 ＝ 欲绑定画板
_画板.自动重画 ＝ 真
返回 (真)

子程序名	返回值类型	公开	备 注
按钮_创建	整数型		返回按钮ID
参数名	类 型	参考	可空	数组	备 注
函数回调	子程序指针
坐标矩形	坐标矩形_类型
背景颜色	整数型
标题	文本型
标题坐标	坐标_类型
文本颜色	整数型
可视	逻辑型
禁止	逻辑型
字体	字体

变量名	类 型	静态	数组	备 注
按钮类型	按钮_类型

_ID ＝ _ID ＋ 1
背景颜色 ＝ 选择 (是否为空 (背景颜色), -1, 背景颜色)
文本颜色 ＝ 选择 (是否为空 (文本颜色), #黑色, 文本颜色)
可视 ＝ 选择 (是否为空 (可视), 真, 可视)
禁止 ＝ 选择 (是否为空 (禁止), 假, 禁止)
如果真 (是否为空 (标题坐标))
标题坐标.左边 ＝ 4
标题坐标.顶边 ＝ 4
字体 ＝ 选择 (是否为空 (字体), _画板.字体, 字体)
按钮类型.坐标矩形 ＝ 坐标矩形
按钮类型.背景颜色 ＝ 背景颜色
按钮类型.标题 ＝ 标题
按钮类型.标题坐标 ＝ 标题坐标
按钮类型.文本颜色 ＝ 文本颜色
按钮类型.字体 ＝ 字体
按钮类型.ID ＝ _ID
按钮类型.函数回调 ＝ 到整数 (函数回调)
按钮类型.可视 ＝ 可视
按钮类型.禁止 ＝ 禁止
加入成员 (_按钮数组, 按钮类型)
返回 (_ID)

子程序名	返回值类型	公开	备 注
按钮_刷新			刷新才能显示

变量名	类 型	静态	数组	备 注
n	整数型

_画板.画笔类型 ＝ 1
_画板.绘画单位 ＝ 0
_画板.画出方式 ＝ 12
_画板.画笔粗细 ＝ 0
_画板.画笔颜色 ＝ #青蓝
计次循环首 (取数组成员数 (_按钮数组), n)
如果真 (_按钮数组 [n].可视 ＝ 假)
到循环尾 ()
_画板.刷子类型 ＝ 0
如果真 (_按钮数组 [n].背景颜色 ＞ -1)
_画板.刷子类型 ＝ 1
_画板.刷子颜色 ＝ _按钮数组 [n].背景颜色
_画板.画圆角矩形 (_按钮数组 [n].坐标矩形.左边, _按钮数组 [n].坐标矩形.顶边, _按钮数组 [n].坐标矩形.宽度 ＋ _按钮数组 [n].坐标矩形.左边, _按钮数组 [n].坐标矩形.高度 ＋ _按钮数组 [n].坐标矩形.顶边, 8, 8)
_画板.文本颜色 ＝ _按钮数组 [n].文本颜色
_画板.字体 ＝ _按钮数组 [n].字体
_画板.定位写出 (_按钮数组 [n].坐标矩形.左边 ＋ _按钮数组 [n].标题坐标.左边, _按钮数组 [n].坐标矩形.顶边 ＋ _按钮数组 [n].标题坐标.顶边, _按钮数组 [n].标题)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
按钮_置标题
参数名	类 型	参考	可空	数组	备 注
按钮ID	整数型
标题	文本型
立即刷新	逻辑型

变量名	类 型	静态	数组	备 注
n	整数型

如果真 (是否为空 (立即刷新))
立即刷新 ＝ 真
计次循环首 (取数组成员数 (_按钮数组), n)
如果真 (_按钮数组 [n].ID ＝ 按钮ID)
_按钮数组 [n].标题 ＝ 标题
跳出循环 ()

计次循环尾 ()
如果真 (立即刷新)
按钮_刷新 ()

子程序名	返回值类型	公开	备 注
按钮_取标题	文本型
参数名	类 型	参考	可空	数组	备 注
按钮ID	整数型

变量名	类 型	静态	数组	备 注
n	整数型

计次循环首 (取数组成员数 (_按钮数组), n)
如果真 (_按钮数组 [n].ID ＝ 按钮ID)
返回 (_按钮数组 [n].标题)
跳出循环 ()

计次循环尾 ()
返回 (“”)

子程序名	返回值类型	公开	备 注
按钮_执行单击事件
参数名	类 型	参考	可空	数组	备 注
按钮ID	整数型

变量名	类 型	静态	数组	备 注
n	整数型

计次循环首 (取数组成员数 (_按钮数组), n)
如果真 (_按钮数组 [n].ID ＝ 按钮ID)
如果真 (_按钮数组 [n].禁止)
跳出循环 ()
调用子程序 (_按钮数组 [n].函数回调, , , )
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
按钮_坐标识别ID	整数型
参数名	类 型	参考	可空	数组	备 注
坐标	坐标_类型

变量名	类 型	静态	数组	备 注
n	整数型

计次循环首 (取数组成员数 (_按钮数组), n)
如果真 (坐标.左边 ＞ _按钮数组 [n].坐标矩形.左边 且 坐标.顶边 ＞ _按钮数组 [n].坐标矩形.顶边)
如果真 (坐标.左边 ＜ _按钮数组 [n].坐标矩形.宽度 ＋ _按钮数组 [n].坐标矩形.左边 且 坐标.顶边 ＜ _按钮数组 [n].坐标矩形.高度 ＋ _按钮数组 [n].坐标矩形.顶边)
返回 (_按钮数组 [n].ID)
跳出循环 ()


计次循环尾 ()
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 L_画板自绘_yz, , 公开<br /> .程序集变量 _画板, 画板<br /> .程序集变量 _按钮数组, 按钮_类型, , "0"<br /> .程序集变量 _ID, 整数型, , , 该ID以后可以识别 按钮、编辑框、列表框、以及其他<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> _ID ＝ 0<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 绑定组件, 逻辑型, 公开<br /> .参数 欲绑定画板, 画板, 参考<br /> <br /> .如果真 (是否已创建 (欲绑定画板) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> _画板 ＝ 欲绑定画板<br /> _画板.自动重画 ＝ 真<br /> 返回 (真)<br /> <br /> .子程序 按钮_创建, 整数型, 公开, 返回按钮ID<br /> .参数 函数回调, 子程序指针<br /> .参数 坐标矩形, 坐标矩形_类型<br /> .参数 背景颜色, 整数型, 可空<br /> .参数 标题, 文本型<br /> .参数 标题坐标, 坐标_类型, 可空<br /> .参数 文本颜色, 整数型, 可空<br /> .参数 可视, 逻辑型, 可空<br /> .参数 禁止, 逻辑型, 可空<br /> .参数 字体, 字体, 可空<br /> .局部变量 按钮类型, 按钮_类型<br /> <br /> _ID ＝ _ID ＋ 1<br /> 背景颜色 ＝ 选择 (是否为空 (背景颜色), -1, 背景颜色)<br /> 文本颜色 ＝ 选择 (是否为空 (文本颜色), #黑色, 文本颜色)<br /> 可视 ＝ 选择 (是否为空 (可视), 真, 可视)<br /> 禁止 ＝ 选择 (是否为空 (禁止), 假, 禁止)<br /> .如果真 (是否为空 (标题坐标))<br />     标题坐标.左边 ＝ 4<br />     标题坐标.顶边 ＝ 4<br /> .如果真结束<br /> 字体 ＝ 选择 (是否为空 (字体), _画板.字体, 字体)<br /> 按钮类型.坐标矩形 ＝ 坐标矩形<br /> 按钮类型.背景颜色 ＝ 背景颜色<br /> 按钮类型.标题 ＝ 标题<br /> 按钮类型.标题坐标 ＝ 标题坐标<br /> 按钮类型.文本颜色 ＝ 文本颜色<br /> 按钮类型.字体 ＝ 字体<br /> 按钮类型.ID ＝ _ID<br /> 按钮类型.函数回调 ＝ 到整数 (函数回调)<br /> 按钮类型.可视 ＝ 可视<br /> 按钮类型.禁止 ＝ 禁止<br /> 加入成员 (_按钮数组, 按钮类型)<br /> 返回 (_ID)<br /> <br /> .子程序 按钮_刷新, , 公开, 刷新才能显示<br /> .局部变量 n, 整数型<br /> <br /> _画板.画笔类型 ＝ 1<br /> _画板.绘画单位 ＝ 0<br /> _画板.画出方式 ＝ 12<br /> _画板.画笔粗细 ＝ 0<br /> _画板.画笔颜色 ＝ #青蓝<br /> <br /> .计次循环首 (取数组成员数 (_按钮数组), n)<br />     .如果真 (_按钮数组 [n].可视 ＝ 假)<br />         到循环尾 ()<br />     .如果真结束<br />     _画板.刷子类型 ＝ 0<br />     .如果真 (_按钮数组 [n].背景颜色 ＞ -1)<br />         _画板.刷子类型 ＝ 1<br />     .如果真结束<br />     _画板.刷子颜色 ＝ _按钮数组 [n].背景颜色<br />     _画板.画圆角矩形 (_按钮数组 [n].坐标矩形.左边, _按钮数组 [n].坐标矩形.顶边, _按钮数组 [n].坐标矩形.宽度 ＋ _按钮数组 [n].坐标矩形.左边, _按钮数组 [n].坐标矩形.高度 ＋ _按钮数组 [n].坐标矩形.顶边, 8, 8)<br />     _画板.文本颜色 ＝ _按钮数组 [n].文本颜色<br />     _画板.字体 ＝ _按钮数组 [n].字体<br />     _画板.定位写出 (_按钮数组 [n].坐标矩形.左边 ＋ _按钮数组 [n].标题坐标.左边, _按钮数组 [n].坐标矩形.顶边 ＋ _按钮数组 [n].标题坐标.顶边, _按钮数组 [n].标题)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 按钮_置标题, , 公开<br /> .参数 按钮ID, 整数型<br /> .参数 标题, 文本型<br /> .参数 立即刷新, 逻辑型, 可空<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (是否为空 (立即刷新))<br />     立即刷新 ＝ 真<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (_按钮数组), n)<br />     .如果真 (_按钮数组 [n].ID ＝ 按钮ID)<br />         _按钮数组 [n].标题 ＝ 标题<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (立即刷新)<br />     按钮_刷新 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 按钮_取标题, 文本型, 公开<br /> .参数 按钮ID, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (_按钮数组), n)<br />     .如果真 (_按钮数组 [n].ID ＝ 按钮ID)<br />         返回 (_按钮数组 [n].标题)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)<br /> <br /> .子程序 按钮_执行单击事件, , 公开<br /> .参数 按钮ID, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (_按钮数组), n)<br />     .如果真 (_按钮数组 [n].ID ＝ 按钮ID)<br />         .如果真 (_按钮数组 [n].禁止)<br />             跳出循环 ()<br />         .如果真结束<br />         调用子程序 (_按钮数组 [n].函数回调, , , )<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 按钮_坐标识别ID, 整数型, 公开<br /> .参数 坐标, 坐标_类型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (_按钮数组), n)<br />     .如果真 (坐标.左边 ＞ _按钮数组 [n].坐标矩形.左边 且 坐标.顶边 ＞ _按钮数组 [n].坐标矩形.顶边)<br />         .如果真 (坐标.左边 ＜ _按钮数组 [n].坐标矩形.宽度 ＋ _按钮数组 [n].坐标矩形.左边 且 坐标.顶边 ＜ _按钮数组 [n].坐标矩形.高度 ＋ _按钮数组 [n].坐标矩形.顶边)<br />             返回 (_按钮数组 [n].ID)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (0)

  

窗口程序集名	保 留	保 留	备 注
命令程序集

子程序名	返回值类型	公开	备 注
_取坐标矩形	坐标矩形_类型
参数名	类 型	参考	可空	数组	备 注
左边	整数型
顶边	整数型
宽度	整数型
高度	整数型

变量名	类 型	静态	数组	备 注
坐标矩形	坐标矩形_类型

坐标矩形.左边 ＝ 左边
坐标矩形.顶边 ＝ 顶边
坐标矩形.宽度 ＝ 宽度
坐标矩形.高度 ＝ 高度
返回 (坐标矩形)

子程序名	返回值类型	公开	备 注
_取坐标	坐标_类型
参数名	类 型	参考	可空	数组	备 注
左边	整数型
顶边	整数型

变量名	类 型	静态	数组	备 注
坐标	坐标_类型

坐标.左边 ＝ 左边
坐标.顶边 ＝ 顶边
返回 (坐标)

子程序名	返回值类型	公开	备 注
_取字体	字体
参数名	类 型	参考	可空	数组	备 注
字体名称	文本型
字体大小	整数型
加粗	逻辑型
倾斜	逻辑型
删除线	逻辑型
下划线	逻辑型

变量名	类 型	静态	数组	备 注
字体	字体

如果真 (是否为空 (字体名称) ＝ 假)
字体.字体名称 ＝ 字体名称
如果真 (是否为空 (字体大小) ＝ 假)
字体.字体大小 ＝ 字体大小
字体.加粗 ＝ 加粗
字体.倾斜 ＝ 倾斜
字体.删除线 ＝ 删除线
字体.下划线 ＝ 下划线
返回 (字体)

.版本 2<br /> <br /> .程序集 命令程序集<br /> <br /> .子程序 _取坐标矩形, 坐标矩形_类型<br /> .参数 左边, 整数型, 可空<br /> .参数 顶边, 整数型, 可空<br /> .参数 宽度, 整数型, 可空<br /> .参数 高度, 整数型, 可空<br /> .局部变量 坐标矩形, 坐标矩形_类型<br /> <br /> 坐标矩形.左边 ＝ 左边<br /> 坐标矩形.顶边 ＝ 顶边<br /> 坐标矩形.宽度 ＝ 宽度<br /> 坐标矩形.高度 ＝ 高度<br /> 返回 (坐标矩形)<br /> <br /> <br /> .子程序 _取坐标, 坐标_类型<br /> .参数 左边, 整数型, 可空<br /> .参数 顶边, 整数型, 可空<br /> .局部变量 坐标, 坐标_类型<br /> <br /> 坐标.左边 ＝ 左边<br /> 坐标.顶边 ＝ 顶边<br /> 返回 (坐标)<br /> <br /> .子程序 _取字体, 字体<br /> .参数 字体名称, 文本型, 可空<br /> .参数 字体大小, 整数型, 可空<br /> .参数 加粗, 逻辑型, 可空<br /> .参数 倾斜, 逻辑型, 可空<br /> .参数 删除线, 逻辑型, 可空<br /> .参数 下划线, 逻辑型, 可空<br /> .局部变量 字体, 字体<br /> <br /> .如果真 (是否为空 (字体名称) ＝ 假)<br />     字体.字体名称 ＝ 字体名称<br /> .如果真结束<br /> .如果真 (是否为空 (字体大小) ＝ 假)<br />     字体.字体大小 ＝ 字体大小<br /> .如果真结束<br /> 字体.加粗 ＝ 加粗<br /> 字体.倾斜 ＝ 倾斜<br /> 字体.删除线 ＝ 删除线<br /> 字体.下划线 ＝ 下划线<br /> 返回 (字体)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_测试窗口
变量名	类 型	数组	备 注
ZH	L_画板自绘_yz
_按钮id2	整数型

子程序名	返回值类型	公开	备 注
__测试窗口_创建完毕

ZH.绑定组件 (画板1)
ZH.按钮_创建 (&按钮_被单击1, _取坐标矩形 (8, 8, 80, 32), #白色, “确定”, _取坐标 (22, 8), #品红, , , _取字体 (“仿宋”, 12, 真))
_按钮id2 ＝ ZH.按钮_创建 (&按钮_被单击2, _取坐标矩形 (90, 8, 80, 32), #紫色, “取消”, _取坐标 (22, 8), #青绿, , , _取字体 (“宋体”, 12, 真))
ZH.按钮_创建 (&按钮_被单击3, _取坐标矩形 (8, 44, 80, 32), #墨绿, “重试”, _取坐标 (22, 5), #青蓝, , , _取字体 (“微软雅黑”, 12, 真))
ZH.按钮_刷新 ()

子程序名	返回值类型	公开	备 注
按钮_被单击1

调试输出 (“按钮1”, “取按钮标题事件”, ZH.按钮_取标题 (_按钮id2))

子程序名	返回值类型	公开	备 注
按钮_被单击2

调试输出 (“按钮2”, “信息框事件”)
信息框 (“单击按钮执行事件2”, 0, , )

子程序名	返回值类型	公开	备 注
按钮_被单击3

调试输出 (“按钮3”, “置按钮标题事件”)
ZH.按钮_置标题 (_按钮id2, “无语”)

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
id	整数型

id ＝ ZH.按钮_坐标识别ID (_取坐标 (横向位置, 纵向位置))
如果真 (id ＞ 0)
ZH.按钮_执行单击事件 (id)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_测试窗口<br /> .程序集变量 ZH, L_画板自绘_yz<br /> .程序集变量 _按钮id2, 整数型<br /> <br /> .子程序 __测试窗口_创建完毕<br /> <br /> ZH.绑定组件 (画板1)<br /> ZH.按钮_创建 (&按钮_被单击1, _取坐标矩形 (8, 8, 80, 32), #白色, “确定”, _取坐标 (22, 8), #品红, , , _取字体 (“仿宋”, 12, 真))<br /> _按钮id2 ＝ ZH.按钮_创建 (&按钮_被单击2, _取坐标矩形 (90, 8, 80, 32), #紫色, “取消”, _取坐标 (22, 8), #青绿, , , _取字体 (“宋体”, 12, 真))<br /> ZH.按钮_创建 (&按钮_被单击3, _取坐标矩形 (8, 44, 80, 32), #墨绿, “重试”, _取坐标 (22, 5), #青蓝, , , _取字体 (“微软雅黑”, 12, 真))<br /> ZH.按钮_刷新 ()<br /> <br /> <br /> .子程序 按钮_被单击1<br /> <br /> 调试输出 (“按钮1”, “取按钮标题事件”, ZH.按钮_取标题 (_按钮id2))<br /> <br /> .子程序 按钮_被单击2<br /> <br /> 调试输出 (“按钮2”, “信息框事件”)<br /> 信息框 (“单击按钮执行事件2”, 0, , )<br /> <br /> .子程序 按钮_被单击3<br /> <br /> 调试输出 (“按钮3”, “置按钮标题事件”)<br /> ZH.按钮_置标题 (_按钮id2, “无语”)<br /> <br /> .子程序 _画板1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 id, 整数型<br /> <br /> id ＝ ZH.按钮_坐标识别ID (_取坐标 (横向位置, 纵向位置))<br /> .如果真 (id ＞ 0)<br />     ZH.按钮_执行单击事件 (id)<br /> .如果真结束

画板自绘类.e (14.33 KB, 下载次数: 72)

2018-9-21 23:10 上传

点击文件名下载附件
自绘按钮半成品

有好多人 要字体和配色 我也是论坛里找的
这里提供原贴地址和下载附件提
深夜码工配色 （护眼清晰、熬夜首选）新鲜出炉

http://bbs.125.la/forum.php?mod=viewthread&tid=13985638
(出处: 精易论坛)
深夜码工.rar (119.55 KB, 下载次数: 37)

2018-9-22 19:11 上传

点击文件名下载附件

海南婉儿

下载学习一下

gf5225537

谢谢谢谢分享

2966457373

配色不错 分享一下？

珍藏版

配色不错 分享一下？

走路有点憨

字体和配色赶紧分享出来！

kyo9766

感谢分享，留存了

神盾科学

配色不错 分享一下？

美女じ打屁屁ジ

配色不错 分享一下？

ai310575877

配色不错 分享一下？