type Title = 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 Copy(_obj: Title);override; public // empty property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(); function WriteXmlChildLayout(_value); // normal property property Tx read ReadXmlChildTx; property Overlay read ReadXmlChildOverlay; function ReadXmlChildTx(); function ReadXmlChildOverlay(); public // Children XmlChildTx: Tx; XmlChildLayout: OpenXmlEmpty; XmlChildOverlay: PureVal; end; function Title.Create();overload; begin {self.}Create(nil, "c", "title"); end; function Title.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Title.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function Title.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "tx": array(0, makeweakref(thisFunction(ReadXmlChildTx))), pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Title.Copy(_obj: Title);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildTx) then {self.}Tx.Copy(_obj.XmlChildTx); if not ifnil(_obj.XmlChildLayout) then ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); if not ifnil(_obj.XmlChildOverlay) then {self.}Overlay.Copy(_obj.XmlChildOverlay); tslassigning := tslassigning_backup; end; function Title.ReadXmlChildLayout(); begin if tslassigning and ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); return {self.}XmlChildLayout; end return {self.}XmlChildLayout.BoolValue(); end; function Title.WriteXmlChildLayout(_value); begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end {self.}XmlChildLayout.Value := _value; end; function Title.ReadXmlChildTx(); begin if tslassigning and ifnil({self.}XmlChildTx) then begin {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); container_.Set({self.}XmlChildTx); end return {self.}XmlChildTx; end; function Title.ReadXmlChildOverlay(); begin if tslassigning and ifnil({self.}XmlChildOverlay) then begin {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); container_.Set({self.}XmlChildOverlay); end return {self.}XmlChildOverlay; end;