画板自绘关闭按钮鼠标移动速度过快按钮不归位

3415552147 · 发表于 2019-1-8 18:04:15

画板画出来的关闭按钮鼠标移动过快，就会出现按钮不归位

3415552147 · 发表于 2019-1-9 17:23:52

汉族发表于 2019-1-8 18:11
写法问题一般都要进行重画模式或者多参考画板绘制组件方式

已解决

.版本 2

时钟_创建 (A.取窗口句柄 (), “画板判断”, 100, &画板_是否在画板内)

.子程序画板_是否在画板内
.局部变量字体, 字体

.判断开始 (A.取窗口句柄 () ≠ 鼠标_所在窗口句柄 ())
.如果真 (关闭按钮.鼠标在按钮内＝假)
返回 ()
.如果真结束
关闭按钮.鼠标在按钮内＝假
A.画笔粗细＝关闭按钮.画笔_粗细
A.画笔颜色＝关闭按钮.画笔_颜色
A.刷子颜色＝关闭按钮.刷子_颜色
A.画矩形 (关闭按钮.左边, 关闭按钮.顶边, 关闭按钮.右边, 关闭按钮.底边)
字体.加粗＝关闭按钮.标题加粗
字体.字体大小＝关闭按钮.标题大小
A.字体＝字体
A.文本颜色＝关闭按钮.标题颜色
A.定位写出 (关闭按钮.标题左边, 关闭按钮.标题顶边, 关闭按钮.标题)

.默认

3415552147 · 发表于 2019-1-8 18:15:57

汉族发表于 2019-1-8 18:11
写法问题一般都要进行重画模式或者多参考画板绘制组件方式

我试了一下横向位置和纵向位置（如：顶边=0 鼠标移动速度过快纵向位置不会归 0）

3415552147 · 发表于 2019-1-8 18:13:09

汉族发表于 2019-1-8 18:11
写法问题一般都要进行重画模式或者多参考画板绘制组件方式

.版本 2

.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
.局部变量字体, 字体

.判断开始 (横向位置＜关闭按钮.右边且横向位置＞关闭按钮.左边且纵向位置＜关闭按钮.底边且纵向位置＞关闭按钮.顶边)
.如果真 (关闭按钮.鼠标在按钮内＝真)
返回 ()
.如果真结束
关闭按钮.鼠标在按钮内＝真
A.画笔粗细＝关闭按钮.画笔_粗细
A.画笔颜色＝关闭按钮.画笔_颜色
A.刷子颜色＝关闭按钮.刷子_颜色
A.画矩形 (关闭按钮.左边, 关闭按钮.顶边, 关闭按钮.右边, 关闭按钮.底边)
字体.加粗＝关闭按钮.标题加粗
字体.字体大小＝关闭按钮.标题大小
A.字体＝字体
A.文本颜色＝ #白色
A.定位写出 (关闭按钮.标题左边, 关闭按钮.标题顶边, 关闭按钮.标题)

.默认
.如果真 (关闭按钮.鼠标在按钮内＝假)
返回 ()
.如果真结束
关闭按钮.鼠标在按钮内＝假
A.画笔粗细＝关闭按钮.画笔_粗细
A.画笔颜色＝关闭按钮.画笔_颜色
A.刷子颜色＝关闭按钮.刷子_颜色
A.画矩形 (关闭按钮.左边, 关闭按钮.顶边, 关闭按钮.右边, 关闭按钮.底边)
字体.加粗＝关闭按钮.标题加粗
字体.字体大小＝关闭按钮.标题大小
A.字体＝字体
A.文本颜色＝关闭按钮.标题颜色
A.定位写出 (关闭按钮.标题左边, 关闭按钮.标题顶边, 关闭按钮.标题)