[收币程序](不支持R14)无限使用，用对话框编辑、输入文字(050402 V4.5)

urljit

楼上：你回帖的时候已经把失去的一币赚回来了。提意见吧，欢迎。

eachy：我没有好的想法把对话框整理好，等等再说吧，先完善功能。

xgwl：你经常不停的输入同一名称？别人呢？既然你认为以词库为主，难道输入词库中词语的时候不点击鼠标或键盘快捷键？这时对话框“焦点”不就跑了？

所以，我认为“焦点”应该在输入框，这时，用户可以回车达到确认的效果，也可以输入新词，当然，也可以选择词库词语。

取消按钮的错误信息我这里没有，我还不能估计出你那里的问题原因，等等看吧，或你下一个新版看看？


大家给DIY一下对话框好么？下面是我调整以后的，还是不好看，谁帮帮我？

urljit

3.2c

ydf7332462

可否加大词库量.
请看我们用的词库调用,1>有几大类(比不上楼主的)
2>还可上行/下行;3>还可加引线4>还有拼音排序
更可取的***每一类能同显三列;不会贴图请看附件.avi

yangjr

选择字高后面那个（H）框是多余的，把它去掉，按3版排列就好看了。
另外看了看前面的帖子知道你不愿意放弃编辑功能，何不如将它扩大一点，增加选择范围，如果是单行文字即进入当前文字框，选择多了，可不进入当前文字框，但可以改文字样式、图层、文字字高、高宽比和对齐方式，也是很有用的。

◎◎◎◎

“新层”有多大必要？
无论是文字输入还是编辑，总归还在文字范围内，创建图层？太远了吧。
对照前后的对话框，对照其他会员提出的对话框，93楼的对话框实在是不伦不类。

xgwl

最初由 urljit 发布
[B]楼上：你回帖的时候已经把失去的一币赚回来了。提意见吧，欢迎。

eachy：我没有好的想法把对话框整理好，等等再说吧，先完善功能。

xgwl：你经常不停的输入同一名称？别人呢？既然你认为以词库为主，难道输入?.. [/B]

难道你不常输入同一词????   比如"办公室"  就是经常要输入啊! 有人会说:用copy啊? 那我就说了:肯定没有再调词库来得方便!比如用你这个小程序输入好了一个"办公室",   到下一个输入"办公室"时,却发现界面 已经跑很远了,这时你用copy快,还是调词库快? 另外,我相信,用键盘操作的网友,习惯了空格键为回车键的话,那真正的回车键几乎不再用了! 你说敲回车键方便吗???     既然定义好了自己的词库,为什么不调用库里的? 日积月累之后,谁还再用输入新词? (你的程序主次要分清啊! )  至于焦点, 我的意思是方便下一次输入, 选择词库焦点当然要跑,这有什么关系! 只是建议~~~~

eachy

2. 
   
