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

xdj86

opendcl中图形GraphicButton按钮 鼠标移到上面时如何变色
我设置图形按钮的style 为flat 鼠标移动上去时会凸起来
但颜色是原色，我想移动到按钮上时不但凸起，还变换成想要的颜色
用onmove（）事件可以实现，但该函数触发频率太高，不停的刷新图形
导致一闪一闪的。有没有其它隐含事件或实现方法，求高手指点。
(defun c:DJCADToolsDock/Form1/GraphicButton2#OnMouseMove (Flags X Y /)
  (dcl-MessageBox "To Do: code must be added to event handler\r\nc:DJCADToolsDock/Form1/GraphicButton2#OnMouseMove" "To do")
）
This event is triggered when the mouse moves over the control. The event handler for this event should return quickly, as the event is called many times while the mouse is moving. Flags describes the state of the [Shift] and [Ctrl] keys, and the mouse buttons. X and Y specify the control client coordinates where the event occurred.

求大神指点

newer

你可以设置下，进到按钮和 出来前，只刷新一次啊。

Free-Lancer

先判断是否进入，然后判断颜色，正确了就不要改

xdj86

newer 发表于 2014-11-18 20:13
你可以设置下，进到按钮和 出来前，只刷新一次啊。

多谢指教，我就是这样判断的，但是只要触发该事件，不改变颜色，CAD也会刷新UI，只改变一次颜色也不行

newer

xdj86 发表于 2014-11-18 20:45
多谢指教，我就是这样判断的，但是只要触发该事件，不改变颜色，CAD也会刷新UI，只改变一次颜色也不行

把你代码贴上来，你进去后，加个变量判断，两个变量都满足才刷新。只鼠标进去，另外一个不满足不刷新。

xdj86

newer 发表于 2014-11-18 20:49
把你代码贴上来，你进去后，加个变量判断，两个变量都满足才刷新。只鼠标进去，另外一个不满足不刷新。

(defun actbkcolor(n btnprefix /)
  
(if  (= InwhatbTn 0)
   (progn
   (setq InwhatbTn n)
   (dcl-Control-SetBackColor (eval(read(strcat btnprefix (itoa InwhatbTn)))) bkcolor)
   )
(princ)
)

(if (/= InwhatbTn n)
    (progn
      
     ;(princ (strcat strTextbutton (itoa InwhatbTn)))
     (dcl-Control-SetBackColor (eval(read(strcat btnprefix (itoa InwhatbTn)))) -16)
     (setq InwhatbTn n)
     (dcl-Control-SetBackColor (eval(read(strcat btnprefix (itoa InwhatbTn)))) bkcolor)
    )
   (princ)
)
  )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;变换图片函数

;;工具按钮Onmove动作函数
(defun c:DJCADToolsDock/Form1/TextButton1#OnMouseMove (Flags X Y /)
;(princ (strcat strTextbutton (itoa InwhatbTn)))

  (actbkcolor 1 strTextbutton)

)

xdj86

这个函数只要触发，CAD就会刷新UI

xdj86

而且命令行会不停的出现空行（princ）造成的，能解决么

newer

xdj86 发表于 2014-11-18 21:03
这个函数只要触发，CAD就会刷新UI

看你的代码，不管什么条件，都要执行  (dcl-Control-SetBackColor 了，那肯定鼠标移动就设置背景色了，你不能限制下吗？

xdj86

newer 发表于 2014-11-18 21:14
看你的代码，不管什么条件，都要执行  (dcl-Control-SetBackColor 了，那肯定鼠标移动就设置背景色了，你 ...

InwhatbTn就是全局变量来判断是否进入的，如果InwhatbTn=0，是没有进入任何一个按钮范围，如果InwhatbTn=n，
则是一直在同一个按钮中，就不会执行。程序只在InwhatbTn=0和InwhatbTn/=n的情况下执行。

newer

xdj86 发表于 2014-11-18 21:23
InwhatbTn就是全局变量来判断是否进入的，如果InwhatbTn=0，是没有进入任何一个按钮范围，如果InwhatbTn= ...

那你进去以后，在setBackColor前，不能再设置一个全局变量吗？执行过一次，即使在进到这，也不刷新了。

iLisp

不能先 get 下? 等于了就不 set

xdj86

OnMouseMove是系统判定的

st788796

xdj86 发表于 2014-11-18 21:50
OnMouseMove是系统判定的

OnMouseMove 是系统判定的，但作什么是你决定的

newer

xdj86 发表于 2014-11-18 21:50
OnMouseMove是系统判定的

是系统判定的，但是你进去后，是否setback 是你决定的，你判断下已经setback一次了，就在也别做了，等鼠标移出控件后，你在把那个变量设回去，再进去的时候还允许一次。