opendcl中图形按钮 鼠标移到上面时如何变色

xdj86

OnMouseMove 函数里面只有一些判断，并不一定执行setbackcolor，onmove函数的bug吧，估计是，

st788796

xdj86 发表于 2014-11-18 21:01
(defun actbkcolor(n btnprefix /)
  
(if  (= InwhatbTn 0)

楼主是要用这个做菜单吧，按钮鼠标移进去不一定改颜色，改成浮动效果也不错

xdj86

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=672261 遇到空格问题，估计他还没看刷新问题

st788796

xdj86 发表于 2014-11-18 22:18
OnMouseMove 函数里面只有一些判断，并不一定执行setbackcolor，onmove函数的bug吧，估计是，

eachy 站长那个菜单模拟 Table 也有变色功能，没有闪烁

xdj86

newer 发表于 2014-11-18 22:16
是系统判定的，但是你进去后，是否setback 是你决定的，你判断下已经setback一次了，就在也别做了，等鼠 ...

我发现问题了，是onmove函数触发的时候不是刷新UI，是会在命令行产生空行，CAD不停的响应

newer

xdj86 发表于 2014-11-18 22:32
我发现问题了，是onmove函数触发的时候不是刷新UI，是会在命令行产生空行，CAD不停的响应

你不 setBack...., CAD能响应吗？

st788796

给你个简单例子

1. (defun button_list ()
   
2.   '(but_Form1_GraphicButton1
   
3.     but_Form1_GraphicButton2
   
4.     but_Form1_GraphicButton3
   
5.    )
   
6. )
   
7. (defun button_resetbackcolor ()
   
8.   (foreach x (button_list)
   
9.     (dcl_Control_SetGraphicButtonStyle (eval x) 5)
   
10.     (dcl_control_setbackcolor (eval x) -16)
    
11.   )
    
12. )
    
13. (defun c:but_Form1_OnMouseEntered (/)
    
14.   (button_resetbackcolor)
    
15. )
    
16. (defun c:but_Form1_GraphicButton3_OnMouseMove (Flags X Y /)
    
17.   (button_resetbackcolor)
    
18.   (dcl_Control_SetGraphicButtonStyle
    
19.     but_Form1_GraphicButton3
    
20.     1
    
21.   )
    
22.   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton3) 1)
    
23.     (dcl_control_setbackcolor but_Form1_GraphicButton3 1)
    
24.   )
    
25. )
    
26. (defun c:but_Form1_GraphicButton2_OnMouseMove (Flags X Y /)
    
27.   (button_resetbackcolor)
    
28.   (dcl_Control_SetGraphicButtonStyle
    
29.     but_Form1_GraphicButton2
    
30.     1
    
31.   )
    
32.   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton2) 1)
    
33.     (dcl_control_setbackcolor but_Form1_GraphicButton2 1)
    
34.   )
    
35. )
    
36. (defun c:but_Form1_GraphicButton1_OnMouseMove (Flags X Y /)
    
37.   (button_resetbackcolor)
    
38.   (dcl_Control_SetGraphicButtonStyle
    
39.     but_Form1_GraphicButton1
    
40.     1
    
41.   )
    
42.   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton1) 1)
    
43.     (dcl_control_setbackcolor but_Form1_GraphicButton1 1)
    
44.   )
    
45. )
    