3. test : dialog {
   
4. label = "单行文字标注/编辑SLT V3.2  作者:   [2004/12/1]";
   
5. : row {
   
6.    : row {
   
7.      : list_box {
   
8.       label = "词库目录(I)";
   
9.        height = 10;
   
10.        width = 20;
    
11.        mnemonic = "I";
    
12.        }
    
13.      : list_box {
    
14.        label = "常用短语(K)";
    
15.        height = 10;
    
16.        width = 30;
    
17.        mnemonic = "K";
    
18.        }
    
19.      }
    
20.      : column {
    
21.           fixed_width = true;
    
22.        spacer;
    
23.        : button {
    
24.          label = "搜词入库(F)";
    
25.          mnemonic = "F";
    
26.          }
    
27.        : button {
    
28.          label = "新开词库(S)";
    
29.          mnemonic = "S";
    
30.          }
    
31.        : button {
    
32.          label = "删除词组(D)";
    
33.          mnemonic = "D";
    
34.          }
    
35.        : button {
    
36.          label = "词库排序(O)";
    
37.          mnemonic = "O";
    
38.          }
    
39.        }
    
40.     }
    
41. : row {
    
42.    : edit_box {
    
43.      label = "当前文字(W):";
    
44.      mnemonic = "W";
    
45.      }
    
46.    : button {
    
47.      label = "增至图库(A)";
    
48.      fixed_width = true;
    
49.      mnemonic = "A";
    
50.      }
    
51.    }
    
52. : row {
    
53.    : button {
    
54.      label = "再选再编(E)";
    
55.      mnemonic = "E";
    
56.      }
    
57.    : toggle {
    
58.      label = "追加模式(V)";
    
59.      mnemonic = "V";
    
60.      }
    
61.    : toggle {
    
62.      label = "强制转义(R)";
    
63.      mnemonic = "R";
    
64.      }
    
65.    : toggle {
    
66.      label = "下次直接创建(J)";
    
67.      mnemonic = "J";
    
68.      }
    
69.    }
    
70. : row {
    
71.    : boxed_row {
    
72.      label = "输入文件";
    
73.      : toggle {
    
74.        label = "全文导入(M)";
    
75.        mnemonic = "M";
    
76.        }
    
77.      : edit_box {
    
78.        label = "行距(L): ";
    
79.        mnemonic = "M";
    
80.        width = 8;
    
81.        }
    
82.      }
    
83.    : boxed_row {
    
84.      label = "效果";
    
85.      : toggle {
    
86.        label = "下划线(U)";
    
87.        mnemonic = "U";
    
88.        }
    
89.      : edit_box {
    
90.        label = "比例数值(C)";
    
91.        width = 8;
    
92.        mnemonic = "C";
    
93.        }
    
94.    }
    
95.   }
    
96. : row {
    
97.   : column {
    
98.     : row {
    
99.       : button {
    
100.         label = "字体(T)";
     
101.         mnemonic = "T";        
     
102.         }
     
103.       : popup_list {
     
104.         }
     
105.       }
     
106.     : row {
     
107.       : button {
     
108.         label = "图层(Y)";
     
109.         mnemonic = "Y";
     
110.         }
     
111.       : popup_list {
     
112.         }
     
113.       }
     
114.     }
     
115.   : column {
     
116.     : row {
     
117.       : button {
     
118.         label = "字高(H)";
     
119.         mnemonic = "H";
     
120.         }
     
121.       : edit_box {
     
122.         }
     
123.       }
     
124.     : row {
     
125.       alignment = right;
     
126.       : edit_box {
     
127.         }
     
128.       : popup_list {
     
129.         }
     
130.       }
     
131.     }
     
132.   : column {
     
133.     : edit_box {
     
134.       label = "宽度因子(G)";
     
135.       mnemonic = "G";
     
136.       }
     
137.     : popup_list {
     
138.       label = "对齐方式(j)";
     
139.       list = "\n左\n中\n右\n中间\n对齐\n中间\n调整\n左上\n中上\n右上\n左中\n正中\n右中\n左下\n中下\n右下";
     
140.       mnemonic = "j";
     
141.       }
     
142.     }   
     
143.   }   
     
144.   //ok_cancel_help_info;
     
145.   spacer;
     
146.   : row {
     
147.     alignment = centered;
     
148.     fixed_width = true;
     
149.     ok_only;
     
150.     info_button;
     
151.     }
     
152.   : row {
     
153.     errtile;
     
154.     }
     
155. }

