type ClrSchemeMapping = class(OpenXmlElement) public function Create();overload; function Create(_node: XmlNode);overload; function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; function Init();override; function InitAttributes();override; function InitChildren();override; function InitNode(_node: XmlNode);override; function Copy(_obj: ClrSchemeMapping);override; property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1; property T1 read ReadXmlAttrT1 write WriteXmlAttrT1; property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2; property T2 read ReadXmlAttrT2 write WriteXmlAttrT2; property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1; property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2; property Accent3 read ReadXmlAttrAccent3 write WriteXmlAttrAccent3; property Accent4 read ReadXmlAttrAccent4 write WriteXmlAttrAccent4; property Accent5 read ReadXmlAttrAccent5 write WriteXmlAttrAccent5; property Accent6 read ReadXmlAttrAccent6 write WriteXmlAttrAccent6; property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink; property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink; function ReadXmlAttrBg1(); function WriteXmlAttrBg1(_value); function ReadXmlAttrT1(); function WriteXmlAttrT1(_value); function ReadXmlAttrBg2(); function WriteXmlAttrBg2(_value); function ReadXmlAttrT2(); function WriteXmlAttrT2(_value); function ReadXmlAttrAccent1(); function WriteXmlAttrAccent1(_value); function ReadXmlAttrAccent2(); function WriteXmlAttrAccent2(_value); function ReadXmlAttrAccent3(); function WriteXmlAttrAccent3(_value); function ReadXmlAttrAccent4(); function WriteXmlAttrAccent4(_value); function ReadXmlAttrAccent5(); function WriteXmlAttrAccent5(_value); function ReadXmlAttrAccent6(); function WriteXmlAttrAccent6(_value); function ReadXmlAttrHyperLink(); function WriteXmlAttrHyperLink(_value); function ReadXmlAttrFollowedHyperlink(); function WriteXmlAttrFollowedHyperlink(_value); public // Attributes XmlAttrBg1: OpenXmlAttribute; XmlAttrT1: OpenXmlAttribute; XmlAttrBg2: OpenXmlAttribute; XmlAttrT2: OpenXmlAttribute; XmlAttrAccent1: OpenXmlAttribute; XmlAttrAccent2: OpenXmlAttribute; XmlAttrAccent3: OpenXmlAttribute; XmlAttrAccent4: OpenXmlAttribute; XmlAttrAccent5: OpenXmlAttribute; XmlAttrAccent6: OpenXmlAttribute; XmlAttrHyperLink: OpenXmlAttribute; XmlAttrFollowedHyperlink: OpenXmlAttribute; // Children end; function ClrSchemeMapping.Create();overload; begin {self.}Create(nil, "w", "clrSchemeMapping"); end; function ClrSchemeMapping.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function ClrSchemeMapping.Init();override; begin {self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil); {self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil); {self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil); {self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil); {self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil); {self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil); {self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil); {self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil); {self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil); {self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil); {self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil); {self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil); end; function ClrSchemeMapping.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrBg1, {self.}XmlAttrT1, {self.}XmlAttrBg2, {self.}XmlAttrT2, {self.}XmlAttrAccent1, {self.}XmlAttrAccent2, {self.}XmlAttrAccent3, {self.}XmlAttrAccent4, {self.}XmlAttrAccent5, {self.}XmlAttrAccent6, {self.}XmlAttrHyperLink, {self.}XmlAttrFollowedHyperlink, ); end; function ClrSchemeMapping.InitChildren();override; begin child_elements_ := array( ); sorted_child_ := array( "": -1, ); end; function ClrSchemeMapping.InitNode(_node: XmlNode);override; begin if ifObj({self.}XmlNode) then for k,v in child_elements_ do v.InitNode(nil); {self.}XmlNode := ifObj(_node) ? _node : nil; end; function ClrSchemeMapping.Copy(_obj: ClrSchemeMapping);override; begin if not ifnil(_obj.XmlAttrBg1.Value) then {self.}XmlAttrBg1.Value := _obj.XmlAttrBg1.Value; if not ifnil(_obj.XmlAttrT1.Value) then {self.}XmlAttrT1.Value := _obj.XmlAttrT1.Value; if not ifnil(_obj.XmlAttrBg2.Value) then {self.}XmlAttrBg2.Value := _obj.XmlAttrBg2.Value; if not ifnil(_obj.XmlAttrT2.Value) then {self.}XmlAttrT2.Value := _obj.XmlAttrT2.Value; if not ifnil(_obj.XmlAttrAccent1.Value) then {self.}XmlAttrAccent1.Value := _obj.XmlAttrAccent1.Value; if not ifnil(_obj.XmlAttrAccent2.Value) then {self.}XmlAttrAccent2.Value := _obj.XmlAttrAccent2.Value; if not ifnil(_obj.XmlAttrAccent3.Value) then {self.}XmlAttrAccent3.Value := _obj.XmlAttrAccent3.Value; if not ifnil(_obj.XmlAttrAccent4.Value) then {self.}XmlAttrAccent4.Value := _obj.XmlAttrAccent4.Value; if not ifnil(_obj.XmlAttrAccent5.Value) then {self.}XmlAttrAccent5.Value := _obj.XmlAttrAccent5.Value; if not ifnil(_obj.XmlAttrAccent6.Value) then {self.}XmlAttrAccent6.Value := _obj.XmlAttrAccent6.Value; if not ifnil(_obj.XmlAttrHyperLink.Value) then {self.}XmlAttrHyperLink.Value := _obj.XmlAttrHyperLink.Value; if not ifnil(_obj.XmlAttrFollowedHyperlink.Value) then {self.}XmlAttrFollowedHyperlink.Value := _obj.XmlAttrFollowedHyperlink.Value; end; function ClrSchemeMapping.ReadXmlAttrBg1(); begin return {self.}XmlAttrBg1.Value; end; function ClrSchemeMapping.WriteXmlAttrBg1(_value); begin {self.}XmlAttrBg1.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrT1(); begin return {self.}XmlAttrT1.Value; end; function ClrSchemeMapping.WriteXmlAttrT1(_value); begin {self.}XmlAttrT1.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrBg2(); begin return {self.}XmlAttrBg2.Value; end; function ClrSchemeMapping.WriteXmlAttrBg2(_value); begin {self.}XmlAttrBg2.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrT2(); begin return {self.}XmlAttrT2.Value; end; function ClrSchemeMapping.WriteXmlAttrT2(_value); begin {self.}XmlAttrT2.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent1(); begin return {self.}XmlAttrAccent1.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent1(_value); begin {self.}XmlAttrAccent1.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent2(); begin return {self.}XmlAttrAccent2.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent2(_value); begin {self.}XmlAttrAccent2.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent3(); begin return {self.}XmlAttrAccent3.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent3(_value); begin {self.}XmlAttrAccent3.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent4(); begin return {self.}XmlAttrAccent4.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent4(_value); begin {self.}XmlAttrAccent4.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent5(); begin return {self.}XmlAttrAccent5.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent5(_value); begin {self.}XmlAttrAccent5.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrAccent6(); begin return {self.}XmlAttrAccent6.Value; end; function ClrSchemeMapping.WriteXmlAttrAccent6(_value); begin {self.}XmlAttrAccent6.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrHyperLink(); begin return {self.}XmlAttrHyperLink.Value; end; function ClrSchemeMapping.WriteXmlAttrHyperLink(_value); begin {self.}XmlAttrHyperLink.Value := _value; end; function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink(); begin return {self.}XmlAttrFollowedHyperlink.Value; end; function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value); begin {self.}XmlAttrFollowedHyperlink.Value := _value; end;