OfficeXml/autoclass/docx/WebSettings@DOCX.tsf

type WebSettings = 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: WebSettings);override;

public

    // attributes property
    property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc;
    property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR;
    property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW;
    property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14;
    property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15;
    property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex;
    property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid;
    property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16;
    property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du;
    property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh;
    property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se;
    property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable;
    function ReadXmlAttrXmlnsMc();
    function WriteXmlAttrXmlnsMc(_value);
    function ReadXmlAttrXmlnsR();
    function WriteXmlAttrXmlnsR(_value);
    function ReadXmlAttrXmlnsW();
    function WriteXmlAttrXmlnsW(_value);
    function ReadXmlAttrXmlnsW14();
    function WriteXmlAttrXmlnsW14(_value);
    function ReadXmlAttrXmlnsW15();
    function WriteXmlAttrXmlnsW15(_value);
    function ReadXmlAttrXmlnsW16Cex();
    function WriteXmlAttrXmlnsW16Cex(_value);
    function ReadXmlAttrXmlnsW16Cid();
    function WriteXmlAttrXmlnsW16Cid(_value);
    function ReadXmlAttrXmlnsW16();
    function WriteXmlAttrXmlnsW16(_value);
    function ReadXmlAttrXmlnsW16Du();
    function WriteXmlAttrXmlnsW16Du(_value);
    function ReadXmlAttrXmlnsW16sdtdh();
    function WriteXmlAttrXmlnsW16sdtdh(_value);
    function ReadXmlAttrXmlnsW16se();
    function WriteXmlAttrXmlnsW16se(_value);
    function ReadXmlAttrMcIgnorable();
    function WriteXmlAttrMcIgnorable(_value);

    // empty property
    property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser write WriteXmlChildOptimizeForBrowser;
    property AllowPNG read ReadXmlChildAllowPNG write WriteXmlChildAllowPNG;
    function ReadXmlChildOptimizeForBrowser();
    function WriteXmlChildOptimizeForBrowser(_value);
    function ReadXmlChildAllowPNG();
    function WriteXmlChildAllowPNG(_value);

public
    // Attributes
    XmlAttrXmlnsMc: OpenXmlAttribute;
    XmlAttrXmlnsR: OpenXmlAttribute;
    XmlAttrXmlnsW: OpenXmlAttribute;
    XmlAttrXmlnsW14: OpenXmlAttribute;
    XmlAttrXmlnsW15: OpenXmlAttribute;
    XmlAttrXmlnsW16Cex: OpenXmlAttribute;
    XmlAttrXmlnsW16Cid: OpenXmlAttribute;
    XmlAttrXmlnsW16: OpenXmlAttribute;
    XmlAttrXmlnsW16Du: OpenXmlAttribute;
    XmlAttrXmlnsW16sdtdh: OpenXmlAttribute;
    XmlAttrXmlnsW16se: OpenXmlAttribute;
    XmlAttrMcIgnorable: OpenXmlAttribute;

    // Children
    XmlChildOptimizeForBrowser: OpenXmlEmpty;
    XmlChildAllowPNG: OpenXmlEmpty;

end;

function WebSettings.Create();overload;
begin
    {self.}Create(nil, "w", "webSettings");
end;

function WebSettings.Create(_node: XmlNode);overload;
begin
    class(OpenXmlElement).Create(_node: XmlNode);
end;

function WebSettings.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 WebSettings.Init();override;
begin
    pre := {self.}Prefix ? {self.}Prefix + ":" : "";
    attributes_ := array();
    attributes_pf_ := array(
        "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)),
        "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)),
        "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)),
        "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)),
        "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)),
        "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)),
        "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)),
        "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)),
        "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)),
        "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)),
        "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)),
        "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)),
    );
    sorted_child_ := array(
        pre + "optimizeForBrowser": array(0, makeweakref(thisFunction(ReadXmlChildOptimizeForBrowser))),
        pre + "allowPNG": array(1, makeweakref(thisFunction(ReadXmlChildAllowPNG))),
    );
    container_ := new TSOfficeContainer(sorted_child_);
end;

function WebSettings.Copy(_obj: WebSettings);override;
begin
    tslassigning_backup := tslassigning;
    tslassigning := 1;
    class(OpenXmlElement).Copy(_obj);
    if not ifnil(_obj.XmlnsMc) then
        {self.}XmlnsMc := _obj.XmlnsMc;
    if not ifnil(_obj.XmlnsR) then
        {self.}XmlnsR := _obj.XmlnsR;
    if not ifnil(_obj.XmlnsW) then
        {self.}XmlnsW := _obj.XmlnsW;
    if not ifnil(_obj.XmlnsW14) then
        {self.}XmlnsW14 := _obj.XmlnsW14;
    if not ifnil(_obj.XmlnsW15) then
        {self.}XmlnsW15 := _obj.XmlnsW15;
    if not ifnil(_obj.XmlnsW16Cex) then
        {self.}XmlnsW16Cex := _obj.XmlnsW16Cex;
    if not ifnil(_obj.XmlnsW16Cid) then
        {self.}XmlnsW16Cid := _obj.XmlnsW16Cid;
    if not ifnil(_obj.XmlnsW16) then
        {self.}XmlnsW16 := _obj.XmlnsW16;
    if not ifnil(_obj.XmlnsW16Du) then
        {self.}XmlnsW16Du := _obj.XmlnsW16Du;
    if not ifnil(_obj.XmlnsW16sdtdh) then
        {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh;
    if not ifnil(_obj.XmlnsW16se) then
        {self.}XmlnsW16se := _obj.XmlnsW16se;
    if not ifnil(_obj.McIgnorable) then
        {self.}McIgnorable := _obj.McIgnorable;
    if not ifnil(_obj.XmlChildOptimizeForBrowser) then
        ifnil({self.}XmlChildOptimizeForBrowser) ? {self.}OptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser) : {self.}XmlChildOptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser);
    if not ifnil(_obj.XmlChildAllowPNG) then
        ifnil({self.}XmlChildAllowPNG) ? {self.}AllowPNG.Copy(_obj.XmlChildAllowPNG) : {self.}XmlChildAllowPNG.Copy(_obj.XmlChildAllowPNG);
    tslassigning := tslassigning_backup;