<br /> test : dialog {<br /> label = "单行文字标注/编辑SLT V3.2  作者:   [2004/12/1]";<br /> : row {<br />    : row {<br />      : list_box {<br />       label = "词库目录(I)";<br />        height = 10;<br />        width = 20;<br />        mnemonic = "I";<br />        }<br />      : list_box {<br />        label = "常用短语(K)";<br />        height = 10;<br />        width = 30;<br />        mnemonic = "K";<br />        }<br />      }<br />      : column {<br />           fixed_width = true;<br />        spacer;<br />        : button {<br />          label = "搜词入库(F)";<br />          mnemonic = "F";<br />          }<br />        : button {<br />          label = "新开词库(S)";<br />          mnemonic = "S";<br />          }<br />        : button {<br />          label = "删除词组(D)";<br />          mnemonic = "D";<br />          }<br />        : button {<br />          label = "词库排序(O)";<br />          mnemonic = "O";<br />          }<br />        }<br />     }<br /> : row {<br />    : edit_box {<br />      label = "当前文字(W):";<br />      mnemonic = "W";<br />      }<br />    : button {<br />      label = "增至图库(A)";<br />      fixed_width = true;<br />      mnemonic = "A";<br />      }<br />    }<br /> : row {<br />    : button {<br />      label = "再选再编(E)";<br />      mnemonic = "E";<br />      }<br />    : toggle {<br />      label = "追加模式(V)";<br />      mnemonic = "V";<br />      }<br />    : toggle {<br />      label = "强制转义(R)";<br />      mnemonic = "R";<br />      }<br />    : toggle {<br />      label = "下次直接创建(J)";<br />      mnemonic = "J";<br />      }<br />    }<br /> : row {<br />    : boxed_row {<br />      label = "输入文件";<br />      : toggle {<br />        label = "全文导入(M)";<br />        mnemonic = "M";<br />        }<br />      : edit_box {<br />        label = "行距(L): ";<br />        mnemonic = "M";<br />        width = 8;<br />        }<br />      }<br />    : boxed_row {<br />      label = "效果";<br />      : toggle {<br />        label = "下划线(U)";<br />        mnemonic = "U";<br />        }<br />      : edit_box {<br />        label = "比例数值(C)";<br />        width = 8;<br />        mnemonic = "C";<br />        }<br />    }<br />   }<br /> : row {<br />   : column {<br />     : row {<br />       : button {<br />         label = "字体(T)";<br />         mnemonic = "T";        <br />         }<br />       : popup_list {<br />         }<br />       }<br />     : row {<br />       : button {<br />         label = "图层(Y)";<br />         mnemonic = "Y";<br />         }<br />       : popup_list {<br />         }<br />       }<br />     }<br />   : column {<br />     : row {<br />       : button {<br />         label = "字高(H)";<br />         mnemonic = "H";<br />         }<br />       : edit_box {<br />         }<br />       }<br />     : row {<br />       alignment = right;<br />       : edit_box {<br />         }<br />       : popup_list {<br />         }<br />       }<br />     }<br />   : column {<br />     : edit_box {<br />       label = "宽度因子(G)";<br />       mnemonic = "G";<br />       }<br />     : popup_list {<br />       label = "对齐方式(j)";<br />       list = "\n左\n中\n右\n中间\n对齐\n中间\n调整\n左上\n中上\n右上\n左中\n正中\n右中\n左下\n中下\n右下";<br />       mnemonic = "j";<br />       }<br />     }    <br />   }    <br />   //ok_cancel_help_info;<br />   spacer;<br />   : row {<br />     alignment = centered;<br />     fixed_width = true;<br />     ok_only;<br />     info_button;<br />     }<br />   : row {<br />     errtile;<br />     }<br /> }

yangjr

建议取消新层改为文字输入角度。

eachy

排序的效果用DCL做不出，不过可以将按钮的字做成可变的 词库升序 <-> 词库排序

yjtdkj

功能是越来越多了，令人眼花了乱，能不能做一帮助说明？
或者做一个简化版的

urljit

最初由 yjtdkj 发布
[B]功能是越来越多了，令人眼花了乱，能不能做一帮助说明？
或者做一个简化版的 [/B]

你可以自己定义一个对话框,把不想要的东西去掉,这样主程序虽然不减小,但对话框可以"明了"一些,至于帮助,我不会作,也觉得没有必要.

看了众多网友的帖子,想起了那个笑话:父子二人谁骑驴?最后抬起来吧,呵呵.(感冒进行中,什么也不想动了,就是来看看)

还有,eachy:你说的意思是button的label能在程序里面改变?用什么函数?

ydf7332462

愿楼主早日康复!!
楼主的已相当好了,我也赞同去掉新层,吸收上面意见后,
如把下面的两行放到上面去的话,上下会匀称漂亮得多;
左边加上拼音类选项的话,左右会匀称漂亮得多;
同时加高显库\词列,会使周边形成镶嵌会更漂亮;
再看94楼的词库调用:
1>缩短词库宽度,增加同显短语列数;2>还可上行/下行;3>还可加引线.
还可加大词库量.

urljit

94楼的我也看了(第一个下载的呢!),词库是不错,可能是驱动机制不同,恐怕我的词库不能那样管理.

楼上的建议是否可以做出一个对话框来看看?那样直观些

eachy

2. 
   
3. test : dialog {
   
4. label = "Test";
   
5. : column {
   
6.   : list_box {
   
7.     key = "box";
   
8.     width = 15;
   
9.     height = 10;
   
10.     }
    
11.   : row {
    
12.     //fixed_width = true;
    
13.     : image_button {
    
14.       key = "up";
    
15.       width = 3;
    
16.       height = 1;
    
17.       }
    
18.     : text {
    
19.       width = 4;
    
20.       value = "排序";
    
21.       }
    
22.     : image_button {
    
23.       key = "down";
    
24.       width = 3;
    
25.       height = 1;
    
26.       }
    
27.     ok_only;
    
28.     }
    
29.   }
    
30. }
    

<br /> test : dialog {<br /> label = "Test";<br /> : column {<br />   : list_box {<br />     key = "box";<br />     width = 15;<br />     height = 10;<br />     }<br />   : row {<br />     //fixed_width = true;<br />     : image_button {<br />       key = "up";<br />       width = 3;<br />       height = 1;<br />       }<br />     : text {<br />       width = 4;<br />       value = "排序";<br />       }<br />     : image_button {<br />       key = "down";<br />       width = 3;<br />       height = 1;<br />       }<br />     ok_only;<br />     }<br />   }<br /> }<br />

2. 
   
3. (defun c:test (/ lst test_id sort dx dy ux uy)
   
4.   (defun sort ()
   
5.     (start_list "box")
   
6.     (mapcar 'add_list
   
7.             (if        sort_tf
   
8.               (reverse lst)
   
9.               lst
   
10.             )
    
11.     )
    
12.     (end_list)
    
13.     (setq sort_tf (not sort_tf))
    
14.   )
    
15.   (setq lst '("1" "2" "3" "4" "5"))
    
16.   (if (not (setq test_id (load_dialog "tmp.dcl")))
    
17.     (exit)
    
18.   )
    
19.   (if (not (new_dialog "test" test_id))
    
20.     (exit)
    
21.   )
    
22.   (setq        ux (dimx_tile "up")
    
23.         uy (dimy_tile "up")
    
24.         dx (dimx_tile "down")
    
25.         dy (dimy_tile "down")
    
26.   )
    
27.   (start_image "up")
    
28.   (fill_image 0 0 ux uy -15)
    
29.   (vector_image 0 0 (/ ux 2) uy  0)
    
30.   (vector_image (/ ux 2) uy ux 0 0)
    
31.   (end_image)
    
32.   (start_image "down")
    
33.   (fill_image 0 0 dx dy -15)
    
34.   (vector_image 0 dy (/ dx 2) 0 0)
    
35.   (vector_image (/ dx 2) 0 dx dy 0)
    
36.   (end_image)
    
37.   (start_list "box")
    
38.   (mapcar 'add_list
    
39.           (if sort_tf
    
40.             lst
    
41.             (reverse lst)
    
42.           )
    
43.   )
    
44.   (end_list)
    
45.   (action_tile "up" "(sort)")
    
46.   (action_tile "down" "(sort)")
    
47.   (action_tile "accept" "(done_dialog 0)")
    
48.   (start_dialog)
    
49.   (unload_dialog test_id)
    
50.   (princ)
    
51. )
    

<br /> (defun c:test (/ lst test_id sort dx dy ux uy)<br />   (defun sort ()<br />     (start_list "box")<br />     (mapcar 'add_list<br />             (if        sort_tf<br />               (reverse lst)<br />               lst<br />             )<br />     )<br />     (end_list)<br />     (setq sort_tf (not sort_tf))<br />   )<br />   (setq lst '("1" "2" "3" "4" "5"))<br />   (if (not (setq test_id (load_dialog "tmp.dcl")))<br />     (exit)<br />   )<br />   (if (not (new_dialog "test" test_id))<br />     (exit)<br />   )<br />   (setq        ux (dimx_tile "up")<br />         uy (dimy_tile "up")<br />         dx (dimx_tile "down")<br />         dy (dimy_tile "down")<br />   )<br />   (start_image "up")<br />   (fill_image 0 0 ux uy -15)<br />   (vector_image 0 0 (/ ux 2) uy  0)<br />   (vector_image (/ ux 2) uy ux 0 0)<br />   (end_image)<br />   (start_image "down")<br />   (fill_image 0 0 dx dy -15)<br />   (vector_image 0 dy (/ dx 2) 0 0)<br />   (vector_image (/ dx 2) 0 dx dy 0)<br />   (end_image)<br />   (start_list "box")<br />   (mapcar 'add_list<br />           (if sort_tf<br />             lst<br />             (reverse lst)<br />           )<br />   )<br />   (end_list)<br />   (action_tile "up" "(sort)")<br />   (action_tile "down" "(sort)")<br />   (action_tile "accept" "(done_dialog 0)")<br />   (start_dialog)<br />   (unload_dialog test_id)<br />   (princ)<br /> )<br />

urljit

eachy: 谢谢你,但我的slt里面的排序就是具有正反双向排序功能的,象WINDOWS的文件排序一样呀.      还是说说怎样改变button的label吧?