[求助]自学DCL不会了，拉兄弟一把吧！

xhq1954425

dian:dialog{ //定义名字为dian的对话框
  label= " [按分类选择]";//显示在对话框顶部的标签
  :row{ //引用行
:boxed_column{//引用加框列
  
:row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
            } 
:button{
          label="A  1";
           edit_width=12; //编辑框1的宽度
          key="pick1";//编辑拾取点框的关键字
       }
    }

          :row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
           }
           label="A   类 ："; //编辑框1的标签
          
:button{
         
          label="A  2";
          key="pick2";//编辑拾取点框的关键字
       }
    }
   
 :row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
            }
 
:button{
          label="A  3";
          key="pick3";//编辑拾取点框的关键字
       }
     }
 :row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
            }   
:button{
          label="B  1";
          key="pick4";//编辑拾取点框的关键字
       }
    }
 
 :row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
           }
  label="B   类 ："; //编辑框1的标签        
:button{
          label="B  2";
          key="pick5";//编辑拾取点框的关键字
       }
     }
 :row{:spacer{//插入宽度为14的间隔Spacer
            width=14;
            fixed_width=true;
           }   
:button{
          label="B  3";
          key="pick6";//编辑拾取点框的关键字
       }
    }

 
:button{
          label="C 类";
          key="pick7";//编辑拾取点框的关键字
       }      
    
:button{
         label="D 类";
         key="pxty";//编辑只进行投影框的关键字
       }
     
    }//加框列引用结束
  }//行引用结束
ok_cancel;// 引用ok_cancel组合控件
}

上面的DCL预览结果不是我想要的，但是不会调整标签的位置，如上图：

 

我想要的是下面的样子：麻烦帮忙给改一下，将 感激不尽！谢谢！

 

xhq1954425

liminnet发表于2010-1-15 14:00:00 看看俺的作品

不知你原来就是贱人，久闻大名，作品当然是一流！但是……可但是……就不能再说了！我没有指望得到你的帮助！

谢谢！这个论坛好心人很多。

 

aicr317

dcl_settings : default_dcl_settings { audit_level = 3; }

aaa : dialog {
    label = "[按分类选择]";
    : boxed_column {
        : boxed_column {
            : row {
                : column {
                    : text {
                        label = "A 类：";
                    }
                }
                : column {
                    : button {
                        label = "A1";
                        key = "A1";
                        mnemonic = "A";
                    }
                    : button {
                        label = "A2";
                        key = "A2";
                        mnemonic = "A";
                    }
                    : button {
                        label = "A3";
                        key = "A3";
                        mnemonic = "A";
                    }
                }
            }
        }
        : boxed_column {
            : row {
                : column {
                    : text {
                        label = "B 类：";
                    }
                }
                : column {
                    : button {
                        label = "B1";
                        key = "B1";
                        mnemonic = "B";
                    }
                    : button {
                        label = "B2";
                        key = "B2";
                        mnemonic = "B";
                    }
                    : button {
                        label = "B3";
                        key = "B3";
                        mnemonic = "B";
                    }
                }
            }
        }
        : button {
            label = "C类";
            key = "C";
            mnemonic = "C";
        }
        : button {
            label = "D类";
            key = "D";
            mnemonic = "D";
        }
    }
    ok_cancel;
}

aicr317

里面的参数自己改吧，大致的框架给你了！

aicr317

截图。。。。。。。。。。。。。。。。。。。。。

aicr317

也可以这样

dcl_settings : default_dcl_settings { audit_level = 3; }

aaa : dialog {
    label = "[按分类选择]";
    : boxed_column {
        : row {
            : boxed_column {
                label = "A类";
                mnemonic = "A";
                : row {
                    : column {
                        : button {
                            label = "A1";
                            key = "A1";
                            mnemonic = "A";
                        }
                        : button {
                            label = "A2";
                            key = "A2";
                            mnemonic = "A";
                        }
                        : button {
                            label = "A3";
                            key = "A3";
                            mnemonic = "A";
                        }
                    }
                }
            }
            : boxed_column {
                label = "B类";
                mnemonic = "B";
                : row {
                    : column {
                        : button {
                            label = "B1";
                            key = "B1";
                            mnemonic = "B";
                        }
                        : button {
                            label = "B2";
                            key = "B2";
                            mnemonic = "B";
                        }
                        : button {
                            label = "B3";
                            key = "B3";
                            mnemonic = "B";
                        }
                    }
                }
            }
        }
        : button {
            label = "C类";
            key = "C";
            mnemonic = "C";
        }
        : button {
            label = "D类";
            key = "D";
            mnemonic = "D";
        }
    }
    ok_cancel;
}

xhq1954425

回复 liminnet：

不要瞎说，我何时得罪过你？我经常看见你在得罪别人……

xhq1954425