易语言圆形按钮源码例程

易语言圆形按钮源码例程例子。
.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 x, 双精度小数型
.局部变量 y, 双精度小数型

x ＝ 横向位置 － #圆形横坐标
y ＝ 纵向位置 － #圆形纵坐标
.如果真 (x × x ＋ y × y ＜ #圆形半径 × #圆形半径)
pushed ＝ 真
画板1.刷子颜色 ＝ #灰色
.如果真结束
画板1.重画 ()