能不能用mapcar mapcar这类来批量定义ODCL按钮标题？

77077 · 发表于 2014-10-24 19:41:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能不能用mapcar mapcar这类来批量定义ODCL按钮标题？
下面这串真的很烦~~能不能精简？

(defun loadmenu1(l)
(dcl_Control_SetCaption TT_FORM2_G1 (car(nth 0 l)))
(dcl_Control_SetCaption TT_FORM2_G2 (car(nth 1 l)))
(dcl_Control_SetCaption TT_FORM2_G3 (car(nth 2 l)))
(dcl_Control_SetCaption TT_FORM2_G4 (car(nth 3 l)))
(dcl_Control_SetCaption TT_FORM2_G5 (car(nth 4 l)))
(dcl_Control_SetCaption TT_FORM2_G6 (car(nth 5 l)))
(dcl_Control_SetCaption TT_FORM2_G7 (car(nth 6 l)))
)

newer · 发表于 2014-10-24 19:50:34

肯定可以啊，就这个论坛，你找找以前的帖子，看看怎么用 EVAL,READ组合批量处理控件的例子。

77077 · 发表于 2014-10-24 20:35:58

多谢楼上，搞定！
(setq i 0)
  (foreach x l
   (setq i (1+ i))
   (dcl_Control_SetCaption (eval(read (strcat "TT_FORM2_B" (rtos i 2 0)))) x)
   )

77077 · 发表于 2014-10-24 21:32:42

本帖最后由 77077 于 2014-10-25 00:01 编辑

未完成，请勿下载。等完成后发出源码~~~

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:TT自编工具箱菜单测试（未完）.rar
下载次数:48 文件大小:3 KB 售价:10D豆 [记录]
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:TT自编工具箱菜单测试（未完）.rar
下载次数:48 文件大小:3 KB 售价:10D豆 [记录]
下载权限: 不限以上 [免费赚D豆]

csharp · 发表于 2014-10-25 10:38:46

和 eachy 站长作的菜单界面类似

77077 · 发表于 2014-10-27 22:48:55

怎么老是出错，求高手帮忙完善下
思路：三层菜单表
用按钮图标判断菜单状态，打开/收拢
用按钮背景颜色判断菜单级别，主菜单/中菜单/小菜单
头晕了，整不清楚。。。。求帮忙。。。。。。。。。。。。。。。。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:工具箱菜单.rar
下载次数:66 文件大小:2.84 KB
下载权限: 不限以上 [免费赚D豆]

XDSoft · 发表于 2014-10-27 23:29:39

77077 发表于 2014-10-27 22:48
怎么老是出错，求高手帮忙完善下
思路：三层菜单表
用按钮图标判断菜单状态，打开/收拢

哪里有错了？

st788796 · 发表于 2014-10-28 09:55:06

把 ODCL 文件发上来

77077 · 发表于 2014-10-28 10:15:17

st788796 发表于 2014-10-28 09:55
把 ODCL 文件发上来

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TT.odcl
下载次数:56 文件大小:1.71 KB
下载权限: 不限以上 [免费赚D豆]

这个是对应的ODCL文件~

eachy · 发表于 2014-10-28 11:20:16

看的头晕，你把思路详细说说
这种菜单一般就考虑两级，三级太麻烦
你这样貌似展开，但一级、二级菜单同时显示，就要考虑菜单容量，总共 30 个按钮，一级菜单多少、每个一级菜单最大容纳多少二级菜单

77077 · 发表于 2014-10-28 13:53:06

我也头晕，如果是两级菜单，倒是弄得差不多了。现在这个三级菜单，我也看糊涂了~~~

st788796 · 发表于 2014-10-28 14:35:29

77077 发表于 2014-10-28 13:53
我也头晕，如果是两级菜单，倒是弄得差不多了。现在这个三级菜单，我也看糊涂了~~~

1 第一次显示时全部为一级菜单
2 点击 -> 第一个保持一级菜单返回功能(修改 caption)
-> 修改下面 Button 为二级菜单标题
3 在第二级菜单模式下，如果含第三级菜单按钮单独图标，如果点击该 Button
-〉第一个 button 保持不变（返回一级菜单功能）
-〉第二个 button 修改为二级菜单标题
-〉第三个以后 button 修改为三级菜单 caption

这里变为二级菜单或三级菜单时，不属于该级菜单的图标全部隐藏，混杂在一起人为增加难度，而且容量变小了，这样在二级菜单时可以有 30 -1 个命令或三级菜单，在三级菜单时有 30 -2 个按钮可供使用

77077 · 发表于 2014-10-28 14:36:24

本帖最后由 77077 于 2014-10-28 14:40 编辑

eachy 发表于 2014-10-28 11:20
看的头晕，你把思路详细说说
这种菜单一般就考虑两级，三级太麻烦
你这样貌似展开，但一级、二级菜单同时 ...

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TT.lsp
下载次数:30 文件大小:6.12 KB
下载权限: 不限以上 [免费赚D豆]

头晕，弄出来三层的了，可惜经常出错~~~

77077 · 发表于 2014-10-28 15:29:40

st788796 发表于 2014-10-28 14:35
1 第一次显示时全部为一级菜单
2 点击 -> 第一个保持一级菜单返回功能(修改 caption)
-> 修 ...

诶，不错不错，我试试看~~~

st788796 · 发表于 2014-10-28 15:36:20

77077 发表于 2014-10-28 15:29
诶，不错不错，我试试看~~~

继续努力，一级菜单你准备放多少个？
如果点最后一个后面还有几个二级菜单可用？还不可以使用三级菜单？

账号		自动登录	找回密码
密码			立即注册

[求助] 能不能用mapcar mapcar这类来批量定义ODCL按钮标题？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评