update docxconfig

This commit is contained in:
csh
2024-08-22 13:09:14 +08:00
parent 7936d19b98
commit c8ca8ed023
6 changed files with 499 additions and 38 deletions
@@ -0,0 +1,37 @@
type ClrSchemeMappingUnitDecorator = class(ClrSchemeMapping)
uses TSSafeUnitConverter;
public
function Create(_obj: ClrSchemeMapping);
function GetObject();
function Convert();
private
object_: ClrSchemeMapping;
end;
function ClrSchemeMappingUnitDecorator.Create(_obj: ClrSchemeMapping);
begin
class(ClrSchemeMapping).Create();
object_ := _obj;
{self.}Convert();
end;
function ClrSchemeMappingUnitDecorator.GetObject();
begin
return object_;
end;
function ClrSchemeMappingUnitDecorator.Convert();
begin
{self.}XmlAttrBg1.Value := object_.XmlAttrBg1.Value;
{self.}XmlAttrT1.Value := object_.XmlAttrT1.Value;
{self.}XmlAttrBg2.Value := object_.XmlAttrBg2.Value;
{self.}XmlAttrT2.Value := object_.XmlAttrT2.Value;
{self.}XmlAttrAccent1.Value := object_.XmlAttrAccent1.Value;
{self.}XmlAttrAccent2.Value := object_.XmlAttrAccent2.Value;
{self.}XmlAttrAccent3.Value := object_.XmlAttrAccent3.Value;
{self.}XmlAttrAccent4.Value := object_.XmlAttrAccent4.Value;
{self.}XmlAttrAccent5.Value := object_.XmlAttrAccent5.Value;
{self.}XmlAttrAccent6.Value := object_.XmlAttrAccent6.Value;
{self.}XmlAttrHyperLink.Value := object_.XmlAttrHyperLink.Value;
{self.}XmlAttrFollowedHyperlink.Value := object_.XmlAttrFollowedHyperlink.Value;
end;
@@ -40,6 +40,7 @@ begin
if not ifnil(object_.XmlChildBordersDoNotSurroundHeader.Value) then {self.}XmlChildBordersDoNotSurroundHeader.Value := object_.XmlChildBordersDoNotSurroundHeader.Value;
if not ifnil(object_.XmlChildBordersDoNotSurroundFooter.Value) then {self.}XmlChildBordersDoNotSurroundFooter.Value := object_.XmlChildBordersDoNotSurroundFooter.Value;
{self.}DefaultTabStop := new PureWValUnitDecorator(object_.DefaultTabStop);
if not ifnil(object_.XmlChildEvenAndOddHeaders.Value) then {self.}XmlChildEvenAndOddHeaders.Value := object_.XmlChildEvenAndOddHeaders.Value;
{self.}DrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.DrawingGridVerticalSpacing);
{self.}DisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.DisplayHorizontalDrawingGridEvery);
{self.}DisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.DisplayVerticalDrawingGridEvery);
@@ -0,0 +1,27 @@
type ThemeFontLangUnitDecorator = class(ThemeFontLang)
uses TSSafeUnitConverter;
public
function Create(_obj: ThemeFontLang);
function GetObject();
function Convert();
private
object_: ThemeFontLang;
end;
function ThemeFontLangUnitDecorator.Create(_obj: ThemeFontLang);
begin
class(ThemeFontLang).Create();
object_ := _obj;
{self.}Convert();
end;
function ThemeFontLangUnitDecorator.GetObject();
begin
return object_;
end;
function ThemeFontLangUnitDecorator.Convert();
begin
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
{self.}XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value;
end;