tinysoft
/
OfficeVba
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

修复border一些问题

This commit is contained in:
csh 2024-02-29 14:26:53 +08:00
parent e4a6d3f0c2
commit 46a8fb020b
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docx/border/TSDocxBorder.tsf
View File

@ -50,9 +50,9 @@ End;
Function TSDocxBorder.Apply();virtual; Function TSDocxBorder.Apply();virtual;
Begin Begin
border_.Update("first"); border_.Update("first");
End End;
// property // Properties
Function TSDocxBorder.WriteArtStyle(value);virtual; Function TSDocxBorder.WriteArtStyle(value);virtual;
Begin Begin
case value of case value of
@ -437,6 +437,7 @@ End;
Function TSDocxBorder.WriteVisible(value);virtual; Function TSDocxBorder.WriteVisible(value);virtual;
Begin Begin
v := value ? "single" : "nil"; v := value ? "single" : "nil";
border_.Val := v;
End; End;
Function TSDocxBorder.ReadVisible();virtual; Function TSDocxBorder.ReadVisible();virtual;
Begin Begin

1
docx/border/TSDocxBorderTable.tsf
View File

@ -38,6 +38,7 @@ Begin
table_ := table; table_ := table;
border_type_ := borderType; border_type_ := borderType;
cell_border_ := false; cell_border_ := false;
class(TSDocxBorder).Init(nil);
case border_type_ of case border_type_ of
TSDocxEnumerations.wdBorderBottom(): TSDocxEnumerations.wdBorderBottom():

2
docx/border/TSDocxBorders.tsf
View File

@ -97,4 +97,4 @@ Begin
return self[Index]; return self[Index];
End; End;
// property // Properties