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

v1.1.2

Browse Source
This commit is contained in:
csh
2023-01-31 17:27:13 +08:00
parent 3146c3c9c5
commit 2037e8c2fe
11 changed files with 404 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Demo/ExcelHelp.tsl
+14 -2
View File
@@ -525,6 +525,7 @@ style.Protection.Lock := 1;
('attrName': 'Vertical', 'type': 'string', 'desc': '垂直对齐', 'value': array('nil(默认): 靠下', '"center": 居中', '"top": 靠上', '"justify": 两端对齐', 'distributed: 分散对齐')),
('attrName': 'WrapText', 'type': 'boolean', 'desc': '是否自动换行，默认FALSE', 'value': array()),
('attrName': 'ReadingOrder', 'type': 'int', 'desc': '文字方向', 'value': array('nil(默认): 根据内容', '1: 总是从左到右', '2: 总是从右到左')),
('attrName': 'TextRotation', 'type': 'int', 'desc': '文本方向', 'value': array('[-90:90]')),
),
'Demo': '',
),
@@ -742,8 +743,19 @@ style.Protection.Lock := 1;
'AttrInfo': (
('attrName': 'ShowGridLines', 'type': 'bool', 'desc': '网格线', 'value': array()),
('attrName': 'ShowRowColHeaders', 'type': 'bool', 'desc': '标题', 'value': array()),
('attrName': 'View', 'type': 'string', 'desc': '工作簿视图', 'value': array('"pageBreakPreview": 分页预览')),
('attrName': 'ZoomScale', 'type': 'bool', 'desc': '缩放比例(%)', 'value': array()),
('attrName': 'View', 'type': 'bool', 'desc': '工作簿视图', 'value': array('"pageBreakPreview": 分页预览')),
('attrName': 'ZoomScale', 'type': 'string', 'desc': '缩放比例(%)', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TPane',
'Desc': ('TPane有以下属性: '),
'AttrInfo': (
('attrName': 'XSplit', 'type': 'int', 'desc': '按列分割', 'value': array()),
('attrName': 'YSplit', 'type': 'int', 'desc': '按行分割', 'value': array()),
('attrName': 'ActivePane', 'type': 'string', 'desc': '激活窗格', 'value': array('"bottomRight": 都设置{XSplit}和{YSplit}时为该值', '"topRight": 仅设置{XSplit}时', '"bottomLeft": 仅设置{YSplit}时')),
('attrName': 'State', 'type': 'string', 'desc': '冻结窗口', 'value': array('"frozen"')),
('attrName': 'TopLeftCell', 'type': 'string', 'desc': '顶部单元格，根据{ActivePane}的值设定', 'value': array('"frozen"')),
),
'Demo': '',
),
Demo/excel_demo.tsl
+11
View File
@@ -242,6 +242,7 @@ style.Alignment.Horizontal := "center";
style.Alignment.Vertical := "justify";
style.Alignment.WrapText := True;
style.Alignment.ReadingOrder := 2;
style.Alignment.TextRotation := 45;
style.Border.Left.LineStyle := "thin";
style.Border.Left.Color := "A020F0";
style.Border.Right.LineStyle := "thin";
@@ -357,6 +358,16 @@ println("[success] SetSheetViewOptions");
view := excel.GetSheetViewOptions(sheetName, 0);
println("[success] GetSheetViewOptions ShowGridLines = {}, ShowRowColHeaders = {}, View = {}, ZoomScale = {}", view.ShowGridLines, view.ShowRowColHeaders, view.ZoomScale, view.View);
// SetPane
Pane := TOfficeObj('TPane');
Pane.XSplit := 6;
Pane.YSplit := 14;
Pane.ActivePane := 'bottomRight';
Pane.TopLeftCell := excel.CoordinatesToCellName(Pane.XSplit + 1, Pane.YSplit + 1)[1];
Pane.State := 'frozen';
excel.SetPane(sheetName, 0, Pane);
println("[success] SetPane");
// SetPageLayout
pageLayout := TOfficeObj('TPageLayout');
pageLayout.FitToWidth := 10;
Demo/wordHelp.tsl
+3 -2
View File
@@ -203,8 +203,9 @@ Begin
///TTable对象
_AddTitle(docx, 'TTable对象属性', 2); //第二级标题
tbl := new TOfficeObj('TTable');
_LoadObjectAttributes(tbl.Format, attrs, '表格属性', 'Format');
_LoadObjectAttributes(tbl.FormatEx, attrs, '表格扩展属性', 'FormatEx');
attrs := array(('类别':'单元格属性', '接口':'Paragraph', '说明':'TParagrap对象：设置单元格段落格式、字体格式'));
_LoadObjectAttributes(tbl.Format, attrs, '表格样式', 'Format');
_LoadObjectAttributes(tbl.FormatEx, attrs, '浮动表设置', 'FormatEx');
_AddClassHelpTable(docx, attrs);//添加表格：TTable属性
///TTable方法