type LatenStyles = 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: LatenStyles);override; function AddLsdException(): LsdException; function AppendLsdException(): LsdException; property LsdExceptions read ReadLsdExceptions; function ReadLsdExceptions(_index); property DefLickedState read ReadXmlAttrDefLickedState write WriteXmlAttrDefLickedState; property DefUIPriority read ReadXmlAttrDefUIPriority write WriteXmlAttrDefUIPriority; property DefSemiHidden read ReadXmlAttrDefSemiHidden write WriteXmlAttrDefSemiHidden; property DefUnhideWhenUsed read ReadXmlAttrDefUnhideWhenUsed write WriteXmlAttrDefUnhideWhenUsed; property DefQFormat read ReadXmlAttrDefQFormat write WriteXmlAttrDefQFormat; property Count read ReadXmlAttrCount write WriteXmlAttrCount; function ReadXmlAttrDefLickedState(); function WriteXmlAttrDefLickedState(_value); function ReadXmlAttrDefUIPriority(); function WriteXmlAttrDefUIPriority(_value); function ReadXmlAttrDefSemiHidden(); function WriteXmlAttrDefSemiHidden(_value); function ReadXmlAttrDefUnhideWhenUsed(); function WriteXmlAttrDefUnhideWhenUsed(_value); function ReadXmlAttrDefQFormat(); function WriteXmlAttrDefQFormat(_value); function ReadXmlAttrCount(); function WriteXmlAttrCount(_value); public // Attributes XmlAttrDefLickedState: OpenXmlAttribute; XmlAttrDefUIPriority: OpenXmlAttribute; XmlAttrDefSemiHidden: OpenXmlAttribute; XmlAttrDefUnhideWhenUsed: OpenXmlAttribute; XmlAttrDefQFormat: OpenXmlAttribute; XmlAttrCount: OpenXmlAttribute; // Children end; function LatenStyles.Create();overload; begin {self.}Create(nil, "w", "latenStyles"); end; function LatenStyles.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function LatenStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function LatenStyles.Init();override; begin {self.}XmlAttrDefLickedState := new OpenXmlAttribute({self.}Prefix, "defLickedState", nil); {self.}XmlAttrDefUIPriority := new OpenXmlAttribute({self.}Prefix, "defUIPriority", nil); {self.}XmlAttrDefSemiHidden := new OpenXmlAttribute({self.}Prefix, "defSemiHidden", nil); {self.}XmlAttrDefUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "defUnhideWhenUsed", nil); {self.}XmlAttrDefQFormat := new OpenXmlAttribute({self.}Prefix, "defQFormat", nil); {self.}XmlAttrCount := new OpenXmlAttribute({self.}Prefix, "count", nil); end; function LatenStyles.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrDefLickedState, {self.}XmlAttrDefUIPriority, {self.}XmlAttrDefSemiHidden, {self.}XmlAttrDefUnhideWhenUsed, {self.}XmlAttrDefQFormat, {self.}XmlAttrCount, ); end; function LatenStyles.InitChildren();override; begin child_elements_ := array( ); sorted_child_ := array( "": -1, ); end; function LatenStyles.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; node := ifObj(_node) ? _node.FirstChild() : nil; flag := false; if ifnil(child_elements_[0]) and length(child_elements_) > 0 then begin flag := true; arr := child_elements_; child_elements_ := array(); end pre := ifString({self.}Prefix) ? {self.}Prefix + ":" : ""; while ifObj(node) do begin node_name := node.GetName(); pos := sorted_child_[node_name]; if ifnil(pos) or pos = -1 then begin obj := nil; case node_name of pre + "lsdException": obj := {self.}AppendLsdException(); end; if ifObj(obj) then obj.InitNode(node); end else if flag then begin obj := arr[pos]; obj.InitNode(node); child_elements_[length(child_elements_)] := obj; end else begin child_elements_[pos].InitNode(node); end node := node.NextElement(); end end; function LatenStyles.Copy(_obj: LatenStyles);override; begin if not ifnil(_obj.XmlAttrDefLickedState.Value) then {self.}XmlAttrDefLickedState.Value := _obj.XmlAttrDefLickedState.Value; if not ifnil(_obj.XmlAttrDefUIPriority.Value) then {self.}XmlAttrDefUIPriority.Value := _obj.XmlAttrDefUIPriority.Value; if not ifnil(_obj.XmlAttrDefSemiHidden.Value) then {self.}XmlAttrDefSemiHidden.Value := _obj.XmlAttrDefSemiHidden.Value; if not ifnil(_obj.XmlAttrDefUnhideWhenUsed.Value) then {self.}XmlAttrDefUnhideWhenUsed.Value := _obj.XmlAttrDefUnhideWhenUsed.Value; if not ifnil(_obj.XmlAttrDefQFormat.Value) then {self.}XmlAttrDefQFormat.Value := _obj.XmlAttrDefQFormat.Value; if not ifnil(_obj.XmlAttrCount.Value) then {self.}XmlAttrCount.Value := _obj.XmlAttrCount.Value; end; function LatenStyles.AddLsdException(): LsdException; begin len := length(child_elements_); if len = 0 then i := -1; else begin for i:=len-1 downto 0 do if child_elements_[i].LocalName = "lsdException" then break; end obj := new LsdException(self, {self.}Prefix, "lsdException"); {self.}InsertChild(obj, i+1); return obj; end; function LatenStyles.AppendLsdException(): LsdException; begin obj := new LsdException(self, {self.}Prefix, "lsdException"); child_elements_[length(child_elements_)] := obj; return obj; end; function LatenStyles.ReadLsdExceptions(_index); begin ind := ifnil(_index) ? -2 : _index; arr := array(); for k,v in child_elements_ do begin if v.LocalName = "lsdException" then begin arr[length(arr)] := v; ind--; end; if ind = -1 then return v; end; return arr; end; function LatenStyles.ReadXmlAttrDefLickedState(); begin return {self.}XmlAttrDefLickedState.Value; end; function LatenStyles.WriteXmlAttrDefLickedState(_value); begin {self.}XmlAttrDefLickedState.Value := _value; end; function LatenStyles.ReadXmlAttrDefUIPriority(); begin return {self.}XmlAttrDefUIPriority.Value; end; function LatenStyles.WriteXmlAttrDefUIPriority(_value); begin {self.}XmlAttrDefUIPriority.Value := _value; end; function LatenStyles.ReadXmlAttrDefSemiHidden(); begin return {self.}XmlAttrDefSemiHidden.Value; end; function LatenStyles.WriteXmlAttrDefSemiHidden(_value); begin {self.}XmlAttrDefSemiHidden.Value := _value; end; function LatenStyles.ReadXmlAttrDefUnhideWhenUsed(); begin return {self.}XmlAttrDefUnhideWhenUsed.Value; end; function LatenStyles.WriteXmlAttrDefUnhideWhenUsed(_value); begin {self.}XmlAttrDefUnhideWhenUsed.Value := _value; end; function LatenStyles.ReadXmlAttrDefQFormat(); begin return {self.}XmlAttrDefQFormat.Value; end; function LatenStyles.WriteXmlAttrDefQFormat(_value); begin {self.}XmlAttrDefQFormat.Value := _value; end; function LatenStyles.ReadXmlAttrCount(); begin return {self.}XmlAttrCount.Value; end; function LatenStyles.WriteXmlAttrCount(_value); begin {self.}XmlAttrCount.Value := _value; end;