用ODCL写的一个菜单工具面板

st788796

newer 发表于 2013-12-24 09:29
设置下字体高度试试。

dcl_control_setfontsize

设了fontsize 行间还是显得拥挤

newer

st788796 发表于 2013-12-24 09:34
设了fontsize 行间还是显得拥挤

还是用单独的控件比较好控制，比如LABEL,BUTTON等等。

st788796

newer 发表于 2013-12-24 09:49
还是用单独的控件比较好控制，比如LABEL,BUTTON等等。

Button用在菜单不好看，还是Label好些，类似TZ那个主界面，三角换图标，旁边弹出

newer

st788796 发表于 2013-12-24 09:54
Button用在菜单不好看，还是Label好些，类似TZ那个主界面，三角换图标，旁边弹出

图像按钮可以设置样式的，可以平滑的，可以鼠标放上去才凸起的。

st788796

newer 发表于 2013-12-24 10:01
图像按钮可以设置样式的，可以平滑的，可以鼠标放上去才凸起的。

这个可以考虑了，放上去凸起，自动弹出子菜单，不需要点击

newer

st788796 发表于 2013-12-24 10:11
这个可以考虑了，放上去凸起，自动弹出子菜单，不需要点击

是的，这样才像个菜单，否则太静态了。
另外，参考下天正TS的，直接把图标菜单也加进去吧。

st788796

newer 发表于 2013-12-24 10:36
是的，这样才像个菜单，否则太静态了。
另外，参考下天正TS的，直接把图标菜单也加进去吧。

看了看ODCL可以加图标的控件，需要预先打包进ODCL文件，这样不方便自定义，只有PictureBox可以自定义LoadPictureFile做图标

newer

st788796 发表于 2013-12-24 10:41
看了看ODCL可以加图标的控件，需要预先打包进ODCL文件，这样不方便自定义，只有PictureBox可以自定义Load ...

打包到ODCL里面，一次加载到内存，速度能快，可以把常用的打包进去啊，然后调用给ID就行了。同时也提供自定义的图标。

qyming1996

st788796 发表于 2013-12-23 11:32
那就不知道了，api支持，odcl不知道支不支持，但支持04的odcl可能要重新生成下对话框

把这个修改成INI外置的可添加程序已完美了

qyming1996

st788796 发表于 2013-12-24 10:41
看了看ODCL可以加图标的控件，需要预先打包进ODCL文件，这样不方便自定义，只有PictureBox可以自定义Load ...

我对编程不懂,麻烦修改下

st788796

qyming1996 发表于 2013-12-24 11:40
我对编程不懂,麻烦修改下

看不到界面，不过在lisp中看也是palette + listbox 而且用了button，可能是模仿天正的，这个写起来麻烦，不如我说的方案

qyming1996

D:\11.gif界面是这样的

st788796

看了看GraphicButton如果不打包图标前面会多出一个区域，这样也不好看，用 Label 虽然静态，但是可以给用户更大的自定义空间

自定义通用版就用 Label , Click 事件可以变为 粗体 ，以后工具箱可以考虑用 GraphiButton 打包 Icon

eachy

基本实现，还有几个问题需要修正
不同位置子菜单跟随，计算还需要再精确
菜单需要自己手动打包进 ODCL ，图标显示可以在 INI  文件中指定 ImageID
;;自定义菜单  Author  Eachy 2013.12.25
;;文件名需与程序中一致
;;格式说明:
;;1 分号行为注释说明行，行内不允许有多余文字
;;2 Menu 为主菜单名称
;;3 目前仅支持一级子菜单

;;主菜单定义
;;[     ]为菜单空行分隔,注意菜单行编号要连续
;;[名称,图标ID] 图标为打包进ODCL的 ImageID
;;不设图标仅保留名称
;;后面编号仅是为了和子菜单对应，省略时按行顺序对应 Sub 部分
Menu = 晓东工具箱
[曲　　线,101] = 0
[        ]
[文　　字,101] = 1
[        ]
[图　　块,101] = 2
[        ]
[标　　注,101] = 3
[        ]
[填　　充,101] = 4
[图　　层,101] = 5
[        ]
[实　　体,101] = 6
[组 管 理,101] = 7
[工　　具,101] = 8
[        ]
[专　　业,] = 9

;;子菜单定义
;;序号需与主菜单对应，不可省略
;;括号内为菜单名称，后面为命令名称，以等号分隔
Sub = 0
[曲线校正,101] = test1
[拓扑造区] = test1
[清理重点] = test1

Lisphk

能不能自定义分割线？