关于ODCL集成工具条

阿凯

做了个集成工具条雏形：
     1、TextButton按钮做主菜单
     2、 GraphicButton 做子菜单K1~K10（不设置图像，当TextButton用且区别于主菜单按钮）
     改变“→”和↓“”表示主菜单按钮的选择；同时用一个隐藏的label1作为指针，记录主菜单按钮编号：
             a)用于控制子菜单按钮的显示位置;b)用于控制点击子菜单按钮后的判断条件（cond）。
    子菜单用 GraphicButton可以设置背景色，用mousemove来控制(dcl_Control_SetBackColor）。
    问题是：鼠标移动时调用mousemove会在命令行产生回显“T”，加princ则产生空行，感觉不爽。
    如果这问题能解决，甚至准备抛弃TextButton按钮不用，主菜单也用GraphicButton改背景色，若不能，则准备放弃按键的变色。
    论坛中的工具条似乎都是用TextButton和label组合了做的，个人觉得TextButton和 GraphicButton 组合视觉效果更好。
    附上ODCL

阿凯

谢谢两位，很久没有修改以前编的程序了，现在甚至还有1994年的版本，接触ODCL不久，感谢指点，谢谢。

st788796

看说明MouseMove事件很快且多次触发，只要鼠标在按钮显示范围移动

st788796

可以用GraphicButton的浮动模式
不用mousemove事件

newer

你用 mousemove 这个事件处理什么？

另外，-》这些为什么不用个好看的箭头图片呢？

qyming1996

代码也附上，

阿凯

st788796 发表于 2013-12-26 10:22
可以用GraphicButton的浮动模式
不用mousemove事件

不明白 “浮动模式”{:soso_e127:}

st788796

阿凯 发表于 2013-12-26 10:42
不明白 “浮动模式”

1 float 外观是平的，鼠标经过时浮动起来按钮样子

阿凯

newer 发表于 2013-12-26 10:24
你用 mousemove 这个事件处理什么？

另外，-》这些为什么不用个好看的箭头图片呢？

mousemove只是改变所到位置GraphicButton的背景色，让界面生动点，仅此而已。
工具条仅是雏形，好看的箭头图片，这个...可以有

阿凯

st788796 发表于 2013-12-26 10:45
1 float 外观是平的，鼠标经过时浮动起来按钮样子

你说的是SetGraphicButtonStyle吧，请教用什么事件来触发呢？

newer

阿凯 发表于 2013-12-26 10:47
mousemove只是改变所到位置GraphicButton的背景色，让界面生动点，仅此而已。
工具条仅是雏形，好看的 ...

如果不是太复杂的颜色变换，你可以设置图像按钮的样式，让它在鼠标经过的时候凸起。离开后平滑。

另外，没测试过你说的OnMouseMove 会出现T或者空行。是不是代码里面有什么问题，最后把你的代码也发上来，供测试下。

一般情况下 (princ)是没返回值给LISP的，出现空行一定是上面的代码打印换行符了。

newer

阿凯 发表于 2013-12-26 10:51
你说的是SetGraphicButtonStyle吧，请教用什么事件来触发呢？

在STUDIO里面设置，选1，FLAT BUGTTON，这样鼠标经过图片按钮时候按钮会凸起，离开后，按钮平滑看不到边界。

阿凯

newer 发表于 2013-12-26 10:52
如果不是太复杂的颜色变换，你可以设置图像按钮的样式，让它在鼠标经过的时候凸起。离开后平滑。

另外 ...

敬请过目、斧正，代码有点乱。

st788796

阿凯 发表于 2013-12-26 11:15
谢谢两位，很久没有修改以前编的程序了，现在甚至还有1994年的版本，接触ODCL不久，感谢指点，谢谢。

94年自己写的程序？！
前辈啊！

阿凯

st788796 发表于 2013-12-26 11:49
94年自己写的程序？！
前辈啊！

OUT了，不敢称前辈，VL都不熟悉，DOS版R12和AutoLISP用了很长时间。现在都不敢说是计算机专业......