46. (defun c:tt ()
    
47.   (setq        str
    
48.          '("YWt6A3oNAACHPh2kBuKTLTUxLT9qgHTK8ixLX1+Pz19v6zNtFuWsxErA3CiOzw453sgq+zze3g+d"
    
49.            "LG0jxqyGcSKGvro5HJy4a5CCf4B+bTsnx5qE48eT4wUxrFj6e/9OSU0JwEcNwOdHmQJ5wgtx86BH"
    
50.            "9zuqb32Ow2Wm7Z76tX0HMlz9SrTWDtJeO+I99x10J/KOAe3NwiO1DChYUA0o/AZwrd0+gfwB8lny"
    
51.            "/DVmnEYSwWpDDMh13QJAHeDN4kNR9XcVMa3RviBc0N51QzxUSVjP+T1OTwrerxb04btSmE+9TbJ0"
    
52.            "BOXouGgN63LzWGKY/4OniO0CmEBsM83iHehqgPxGPLMGtIArpwVjgWQZmPmkASmfsCYpuoHtjcmG"
    
53.            "/bxhawDRjm27gUL8cekObABz8r17EGLd1t82wvZ7WIhyL+OBB+UWDTEPWBwvgm6js41bOZgWtXoD"
    
54.            "9SYeeKOTEc6lKjVCBBobNtkEgUeMMh5wK6IcB+LMkdbtw6hch2NOPx489yHtNfBEwlL3NDpRA+Mx"
    
55.            "IV5H952Uxzdr8Bs6LYYw66Ily4HzvNFrANuOILvZNdBoxwfM9hWWGdGMe62ChA/knWqyk/65wKKy"
    
56.            "VEJtOlqIMVwKOafZa4CSXMZUhZ2QIEx3NZ/enhmUYwOwUBdMHXDxdwBi972PKNul0FYKH7US9wGN"
    
57.            "vOvSQ4H2vCmqo6ijpZOjgdYm0nhHjg2INWuEIWklxYEJDuDxeeqBTwmA3qZRRcJcqwQvt4DsvDv7"
    
58.            "UVbS+wY8m1haso12d01XVWVvGARNvAKkOOaXIx8QJR/YCfpOO2YfH8CiNB+Q7evzdk3NZx+wy28Y"
    
59.            "GCnmpSjm52NfslTcvALKe7zqiGE0zMCY"
    
60.           )
    
61.   )
    
62.   (dcl_project_import str)
    
63.   (dcl_form_show but_form1)
    
64.   (princ)
    
65. )
    

