tinysoft/TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.1.0

Browse Source
This commit is contained in:
csh
2023-01-16 14:59:53 +08:00
parent ce521a6a69
commit 1873f9bf27
12 changed files with 483 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Demo/wordHelp.tsl
+21 -17
View File
@@ -160,12 +160,10 @@ Begin
_AddTitle(docx, 'TParagraph对象（段落）', 1); //第三段标题
///TParagraph属性
_AddTitle(docx, 'TParagraph属性', 2); //第二级标题
attrs := array(('类别':'缺省w:r元素', '接口':'Run', '说明':'TRun对象'));
formatObj := new TOfficeObj('TwpPr');
_LoadObjectAttributes(formatObj, attrs, '段落属性', 'Format');
fontObj := new TOfficeObj('TwrPr');
_LoadObjectAttributes(fontObj, attrs, '字体属性', 'Font');
_AddTitle(docx, 'TParagraph属性(段落属性TwpPr对象、字体属性TwrPr对象)', 2); //第二级标题
attrs := array(('类别':'缺省w:r元素', '接口':'Run', '说明':'TRun对象'),
('类别':'段落属性', '接口':'Format', '说明':'TwpPr对象'),
('类别':'字体属性', '接口':'Font', '说明':'TwrPr对象'));
_AddClassHelpTable(docx, attrs);//添加表格：TParagraph属性
///TParagraph方法
@@ -242,11 +240,11 @@ Begin
_AddTitle(docx, 'TPicture对象属性', 2);
attrs := array(('类别':'图片信息', '接口':'Image', '说明':'二进制内容'),
('类别':'图片信息', '接口':'Descr', '说明':'图像描述'),
('类别':'图片信息', '接口':'Width', '说明':'图像宽度'),
('类别':'图片信息', '接口':'Height', '说明':'图像高度')
('类别':'图片信息', '接口':'Width', '说明':'图像宽度（cm）'),
('类别':'图片信息', '接口':'Height', '说明':'图像高度（cm）')
);
pPr := new TOfficeObj('TpicsPpr');
_LoadObjectAttributes(pPr, attrs, '图像属性', 'Format');
//pPr := new TOfficeObj('TpicsPpr');
//_LoadObjectAttributes(pPr, attrs, '图像属性', 'Format');
_AddClassHelpTable(docx, attrs);//添加表格：TPicture对象
///TPicture方法
@@ -624,6 +622,12 @@ Begin
conf := _LoadClassInfo(docx.GetPath() + '\\funcext\\TSOffice\\document\\TDocxStyles.tsf', 'TDocxStyles');
_AddFunctionHelpInfo(docx, '' $ paragraph $ '.1.', conf, 3);
_AddTitle(docx, '样式（TDocxStyle）', 2); //第二级标题
attrs := array();
formatObj := new TOfficeObj('TDocxStyle');
_LoadObjectAttributes(formatObj, attrs, '样式', '');
_AddClassHelpTable(docx, attrs);
println(' >>OK\n');
End;
@@ -814,7 +818,7 @@ Function _16_Template(docx);
Begin
paragraph := sysparams['Test'];
_PrintMsg('报告模板（ExecInnerTSL）');
_AddTitle(docx, 'ExecInnerTSL', 1);
_AddTitle(docx, '报告模板（docx.ExecInnerTSL()）', 1);
//添加段落
p := TOfficeObj('TParagraph');
@@ -959,9 +963,9 @@ Begin
tbl.Format.Borders.Right.themeTint := '99';
//设置列宽
tbl.ColumnWidth(1, 800);
tbl.ColumnWidth(2, 2000);
tbl.ColumnWidth(3, 2000);
tbl.ColumnWidth(1, 600);
tbl.ColumnWidth(2, 2100);
tbl.ColumnWidth(3, 2100);
tbl.ColumnWidth(4, 6000);
//设置表格左边距
@@ -969,7 +973,7 @@ Begin
tbl.format.IndentType := 'dxa';
//tbl.TblPr.Style := 1;
tbl := docx.InsertTable(tbl, -1);
//设置表头底纹
rows := tbl.Rows();
cols := tbl.Cols();
@@ -989,7 +993,7 @@ Begin
cell.Format.Shading.Fill := 'DBEEF3';
cell.Apply();
End;
//合并单元格
fields := select distinct [1] as 'type' from data where thisrowindex > 0 end;
for i:=0 to length(fields)-1 do begin
@@ -1092,7 +1096,7 @@ Begin
_AddTitle(docx, '附注一：内置对象', 1); //附注标题
ind := 1;
hash := array('TwpPr':1, 'TwrPr':1);
hash := array();
while i < length(r) do Begin
attrs := array();
_LoadObjectAttributes(r[i]['obj'], attrs, '属性', '');