画板写的橡皮擦功能例子

易语言 2020-07-04 14:19:37

画板写的橡皮擦功能例子

.如果真 (选择框1.选中)
连续赋值 (真, 擦, 选择框1.选中)
id = LoadCursorFromFile (“new.cur”)
原指针 = SetClassLong (画板1.取窗口句柄 (), -12, id)
返回 ()
.如果真结束
连续赋值 (假, 擦, 选择框1.选中)
SetClassLong (画板1.取窗口句柄 (), -12, 原指针)