DCL之多选项面板

xshrimp · 发表于 2013-5-13 22:21:45

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

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

×

原来写的试验的dcl做的多选项面板,测试文件,自己从来没用过.

请点击此处下载

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

您的用户组是：游客

文件名称:dcl 多选项面板.zip
下载次数:280 文件大小:1.49 KB
下载权限: 不限以上 [免费赚D豆]

[pcode=lisp,true]
(defun c:ta( / #key# dclid dd key lab loop n val)
;;;xshrimp 2009.10.3
(setq dcl_data_tabs
  '(    ("select"  "tab1")
      ("tab1" "0"    "系统设置"    )
   ("tab2" "0"    "变量设置"    )
   ("tab3" "0"    "选项3"    )
   ("tab4" "0"    "选项4"    )
   ("tab5" "0"    "选项5"    )
)
  )
(if #dcl_data_tabs#  nil  (setq #dcl_data_tabs# dcl_data_tabs))

;;;点击tab
(defun clicktabs(key / lab lst)
;回复初始值
(setq #dcl_data_tabs# dcl_data_tabs)
;将点tab 值设为"1"
(setq lst  (assoc key #dcl_data_tabs#) lab  (caddr lst) )
(setq #dcl_data_tabs# (subst (list key "1" lab) (assoc key #dcl_data_tabs#)  #dcl_data_tabs#))
(setq #dcl_data_tabs# (subst (list "select"  key) (assoc "select" #dcl_data_tabs#)  #dcl_data_tabs#))
(if (equal '(0 0) (setq dclpt (done_dialog 1))) nil (setq #dclpt# dclpt))
)
(if (null #dclpt#) (setq #dclpt# '(-1 -1)))
(setq dclid (load_dialog "tabs.dcl"))
;(setq #key# "tab1")
(setq loop T)
(while loop
(setq #key# (cadr (assoc "select" #dcl_data_tabs#)))
(clicktabs #key#)
(if (not (new_dialog #key# dclid "" #dclpt#)) (progn (alert "dcl对话框加载失败.")(exit)))
(foreach n (cdr #dcl_data_tabs#)
(setq  key (car n)  val (cadr n) lab  (caddr n))
(start_image key)
(fill_image 0 0 (dimx_tile key)(dimy_tile key) 254)
(end_image)
(set_tile key  lab)
(mode_tile key 0)
(if (= "1" val )
   (progn
(start_image key)
(fill_image 0 0 (dimx_tile key)(dimy_tile key) -15)
(end_image)
(set_tile key  lab)
(mode_tile key 1)
   )
)
(action_tile key "(clicktabs $key)")
)
(action_tile "1lab" "(alert \" 按了1lab\")")
(action_tile "2lab" "(alert \" 按了2lab\")")
(action_tile "3lab" "(alert \" 按了3lab\")")
(action_tile "4lab" "(alert \" 按了4lab\")")
(action_tile "5lab" "(alert \" 按了5lab\")")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd (start_dialog))
  (cond
  ((= 0 dd) (setq Loop nil))
  ))

(unload_dialog dclid)

)
[/pcode]

caoliu023 · 发表于 2013-5-13 23:05:23

感谢分享，晓东有你更精彩。

sicky111 · 发表于 2013-5-14 00:58:47

佩服的五体投地。

炫翔 · 发表于 2013-5-14 07:18:35

{:soso_e179:}这个不错！

守仁格竹GM · 发表于 2013-5-14 07:56:22

感谢分享很好

仲文玉 · 发表于 2013-5-14 13:03:16

呵呵，支持下，和我模拟的是一个原理，多个对话框的面板。dcl这方面不及opendcl{:soso_e179:}

2012淡然之马 · 发表于 2013-5-20 11:46:24

感谢分享，晓东有你更精彩

tianyi1230 · 发表于 2013-6-22 23:02:49

正好需要学习的东西，:D

jyzas · 发表于 2013-7-22 00:05:30

支持楼主:loveliness:

清风明月10 · 发表于 2013-7-22 09:44:16

谢谢楼主的分享！很有意思的代码，收藏备用。

jyzas · 发表于 2013-8-27 21:44:14

支持下楼主:):)

tianyi1230 · 发表于 2013-10-16 13:43:13

测试后就只不知道该怎么改为绑定命了的插件

風☆ㄔ主丠吹べ · 发表于 2013-11-10 15:17:45

强大如斯！

cable2004 · 发表于 2014-3-1 21:20:26

{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}

dnbcgrass · 发表于 2014-3-2 07:50:48

一直以为dcl不能实现多选卡操作，你做到了，非常不错！谢谢分享！:lol

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

[原创] DCL之多选项面板

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

评分

相关帖子