update docxconfig
This commit is contained in:
@@ -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;
|
||||
Reference in New Issue
Block a user