(XD::ODCL:GridSetAlignment)设置ODCL GRID控件格子列的对齐方式

Lispboy

1. ;|
   
2. 设置ODCL GRID控件格子列的对齐方式
   
3. 参数：
   
4.   control --- 控件变量名（字符串）
   
5.   align   --- 对齐表 (0 1 2)表示第一列左对齐、第二列中对齐、第三列右对齐
   
6. 返回值：
   
7.   T
   
8. |;
   
9. (defun XD::ODCL:GridSetAlignment (control align / cols ctrl)
   
10.   (setq ctrl (eval (read control)))
    
11.   (setq cols (dcl_Grid_GetColumnCount ctrl))
    
12.   (setq align (XD::TABLE:RowFillGap align 1 cols))
    
13.   (apply
    
14.     'dcl_Control_SetColumnAlignmentList
    
15.     (cons ctrl align)
    
16.   )
    
17.   t
    
18. )
    
19. 
    

;|<br /> 设置ODCL GRID控件格子列的对齐方式<br /> 参数：<br />   control --- 控件变量名（字符串）<br />   align   --- 对齐表 (0 1 2)表示第一列左对齐、第二列中对齐、第三列右对齐<br /> 返回值：<br />   T<br /> |;<br /> (defun XD::ODCL:GridSetAlignment (control align / cols ctrl)<br />   (setq ctrl (eval (read control)))<br />   (setq cols (dcl_Grid_GetColumnCount ctrl))<br />   (setq align (XD::TABLE:RowFillGap align 1 cols))<br />   (apply<br />     'dcl_Control_SetColumnAlignmentList<br />     (cons ctrl align)<br />   )<br />   t<br /> )<br /> <br />

eachy

只能设置三列？

Lispboy

eachy 发表于 2013-11-17 06:41
只能设置三列？

没啊，哪里看到只能设3列了？