为什么DCL对话框，文字距离边框间隔那么大？

lucas3

为什么DCL对话框，文字距离边框间隔那么大，用飞诗编辑器怎么设置都没法缩小，
望高手赐招！谢谢

1. /*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/
   
2. :dialog {
   
3.     :boxed_row {
   
4.         alignment = left ;
   
5.         children_alignment = left ;
   
6.         children_fixed_height = true ;
   
7.         children_fixed_width = true ;
   
8.         fixed_height = true ;
   
9.         fixed_width = true ;
   
10.         :image {
    
11.             color = -15 ;
    
12.             fixed_height = true ;
    
13.             fixed_width = true ;
    
14.             height = 10 ;
    
15.             key = "logo" ;
    
16.             width = 15 ;
    
17.         }
    
18.         :boxed_column {
    
19.             alignment = left ;
    
20.             children_alignment = left ;
    
21.             children_fixed_height = true ;
    
22.             children_fixed_width = true ;
    
23.             fixed_height = true ;
    
24.             fixed_width = true ;
    
25.             :text {
    
26.                 label = "12345678901234567890" ;
    
27.             }
    
28.             :text {
    
29.                 label = "1234" ;
    
30.             }
    
31.             :text {
    
32.                 label = "1234" ;
    
33.             }
    
34.             :text {
    
35.                 label = "1234" ;
    
36.             }
    
37.         }
    
38.     }
    
39.     ok_cancel;
    
40. }
    

/*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/<br /> :dialog {<br />     :boxed_row {<br />         alignment = left ;<br />         children_alignment = left ;<br />         children_fixed_height = true ;<br />         children_fixed_width = true ;<br />         fixed_height = true ;<br />         fixed_width = true ;<br />         :image {<br />             color = -15 ;<br />             fixed_height = true ;<br />             fixed_width = true ;<br />             height = 10 ;<br />             key = "logo" ;<br />             width = 15 ;<br />         }<br />         :boxed_column {<br />             alignment = left ;<br />             children_alignment = left ;<br />             children_fixed_height = true ;<br />             children_fixed_width = true ;<br />             fixed_height = true ;<br />             fixed_width = true ;<br />             :text {<br />                 label = "12345678901234567890" ;<br />             }<br />             :text {<br />                 label = "1234" ;<br />             }<br />             :text {<br />                 label = "1234" ;<br />             }<br />             :text {<br />                 label = "1234" ;<br />             }<br />         }<br />     }<br />     ok_cancel;<br /> }<br />

Free-Lancer

无用属性不需要设置，text 控件用 label  默认很长，用 value 属性可以修改的，另外一个西文字符宽度大概是 1 ，控件两侧还有一定间隙，自己试验下就知道这个值了

2. 
   
3. /*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/
   
4. temp : dialog {
   
5. : boxed_row {
   
6.   alignment = left ;
   
7.   children_alignment = left ;
   
8.   : image {color = -15 ;height = 10 ;key = "logo" ;width = 15 ;}
   
9.   : boxed_column {
   
10.     height = 8;
    
11.     width = 22;
    
12.     alignment = left ;
    
13.     : text { value = "12345678901234567890" ;}
    
14.     : text { value = "1234" ;}
    
15.     : text { value = "1234" ;}
    
16.     : text { value = "1234" ;}
    
17.   }
    
18. }
    
19. ok_cancel;
    
20. }

<br /> /*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/<br /> temp : dialog {<br /> : boxed_row {<br />   alignment = left ;<br />   children_alignment = left ;<br />   : image {color = -15 ;height = 10 ;key = "logo" ;width = 15 ;}<br />   : boxed_column {<br />     height = 8;<br />     width = 22;<br />     alignment = left ;<br />     : text { value = "12345678901234567890" ;}<br />     : text { value = "1234" ;}<br />     : text { value = "1234" ;}<br />     : text { value = "1234" ;}<br />   }<br /> }<br /> ok_cancel;<br /> }

lucas3

Free-Lancer 发表于 2014-10-14 08:37
无用属性不需要设置，text 控件用 label  默认很长，用 value 属性可以修改的，另外一个西文字符宽度大概是 ...

谢大师，默认属性是没有设置，只是后面不断测试加上去的，没有效果，text控件是见过用label的，也有用value的，原来是这个区别，我测试一下看看。

Free-Lancer

lucas3 发表于 2014-10-14 09:44
谢大师，默认属性是没有设置，只是后面不断测试加上去的，没有效果，text控件是见过用label的，也有用val ...

在  DCL  中 label 写入后程序中不可更改，对 text 控件 value 是可以 set_tile 的，不可更改时用 label ，需要程序中修改用 value ，就如 errtile; 控件

lucas3

Free-Lancer 发表于 2014-10-14 10:08
在  DCL  中 label 写入后程序中不可更改，对 text 控件 value 是可以 set_tile 的，不可更改时用 label  ...

谢谢大师指点！

lucas3

Free-Lancer 发表于 2014-10-14 10:08
在  DCL  中 label 写入后程序中不可更改，对 text 控件 value 是可以 set_tile 的，不可更改时用 label  ...

大师，顺便问一下，如何给一个DCL BUTTON　按钮添加一个网址，点这个按钮就访问一个网址

csharp

lucas3 发表于 2014-10-14 10:59
大师，顺便问一下，如何给一个DCL BUTTON　按钮添加一个网址，点这个按钮就访问一个网址

(startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.xdcad.net")

lucas3

csharp 发表于 2014-10-14 11:33
(startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.xdcad.net")

必须要ＩＥ才能打开吗？我默认的浏览器不是IE呢？　详细一点呢？假如button的key是web

lucas3

Free-Lancer 发表于 2014-10-14 10:08
在  DCL  中 label 写入后程序中不可更改，对 text 控件 value 是可以 set_tile 的，不可更改时用 label  ...

大师，如何用一个botton打开一个网址？　像csharp说的那样，只能用ＩＥ吗？　假如我的botton key 是web，那lisp要怎样写？

Free-Lancer

lucas3 发表于 2014-10-15 09:57
大师，如何用一个botton打开一个网址？　像csharp说的那样，只能用ＩＥ吗？　假如我的botton key 是web， ...

(startapp (vl-registry-read "HKEY_CLASSES_ROOT\\http\\shell\\open\\command") "bbs.xdcad.net")

lucas3

Free-Lancer 发表于 2014-10-15 14:49
(startapp (vl-registry-read "HKEY_CLASSES_ROOT\\http\\shell\\open\\command") "bbs.xdcad.net")

厉害,直接读取注册表中默认打开程序, {:soso_e179:}谢谢Free-Lancer大师

cable2004

谢谢大家分享!