end;

function WebSettings.ReadXmlAttrXmlnsMc();
begin
    return {self.}XmlAttrXmlnsMc.Value;
end;

function WebSettings.WriteXmlAttrXmlnsMc(_value);
begin
    if ifnil({self.}XmlAttrXmlnsMc) then
    begin
        {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc;
    end
    {self.}XmlAttrXmlnsMc.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsR();
begin
    return {self.}XmlAttrXmlnsR.Value;
end;

function WebSettings.WriteXmlAttrXmlnsR(_value);
begin
    if ifnil({self.}XmlAttrXmlnsR) then
    begin
        {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR;
    end
    {self.}XmlAttrXmlnsR.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW();
begin
    return {self.}XmlAttrXmlnsW.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW) then
    begin
        {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW;
    end
    {self.}XmlAttrXmlnsW.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW14();
begin
    return {self.}XmlAttrXmlnsW14.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW14(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW14) then
    begin
        {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14;
    end
    {self.}XmlAttrXmlnsW14.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW15();
begin
    return {self.}XmlAttrXmlnsW15.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW15(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW15) then
    begin
        {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15;
    end
    {self.}XmlAttrXmlnsW15.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16Cex();
begin
    return {self.}XmlAttrXmlnsW16Cex.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16Cex(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16Cex) then
    begin
        {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex;
    end
    {self.}XmlAttrXmlnsW16Cex.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16Cid();
begin
    return {self.}XmlAttrXmlnsW16Cid.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16Cid(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16Cid) then
    begin
        {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid;
    end
    {self.}XmlAttrXmlnsW16Cid.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16();
begin
    return {self.}XmlAttrXmlnsW16.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16) then
    begin
        {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16;
    end
    {self.}XmlAttrXmlnsW16.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16Du();
begin
    return {self.}XmlAttrXmlnsW16Du.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16Du(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16Du) then
    begin
        {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du;
    end
    {self.}XmlAttrXmlnsW16Du.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16sdtdh();
begin
    return {self.}XmlAttrXmlnsW16sdtdh.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16sdtdh(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16sdtdh) then
    begin
        {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh;
    end
    {self.}XmlAttrXmlnsW16sdtdh.Value := _value;
end;

function WebSettings.ReadXmlAttrXmlnsW16se();
begin
    return {self.}XmlAttrXmlnsW16se.Value;
end;

function WebSettings.WriteXmlAttrXmlnsW16se(_value);
begin
    if ifnil({self.}XmlAttrXmlnsW16se) then
    begin
        {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se;
    end
    {self.}XmlAttrXmlnsW16se.Value := _value;
end;

function WebSettings.ReadXmlAttrMcIgnorable();
begin
    return {self.}XmlAttrMcIgnorable.Value;
end;

function WebSettings.WriteXmlAttrMcIgnorable(_value);
begin
    if ifnil({self.}XmlAttrMcIgnorable) then
    begin
        {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable;
    end
    {self.}XmlAttrMcIgnorable.Value := _value;
end;

function WebSettings.ReadXmlChildOptimizeForBrowser();
begin
    if tslassigning and ifnil({self.}XmlChildOptimizeForBrowser) then
    begin
        {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser");
        container_.Set({self.}XmlChildOptimizeForBrowser);
        return {self.}XmlChildOptimizeForBrowser;
    end
    return ifnil({self.}XmlChildOptimizeForBrowser) ? false : {self.}XmlChildOptimizeForBrowser.BoolValue();
end;

function WebSettings.WriteXmlChildOptimizeForBrowser(_value);
begin
    if ifnil({self.}XmlChildOptimizeForBrowser) then
    begin
        {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser");
        container_.Set({self.}XmlChildOptimizeForBrowser);
    end
    {self.}XmlChildOptimizeForBrowser.Value := _value;
end;

function WebSettings.ReadXmlChildAllowPNG();
begin
    if tslassigning and ifnil({self.}XmlChildAllowPNG) then
    begin
        {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG");
        container_.Set({self.}XmlChildAllowPNG);
        return {self.}XmlChildAllowPNG;
    end
    return ifnil({self.}XmlChildAllowPNG) ? false : {self.}XmlChildAllowPNG.BoolValue();
end;

function WebSettings.WriteXmlChildAllowPNG(_value);
begin
    if ifnil({self.}XmlChildAllowPNG) then
    begin
        {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG");
        container_.Set({self.}XmlChildAllowPNG);
    end
    {self.}XmlChildAllowPNG.Value := _value;
end;