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/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;