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

update config

Browse Source
This commit is contained in:
csh
2024-11-13 17:42:29 +08:00
parent 797101d1f3
commit 5a5906a636
20 changed files with 806 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files
autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf
+2
View File
@@ -44,6 +44,8 @@ begin
{self.}KeepNext.Copy(object_.XmlChildKeepNext);
if not ifnil(object_.XmlChildKeepLines) then
{self.}KeepLines.Copy(object_.XmlChildKeepLines);
if not ifnil(object_.XmlChildPageBreakBefore) then
{self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
if not ifnil(object_.XmlChildAdjustRightInd) then
{self.}XmlChildAdjustRightInd := new PureWValUnitDecorator(object_.XmlChildAdjustRightInd);
if not ifnil(object_.XmlChildSpacing) then
autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf
+1 -1
View File
@@ -37,7 +37,7 @@ begin
if not ifnil(object_.XmlAttrAfterAutospacing) then
{self.}AfterAutospacing := object_.XmlAttrAfterAutospacing.Value;
if not ifnil(object_.XmlAttrLine) then
{self.}Line := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLine.Value);
{self.}Line := TSSafeUnitConverter.ToInt(object_.XmlAttrLine.Value);
if not ifnil(object_.XmlAttrLineRule) then
{self.}LineRule := object_.XmlAttrLineRule.Value;
tslassigning := tslassigning_backup;
autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf
+1 -1
View File
@@ -35,6 +35,6 @@ begin
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
if not ifnil(object_.XmlAttrSz) then
{self.}Sz := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrSz.Value);
{self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf
+6 -6
View File
@@ -25,16 +25,16 @@ begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlChildTop) then
{self.}XmlChildTop := new tblBorderUnitDecorator(object_.XmlChildTop);
{self.}XmlChildTop := new TblBorderUnitDecorator(object_.XmlChildTop);
if not ifnil(object_.XmlChildLeft) then
{self.}XmlChildLeft := new tblBorderUnitDecorator(object_.XmlChildLeft);
{self.}XmlChildLeft := new TblBorderUnitDecorator(object_.XmlChildLeft);
if not ifnil(object_.XmlChildBottom) then
{self.}XmlChildBottom := new tblBorderUnitDecorator(object_.XmlChildBottom);
{self.}XmlChildBottom := new TblBorderUnitDecorator(object_.XmlChildBottom);
if not ifnil(object_.XmlChildRight) then
{self.}XmlChildRight := new tblBorderUnitDecorator(object_.XmlChildRight);
{self.}XmlChildRight := new TblBorderUnitDecorator(object_.XmlChildRight);
if not ifnil(object_.XmlChildInsideH) then
{self.}XmlChildInsideH := new PureWValUnitDecorator(object_.XmlChildInsideH);
{self.}XmlChildInsideH := new TblBorderUnitDecorator(object_.XmlChildInsideH);
if not ifnil(object_.XmlChildInsideV) then
{self.}XmlChildInsideV := new PureWValUnitDecorator(object_.XmlChildInsideV);
{self.}XmlChildInsideV := new TblBorderUnitDecorator(object_.XmlChildInsideV);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TblCellSpacingUnitDecorator@DOCX.tsf
+32
View File
@@ -0,0 +1,32 @@
type TblCellSpacingUnitDecorator = class(TblCellSpacing)
uses TSSafeUnitConverter;
public
function Create(_obj: TblCellSpacing);
function GetObject();
function Convert();
private
object_: TblCellSpacing;
end;
function TblCellSpacingUnitDecorator.Create(_obj: TblCellSpacing);
begin
class(TblCellSpacing).Create();
object_ := _obj;
{self.}Convert();
end;
function TblCellSpacingUnitDecorator.GetObject();
begin
return object_;
end;
function TblCellSpacingUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrW) then
{self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value);
if not ifnil(object_.XmlAttrType) then
{self.}Type := object_.XmlAttrType.Value;
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf
+12 -4
View File
@@ -24,12 +24,10 @@ function TblPrUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlChildTblStyleRowBandSize) then
{self.}XmlChildTblStyleRowBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleRowBandSize);
if not ifnil(object_.XmlChildTblStyleColBandSize) then
{self.}XmlChildTblStyleColBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleColBandSize);
if not ifnil(object_.XmlChildJc) then
{self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildTblStyle) then
{self.}XmlChildTblStyle := new PureWValUnitDecorator(object_.XmlChildTblStyle);
if not ifnil(object_.XmlChildTblW) then
@@ -44,5 +42,15 @@ begin
{self.}XmlChildTblBorders := new TblBordersUnitDecorator(object_.XmlChildTblBorders);
if not ifnil(object_.XmlChildTblCellMar) then
{self.}XmlChildTblCellMar := new TblCellMarUnitDecorator(object_.XmlChildTblCellMar);
if not ifnil(object_.XmlChildTblCellSpacing) then
{self.}XmlChildTblCellSpacing := new TblCellSpacingUnitDecorator(object_.XmlChildTblCellSpacing);
if not ifnil(object_.XmlChildTblCaption) then
{self.}XmlChildTblCaption := new PureWValUnitDecorator(object_.XmlChildTblCaption);
if not ifnil(object_.XmlChildTblDescription) then
{self.}XmlChildTblDescription := new PureWValUnitDecorator(object_.XmlChildTblDescription);
if not ifnil(object_.XmlChildTblStyleRowBandSize) then
{self.}XmlChildTblStyleRowBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleRowBandSize);
if not ifnil(object_.XmlChildTblStyleColBandSize) then
{self.}XmlChildTblStyleColBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleColBandSize);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TcBorderUnitDecorator@DOCX.tsf
+40
View File
@@ -0,0 +1,40 @@
type TcBorderUnitDecorator = class(TcBorder)
uses TSSafeUnitConverter;
public
function Create(_obj: TcBorder);
function GetObject();
function Convert();
private
object_: TcBorder;
end;
function TcBorderUnitDecorator.Create(_obj: TcBorder);
begin
class(TcBorder).Create();
object_ := _obj;
{self.}Convert();
end;
function TcBorderUnitDecorator.GetObject();
begin
return object_;
end;
function TcBorderUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
if not ifnil(object_.XmlAttrColor) then
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrSpace) then
{self.}Space := object_.XmlAttrSpace.Value;
if not ifnil(object_.XmlAttrThemeColor) then
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
if not ifnil(object_.XmlAttrSz) then
{self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TcBordersUnitDecorator@DOCX.tsf
+44
View File
@@ -0,0 +1,44 @@
type TcBordersUnitDecorator = class(TcBorders)
uses TSSafeUnitConverter;
public
function Create(_obj: TcBorders);
function GetObject();
function Convert();
private
object_: TcBorders;
end;
function TcBordersUnitDecorator.Create(_obj: TcBorders);
begin
class(TcBorders).Create();
object_ := _obj;
{self.}Convert();
end;
function TcBordersUnitDecorator.GetObject();
begin
return object_;
end;
function TcBordersUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlChildTop) then
{self.}XmlChildTop := new TcBorderUnitDecorator(object_.XmlChildTop);
if not ifnil(object_.XmlChildLeft) then
{self.}XmlChildLeft := new TcBorderUnitDecorator(object_.XmlChildLeft);
if not ifnil(object_.XmlChildBottom) then
{self.}XmlChildBottom := new TcBorderUnitDecorator(object_.XmlChildBottom);
if not ifnil(object_.XmlChildRight) then
{self.}XmlChildRight := new TcBorderUnitDecorator(object_.XmlChildRight);
if not ifnil(object_.XmlChildTl2Br) then
{self.}XmlChildTl2Br := new TcBorderUnitDecorator(object_.XmlChildTl2Br);
if not ifnil(object_.XmlChildTr2Bl) then
{self.}XmlChildTr2Bl := new TcBorderUnitDecorator(object_.XmlChildTr2Bl);
if not ifnil(object_.XmlChildInsideH) then
{self.}XmlChildInsideH := new TcBorderUnitDecorator(object_.XmlChildInsideH);
if not ifnil(object_.XmlChildInsideV) then
{self.}XmlChildInsideV := new TcBorderUnitDecorator(object_.XmlChildInsideV);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf
+2
View File
@@ -36,5 +36,7 @@ begin
{self.}HideMark.Copy(object_.XmlChildHideMark);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildTcBorders) then
{self.}XmlChildTcBorders := new TcBordersUnitDecorator(object_.XmlChildTcBorders);
tslassigning := tslassigning_backup;
end;
autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf
+2
View File
@@ -24,6 +24,8 @@ function TrHeightUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrHRule) then
{self.}HRule := object_.XmlAttrHRule.Value;
if not ifnil(object_.XmlAttrval) then
{self.}val := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrval.Value);
tslassigning := tslassigning_backup;