简单的易语言画板橡皮擦功能

简单实现画图橡皮擦功能，不错的例子，新手可以看看。
.如果真 (选择框1.选中)
连续赋值 (真, 擦, 选择框1.选中)
id ＝ LoadCursorFromFile (“new.cur”)
原指针 ＝ SetClassLong (画板1.取窗口句柄 (), -12, id)
返回 ()
.如果真结束
连续赋值 (假, 擦, 选择框1.选中)
SetClassLong (画板1.取窗口句柄 (), -12, 原指针)