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;