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

XDSoft

cie0588 发表于 2014-11-27 11:43
试了啊。可以变色了。
但是要使按钮点击可以执行命令，怎么办？难道不用Clicked事件？这个时候是用不了 ...

变色时变色，点击产生事件是另外的，两个无关的内容，不会因为你用变色了，事件CLICK就用不了了。
如何产生事件，去看看OPENDCL论坛里面那个 晓东工具箱菜单的例子，看看里面的代码。

st788796

cie0588 发表于 2014-11-27 11:43
试了啊。可以变色了。
但是要使按钮点击可以执行命令，怎么办？难道不用Clicked事件？这个时候是用不了 ...

enterin 和 clicked是两个事件，各干各的事

cie0588

楼上两位，我还是理解不了，也许是我进入了一个死胡同。
不知道楼上有没有时间，把22楼的那个例子，再增加一个功能，就是三个图像按钮点击的时候，分别在CAD中使用test1、test2、test3命令。
谢谢了。

st788796

cie0588 发表于 2014-11-27 14:50
楼上两位，我还是理解不了，也许是我进入了一个死胡同。
不知道楼上有没有时间，把22楼的那个例子，再增加 ...

增加clicked事件，单击事件函数就(dcl_sendstring "test1\n")一句

st788796

cie0588 发表于 2014-11-27 14:50
楼上两位，我还是理解不了，也许是我进入了一个死胡同。
不知道楼上有没有时间，把22楼的那个例子，再增加 ...

增加clicked事件，单击事件函数就(dcl_sendstring "test1\n")一句

cie0588

st788796 发表于 2014-11-27 15:53
增加clicked事件，单击事件函数就(dcl_sendstring "test1\n")一句

晕。看来我还是走进死胡同了。

我以为引发事件为0的时候，点击的时候没有反应，原来是可以的。

谢谢了，可以了。

非常感谢！

牢固

示例代码:

1. (defun c:LayerOdcl/Form1/GraphicButton14#OnMouseMove       (Flags X Y / buttonPos)
   
2.   (setq buttonPos (dcl-Control-GetPos LayerOdcl/Form1/GraphicButton14))
   
3.   (if (or (< x 3)
   
4.           (> x (- (caddr buttonPos) 3))
   
5.           (< y 3)
   
6.           (> y (- (cadddr buttonPos) 3))
   
7.       )
   
8.     (progn ;_ 出了按钮
   
9.       (dcl-Control-SetBackColor
   
10.         LayerOdcl/Form1/GraphicButton14
    
11.         -16
    
12.       )
    
13.     )
    
14.     (progn ;_ 进入按钮
    
15.       (if
    
16.         (/= 1
    
17.             (dcl-Control-GetBackColor LayerOdcl/Form1/GraphicButton14)
    
18.         )
    
19.          (progn
    
20.            ;;检测其他按钮的颜色是否没有恢复
    
21.            (LayerOdcl/Form1/GraphicButtonReBackColor
    
22.              LayerOdcl/Form1/GraphicButton14
    
23.            )
    
24.            (dcl-Control-SetBackColor LayerOdcl/Form1/GraphicButton14 1)
    
25.          )
    
26.       )
    
27.     )
    
28.   )
    
29. )

(defun c:LayerOdcl/Form1/GraphicButton14#OnMouseMove       (Flags X Y / buttonPos)<br />   (setq buttonPos (dcl-Control-GetPos LayerOdcl/Form1/GraphicButton14))<br />   (if (or (< x 3)<br />           (> x (- (caddr buttonPos) 3))<br />           (< y 3)<br />           (> y (- (cadddr buttonPos) 3))<br />       )<br />     (progn ;_ 出了按钮<br />       (dcl-Control-SetBackColor<br />         LayerOdcl/Form1/GraphicButton14<br />         -16<br />       )<br />     )<br />     (progn ;_ 进入按钮<br />       (if<br />         (/= 1<br />             (dcl-Control-GetBackColor LayerOdcl/Form1/GraphicButton14)<br />         )<br />          (progn<br />            ;;检测其他按钮的颜色是否没有恢复<br />            (LayerOdcl/Form1/GraphicButtonReBackColor<br />              LayerOdcl/Form1/GraphicButton14<br />            )<br />            (dcl-Control-SetBackColor LayerOdcl/Form1/GraphicButton14 1)<br />          )<br />       )<br />     )<br />   )<br /> )

st788796

牢固 发表于 2014-11-27 17:02
示例代码:

flags是不是就是标志位？如果是就用这个判断即可，不用后面计算

牢固

计算鼠标位置是为了判断鼠标何时离开按钮，所以必须每次都要计算，*Flag*是决定是否修改背景色

st788796

牢固 发表于 2014-11-27 18:25
计算鼠标位置是为了判断鼠标何时离开按钮，所以必须每次都要计算，*Flag*是决定是否修改背景色

个人认为，离开就是离开，管他鼠标在哪！
至于修改颜色可以用获取背景色比较以决定是否修改

牢固

st788796 发表于 2014-11-27 18:33
个人认为，离开就是离开，管他鼠标在哪！
至于修改颜色可以用获取背景色比较以决定是否修改

按钮是没有mouseoff事件的，只有mousemove事件，所以必须模拟出按钮的mouseoff事件来！不然你何时决定修改背景颜色，何时决定来恢复背景颜色？

st788796

牢固 发表于 2014-11-27 18:48
按钮是没有mouseoff事件的，只有mousemove事件，所以必须模拟出按钮的mouseoff事件来！不然你何时决定修 ...

我用了个简单方法，只要进入就先全部重设背景色，然后判断当前按钮背景色是否需要修改

牢固

那你什么时候来决定恢复按钮颜色呢

牢固

那你什么时候来决定恢复按钮颜色呢

st788796

牢固 发表于 2014-11-27 19:44
那你什么时候来决定恢复按钮颜色呢

恢复颜色单独一个函数，在mousemove事件中首先调用，在form界面的mouseenter 及mouseoff时调用