易语言画板自绘按钮，按钮变色执行子程序

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