OfficeXml/autoclass/pptx/CXY@PPTX.tsf

100 lines
2.0 KiB
Plaintext

type CXY = class(OpenXmlElement)
public
function Create();overload;
function Create(_node);overload;
function Create(_parent, _prefix, _local_name);overload;
function Init();override;
function InitAttributes();override;
function InitChildren();override;
function InitNode(_node);override;
function Copy(_obj);override;
property CX read ReadXmlAttrCX write WriteXmlAttrCX;
property CY read ReadXmlAttrCY write WriteXmlAttrCY;
function ReadXmlAttrCX();
function WriteXmlAttrCX(_value);
function ReadXmlAttrCY();
function WriteXmlAttrCY(_value);
public
// Attributes
XmlAttrCX;
XmlAttrCY;
// Children
end;
function CXY.Create();overload;
begin
self.Create(nil, nil, "off");
end;
function CXY.Create(_node);overload;
begin
class(OpenXmlElement).Create(_node);
end;
function CXY.Create(_parent, _prefix, _local_name);overload;
begin
class(OpenXmlElement).Create(_parent, _prefix, _local_name);
end;
function CXY.Init();override;
begin
self.XmlAttrCX := new OpenXmlAttribute(nil, "cx", nil);
self.XmlAttrCY := new OpenXmlAttribute(nil, "cy", nil);
end;
function CXY.InitAttributes();override;
begin
attributes_ := array(
self.XmlAttrCX,
self.XmlAttrCY,
);
end;
function CXY.InitChildren();override;
begin
child_elements_ := array(
);
sorted_child_ := array(
"": -1,
);
end;
function CXY.InitNode(_node);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 CXY.Copy(_obj);override;
begin
if not ifnil(_obj.XmlAttrCX.Value) then
self.XmlAttrCX.Value := _obj.XmlAttrCX.Value;
if not ifnil(_obj.XmlAttrCY.Value) then
self.XmlAttrCY.Value := _obj.XmlAttrCY.Value;
end;
function CXY.ReadXmlAttrCX();
begin
return self.XmlAttrCX.Value;
end;
function CXY.WriteXmlAttrCX(_value);
begin
self.XmlAttrCX.Value := _value;
end;
function CXY.ReadXmlAttrCY();
begin
return self.XmlAttrCY.Value;
end;
function CXY.WriteXmlAttrCY(_value);
begin
self.XmlAttrCY.Value := _value;
end;