Table部分很多都不能用了!

st788796

请再检查 1011 版 API (xd::table:begin tb) 都不能用了，函数用法是否有改变！
(xdrx_table_settextheight tb 7 20.0总是返回 nil

st788796

看了看手册中的Table类函数，xd::table:begin xd::table:end 要修改，其它函数待测试

XDSoft

命令: (xdrx_table_settextheight e 7 60.0)
T

可以。

XDSoft

st788796 发表于 2013-10-12 08:42
看了看手册中的Table类函数，xd::table:begin xd::table:end 要修改，其它函数待测试

table类函数主要修订的就是在给行参数的时候，放到第二个参数了。

(xdrx_table_xxxx  <表格实体名> <RowType> <....>)

RowType:
    1: Data Row
    2: TitleRow
    4: HeadRow

st788796

XDSoft 发表于 2013-10-12 09:01
table类函数主要修订的就是在给行参数的时候，放到第二个参数了。

(xdrx_table_xxxx    )

我再测试下，这两天结合钢筋统计表生成，整理段 API生成Table 的函数应用说明

st788796

XDSoft 发表于 2013-10-12 09:01
table类函数主要修订的就是在给行参数的时候，放到第二个参数了。

(xdrx_table_xxxx    )

没有说明xdrx_table_open是不是可以替代(xd::table:begin tb)，xdrx_table_close是否可以替代(xd::table:end tb)

XDSoft

st788796 发表于 2013-10-12 09:10
没有说明xdrx_table_open是不是可以替代(xd::table:begin tb)，xdrx_table_close是否可以替代(xd::table: ...

应该这样改：

1. ;|
   
2. 禁止表格更新
   
3. |;
   
4. (defun XD::Table:Begin (tb)
   
5.   (xdrx_table_SuppressRegenerateTable tb t)
   
6.   t
   
7. )
   
8. ;|
   
9. 开启表格更新
   
10. |;
    
11. (defun XD::Table:End (tb)
    
12.   (if (xdrx_table_IsRegenerateTableSuppressed tb)
    
13.     (xdrx_table_SuppressRegenerateTable tb nil)
    
14.   )
    
15.   t
    
16. )
    
17. 
    

;|<br /> 禁止表格更新<br /> |;<br /> (defun XD::Table:Begin (tb)<br />   (xdrx_table_SuppressRegenerateTable tb t)<br />   t<br /> )<br /> ;|<br /> 开启表格更新<br /> |;<br /> (defun XD::Table:End (tb)<br />   (if (xdrx_table_IsRegenerateTableSuppressed tb)<br />     (xdrx_table_SuppressRegenerateTable tb nil)<br />   )<br />   t<br /> )<br /> <br />

以前经过测试用XD::Table:Begin ....End,  和 xdrx_table_open ,close 效率是一样。
begin和open是两种实现的方式，open和close必须配合，否则出错，安全上不如 BEGIN和END。

所以，以后推荐用XD::Table:Begin  XD::Table:End 组合吧。

st788796

那要更新下xd-lisp-lib.vlx

XDSoft

st788796 发表于 2013-10-12 09:27
那要更新下xd-lisp-lib.vlx

你帮测试下还有什么BUG吧，过几天一起更新VLX

st788796

XDSoft 发表于 2013-10-12 09:38
你帮测试下还有什么BUG吧，过几天一起更新VLX

目前发现Settextheight Setalignment 在用Rowtype 7时无效， 单独用 1 2 4 正常
GridVisibility 对Header 用 0 0 1修改 顶边为nil正常，两侧边没有找到方法

XDSoft

st788796 发表于 2013-10-12 17:51
目前发现Settextheight Setalignment 在用Rowtype 7时无效， 单独用 1 2 4 正常
GridVisibility 对Hea ...

按这个组合：

enum GridLineType      { kInvalidGridLine       = 0,
                             kHorzTop               = 1,
                             kHorzInside            = 2,
                             kHorzBottom            = 4,
                             kVertLeft              = 8,
                             kVertInside            = 0x10,
                             kVertRight             = 0x20,
                             kHorzGridLineTypes     = kHorzTop | kHorzBottom | kHorzInside,
                             kVertGridLineTypes     = kVertLeft | kVertRight | kVertInside,
                             kOuterGridLineTypes    = kHorzTop | kHorzBottom | kVertLeft | kVertRight,
                             kInnerGridLineTypes    = kHorzInside | kVertInside,
                             kAllGridLineTypes      = kOuterGridLineTypes | kInnerGridLineTypes };



kAllGridLineTypes=1+4+8+32 + 2+16 =63

1. 命令: (xdrx_table_setgridvisibility e 4 63 nil)
   
2. T
   
3. 
   

命令: (xdrx_table_setgridvisibility e 4 63 nil)<br /> T<br /> <br />

上面代码把头行，所有边线隐藏。

XDSoft

(xdrx_table_setgridvisibility e 1 0 63 nil)

这个是隐藏 1行0列单元格所有边线。

st788796

XDSoft 发表于 2013-10-12 18:36
(xdrx_table_setgridvisibility e 1 0 63 nil)

这个是隐藏 1行0列单元格所有边线。

还是没有整明白, 你试试隐藏 Header 的 顶 左 右边界

(xdrx_table_setgridvisibility e 0 0 63 nil)

st788796

查了查VBA帮助，这个和ARX比更清晰明了

object.SetCellGridVisibility(row, col, edge, bValue)

Object Table 使用该方法的对象。

row Long[长整数]; 行

col Long[长整数]; 列

edge Long[长整数]; 边

AcCellEdgeMask 常数

acBottomMask	单元格的底边。
acTopMask	单元格的顶边。
acLeftMask	单元格的左边。
acRightMask	单元格的右边。

bValue  Boolean[布尔值]; indicates whether the grid is visible

XDSoft

st788796 发表于 2013-10-12 22:25
还是没有整明白, 你试试隐藏 Header 的 顶 左 右边界

(xdrx_table_setgridvisibility e 0 0 63 nil)

0,0不是头。0,0是单元格， RowType=4 是头行，你可以用特性查看

所有是63， 底是4， 所以 左，顶，右隐藏就是 63-4=59

对头操作 (xdrx_table_setgridvisiblity e 4 59 nil)

正常画个表格，0,0是TILE行里面对第一个单元格。1,0是HEAD行对第一个单元格

API手册里面，数据类型下面关于表格对部分，介绍列边线对用法