(defun button_list ()<br />   '(but_Form1_GraphicButton1<br />     but_Form1_GraphicButton2<br />     but_Form1_GraphicButton3<br />    )<br /> )<br /> (defun button_resetbackcolor ()<br />   (foreach x (button_list)<br />     (dcl_Control_SetGraphicButtonStyle (eval x) 5)<br />     (dcl_control_setbackcolor (eval x) -16)<br />   )<br /> )<br /> (defun c:but_Form1_OnMouseEntered (/)<br />   (button_resetbackcolor)<br /> )<br /> (defun c:but_Form1_GraphicButton3_OnMouseMove (Flags X Y /)<br />   (button_resetbackcolor)<br />   (dcl_Control_SetGraphicButtonStyle<br />     but_Form1_GraphicButton3<br />     1<br />   )<br />   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton3) 1)<br />     (dcl_control_setbackcolor but_Form1_GraphicButton3 1)<br />   )<br /> )<br /> (defun c:but_Form1_GraphicButton2_OnMouseMove (Flags X Y /)<br />   (button_resetbackcolor)<br />   (dcl_Control_SetGraphicButtonStyle<br />     but_Form1_GraphicButton2<br />     1<br />   )<br />   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton2) 1)<br />     (dcl_control_setbackcolor but_Form1_GraphicButton2 1)<br />   )<br /> )<br /> (defun c:but_Form1_GraphicButton1_OnMouseMove (Flags X Y /)<br />   (button_resetbackcolor)<br />   (dcl_Control_SetGraphicButtonStyle<br />     but_Form1_GraphicButton1<br />     1<br />   )<br />   (if (/ (dcl_Control_GetBackColor but_Form1_GraphicButton1) 1)<br />     (dcl_control_setbackcolor but_Form1_GraphicButton1 1)<br />   )<br /> )<br /> (defun c:tt ()<br />   (setq        str<br />          '("YWt6A3oNAACHPh2kBuKTLTUxLT9qgHTK8ixLX1+Pz19v6zNtFuWsxErA3CiOzw453sgq+zze3g+d"<br />            "LG0jxqyGcSKGvro5HJy4a5CCf4B+bTsnx5qE48eT4wUxrFj6e/9OSU0JwEcNwOdHmQJ5wgtx86BH"<br />            "9zuqb32Ow2Wm7Z76tX0HMlz9SrTWDtJeO+I99x10J/KOAe3NwiO1DChYUA0o/AZwrd0+gfwB8lny"<br />            "/DVmnEYSwWpDDMh13QJAHeDN4kNR9XcVMa3RviBc0N51QzxUSVjP+T1OTwrerxb04btSmE+9TbJ0"<br />            "BOXouGgN63LzWGKY/4OniO0CmEBsM83iHehqgPxGPLMGtIArpwVjgWQZmPmkASmfsCYpuoHtjcmG"<br />            "/bxhawDRjm27gUL8cekObABz8r17EGLd1t82wvZ7WIhyL+OBB+UWDTEPWBwvgm6js41bOZgWtXoD"<br />            "9SYeeKOTEc6lKjVCBBobNtkEgUeMMh5wK6IcB+LMkdbtw6hch2NOPx489yHtNfBEwlL3NDpRA+Mx"<br />            "IV5H952Uxzdr8Bs6LYYw66Ily4HzvNFrANuOILvZNdBoxwfM9hWWGdGMe62ChA/knWqyk/65wKKy"<br />            "VEJtOlqIMVwKOafZa4CSXMZUhZ2QIEx3NZ/enhmUYwOwUBdMHXDxdwBi972PKNul0FYKH7US9wGN"<br />            "vOvSQ4H2vCmqo6ijpZOjgdYm0nhHjg2INWuEIWklxYEJDuDxeeqBTwmA3qZRRcJcqwQvt4DsvDv7"<br />            "UVbS+wY8m1haso12d01XVWVvGARNvAKkOOaXIx8QJR/YCfpOO2YfH8CiNB+Q7evzdk3NZx+wy28Y"<br />            "GCnmpSjm52NfslTcvALKe7zqiGE0zMCY"<br />           )<br />   )<br />   (dcl_project_import str)<br />   (dcl_form_show but_form1)<br />   (princ)<br /> )<br />

xdj86

问题已经解决，就是改变执行命令等待还是直接执行，0，1，sysniou

xdj86

Event invoke请改为0-syn而不是1，误导啊误导，终于解决

cie0588

xdj86 发表于 2014-11-19 18:24
Event invoke请改为0-syn而不是1，误导啊误导，终于解决

那么改为0-syn了。就不能用 Clicked 事件了啊？

我最近也为这个烦恼。

iLisp

cie0588 发表于 2014-11-21 15:47
那么改为0-syn了。就不能用 Clicked 事件了啊？

我最近也为这个烦恼。

苦恼啥？     

cie0588

iLisp 发表于 2014-11-21 19:25
苦恼啥？

MouseMove 事件的使用啊。
在1-Asy下 强制回车。
在0-Syn下不会强制回车，但Clicked事件又不能用了。

XDSoft

cie0588 发表于 2014-11-25 14:49
MouseMove 事件的使用啊。
在1-Asy下 强制回车。
在0-Syn下不会强制回车，但Clicked事件又不能用了。

你没试22楼给你写的例子吗？

st788796

cie0588 发表于 2014-11-25 14:49
MouseMove 事件的使用啊。
在1-Asy下 强制回车。
在0-Syn下不会强制回车，但Clicked事件又不能用了。

特殊情况下才用 1 ，界面事件变化不需要回车执行

cie0588

XDSoft 发表于 2014-11-25 14:58
你没试22楼给你写的例子吗？

试了啊。可以变色了。
但是要使按钮点击可以执行命令，怎么办？难道不用Clicked事件？这个时候是用不了的啊。