画板自绘按钮含鼠标划过变色、执行子程序

.判断开始 (横坐标被改变 ≥ 组件数组 [i].左边 且 横坐标被改变 ≤ 组件数组 [i].宽度 且 纵坐标被改变 ≥ 组件数组 [i].顶边 且 纵坐标被改变 ≤ 组件数组 [i].高度)
.如果真 (组件数组 [i].鼠标在按钮里面 ＝ 真)
到循环尾 ()
.如果真结束
组件数组 [i].鼠标在按钮里面 ＝ 真
画笔.刷子类型 ＝ 1
画笔.刷子颜色 ＝ #红色
画笔.画笔类型 ＝ 1
画笔.画笔颜色 ＝ #红色
画笔.画矩形 (组件数组 [i].左边, 组件数组 [i].顶边, 组件数组 [i].宽度, 组件数组 [i].高度)
画笔.文本颜色 ＝ #白色
画笔.定位写出 ((组件数组 [i].宽度 － 组件数组 [i].左边) ÷ 2 － 取文本长度 (组件数组 [i].标题) × 6 ÷ 2 ＋ 组件数组 [i].左边, (组件数组 [i].高度 － 组件数组 [i].顶边) ÷ 2 － 6 ＋ 组件数组 [i].顶边, 组件数组 [i].标题)
事件被触发 ＝ 真