易语言画板画圆演示例程 可修改为鼠标画圆

.版本 2
.支持库 BmpOperate

.程序集 窗口程序集1
.程序集变量 位图数据, 位图

.子程序 _按钮1_被单击

.如果真 (通用对话框1.打开 ())
    位图数据.载入文件 (通用对话框1.文件名)
    图片框1.图片 ＝ 位图数据.取位图数据 ()
.如果真结束


.子程序 _按钮2_被单击
.局部变量 起始X, 双精度小数型
.局部变量 其实Y, 双精度小数型
.局部变量 终点X, 双精度小数型
.局部变量 终点Y, 双精度小数型
.局部变量 圆心x, 双精度小数型
.局部变量 圆心Y, 双精度小数型
.局部变量 r
.局部变量 x
.局部变量 y
.局部变量 i
.局部变量 cnt, 双精度小数型

.如果真 (位图数据.取位图数据 () ＝ {  })
    位图数据.创建 (图片框1.宽度, 图片框1.高度, 24, #银白)
.如果真结束
r ＝ 到整数 (编辑框3.内容)
圆心x ＝ 到整数 (编辑框1.内容)
圆心Y ＝ 到整数 (编辑框2.内容)
起始X ＝ 圆心x － r
其实Y ＝ 圆心Y － r
终点X ＝ 圆心x ＋ r
终点Y ＝ 圆心Y ＋ r
.如果真 (起始X ＜ 0)
    起始X ＝ 0
.如果真结束
.如果真 (其实Y ＜ 0)
    其实Y ＝ 0
.如果真结束
.如果真 (终点X ＞ 位图数据.取宽度 ())
    终点X ＝ 位图数据.取宽度 ()
.如果真结束
.如果真 (终点Y ＞ 位图数据.取高度 ())
    终点Y ＝ 位图数据.取高度 ()
.如果真结束

.计次循环首 (1234, )
    x ＝ 求余弦 (cnt) × 100 ＋ 100
    y ＝ 求正弦 (cnt) × 100 ＋ 100
    位图数据.置某点颜色 (x, y, #红色)
    cnt ＝ cnt － 0.01
.计次循环尾 ()

图片框1.图片 ＝ 位图数据.取位图数据 ()

.子程序 _按钮3_被单击

位图数据.载入数据 ({  })
图片框1.图片 ＝ 位图数据.取位图数据 ()



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

@兔子君