280 lines
8.7 KiB
Plaintext
280 lines
8.7 KiB
Plaintext
type ClrSchemeMapping = 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: ClrSchemeMapping);override;
|
|
|
|
property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1;
|
|
property T1 read ReadXmlAttrT1 write WriteXmlAttrT1;
|
|
property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2;
|
|
property T2 read ReadXmlAttrT2 write WriteXmlAttrT2;
|
|
property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1;
|
|
property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2;
|
|
property Accent3 read ReadXmlAttrAccent3 write WriteXmlAttrAccent3;
|
|
property Accent4 read ReadXmlAttrAccent4 write WriteXmlAttrAccent4;
|
|
property Accent5 read ReadXmlAttrAccent5 write WriteXmlAttrAccent5;
|
|
property Accent6 read ReadXmlAttrAccent6 write WriteXmlAttrAccent6;
|
|
property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink;
|
|
property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink;
|
|
function ReadXmlAttrBg1();
|
|
function WriteXmlAttrBg1(_value);
|
|
function ReadXmlAttrT1();
|
|
function WriteXmlAttrT1(_value);
|
|
function ReadXmlAttrBg2();
|
|
function WriteXmlAttrBg2(_value);
|
|
function ReadXmlAttrT2();
|
|
function WriteXmlAttrT2(_value);
|
|
function ReadXmlAttrAccent1();
|
|
function WriteXmlAttrAccent1(_value);
|
|
function ReadXmlAttrAccent2();
|
|
function WriteXmlAttrAccent2(_value);
|
|
function ReadXmlAttrAccent3();
|
|
function WriteXmlAttrAccent3(_value);
|
|
function ReadXmlAttrAccent4();
|
|
function WriteXmlAttrAccent4(_value);
|
|
function ReadXmlAttrAccent5();
|
|
function WriteXmlAttrAccent5(_value);
|
|
function ReadXmlAttrAccent6();
|
|
function WriteXmlAttrAccent6(_value);
|
|
function ReadXmlAttrHyperLink();
|
|
function WriteXmlAttrHyperLink(_value);
|
|
function ReadXmlAttrFollowedHyperlink();
|
|
function WriteXmlAttrFollowedHyperlink(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrBg1: OpenXmlAttribute;
|
|
XmlAttrT1: OpenXmlAttribute;
|
|
XmlAttrBg2: OpenXmlAttribute;
|
|
XmlAttrT2: OpenXmlAttribute;
|
|
XmlAttrAccent1: OpenXmlAttribute;
|
|
XmlAttrAccent2: OpenXmlAttribute;
|
|
XmlAttrAccent3: OpenXmlAttribute;
|
|
XmlAttrAccent4: OpenXmlAttribute;
|
|
XmlAttrAccent5: OpenXmlAttribute;
|
|
XmlAttrAccent6: OpenXmlAttribute;
|
|
XmlAttrHyperLink: OpenXmlAttribute;
|
|
XmlAttrFollowedHyperlink: OpenXmlAttribute;
|
|
|
|
// Children
|
|
|
|
end;
|
|
|
|
function ClrSchemeMapping.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "w", "clrSchemeMapping");
|
|
end;
|
|
|
|
function ClrSchemeMapping.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ClrSchemeMapping.Init();override;
|
|
begin
|
|
{self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil);
|
|
{self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil);
|
|
{self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil);
|
|
{self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil);
|
|
{self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil);
|
|
{self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil);
|
|
{self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil);
|
|
{self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil);
|
|
{self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil);
|
|
{self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil);
|
|
{self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil);
|
|
{self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil);
|
|
end;
|
|
|
|
function ClrSchemeMapping.InitAttributes();override;
|
|
begin
|
|
attributes_ := array(
|
|
{self.}XmlAttrBg1,
|
|
{self.}XmlAttrT1,
|
|
{self.}XmlAttrBg2,
|
|
{self.}XmlAttrT2,
|
|
{self.}XmlAttrAccent1,
|
|
{self.}XmlAttrAccent2,
|
|
{self.}XmlAttrAccent3,
|
|
{self.}XmlAttrAccent4,
|
|
{self.}XmlAttrAccent5,
|
|
{self.}XmlAttrAccent6,
|
|
{self.}XmlAttrHyperLink,
|
|
{self.}XmlAttrFollowedHyperlink,
|
|
);
|
|
end;
|
|
|
|
function ClrSchemeMapping.InitChildren();override;
|
|
begin
|
|
child_elements_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"": -1,
|
|
);
|
|
end;
|
|
|
|
function ClrSchemeMapping.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;
|
|
end;
|
|
|
|
function ClrSchemeMapping.Copy(_obj: ClrSchemeMapping);override;
|
|
begin
|
|
if not ifnil(_obj.XmlAttrBg1.Value) then
|
|
{self.}XmlAttrBg1.Value := _obj.XmlAttrBg1.Value;
|
|
if not ifnil(_obj.XmlAttrT1.Value) then
|
|
{self.}XmlAttrT1.Value := _obj.XmlAttrT1.Value;
|
|
if not ifnil(_obj.XmlAttrBg2.Value) then
|
|
{self.}XmlAttrBg2.Value := _obj.XmlAttrBg2.Value;
|
|
if not ifnil(_obj.XmlAttrT2.Value) then
|
|
{self.}XmlAttrT2.Value := _obj.XmlAttrT2.Value;
|
|
if not ifnil(_obj.XmlAttrAccent1.Value) then
|
|
{self.}XmlAttrAccent1.Value := _obj.XmlAttrAccent1.Value;
|
|
if not ifnil(_obj.XmlAttrAccent2.Value) then
|
|
{self.}XmlAttrAccent2.Value := _obj.XmlAttrAccent2.Value;
|
|
if not ifnil(_obj.XmlAttrAccent3.Value) then
|
|
{self.}XmlAttrAccent3.Value := _obj.XmlAttrAccent3.Value;
|
|
if not ifnil(_obj.XmlAttrAccent4.Value) then
|
|
{self.}XmlAttrAccent4.Value := _obj.XmlAttrAccent4.Value;
|
|
if not ifnil(_obj.XmlAttrAccent5.Value) then
|
|
{self.}XmlAttrAccent5.Value := _obj.XmlAttrAccent5.Value;
|
|
if not ifnil(_obj.XmlAttrAccent6.Value) then
|
|
{self.}XmlAttrAccent6.Value := _obj.XmlAttrAccent6.Value;
|
|
if not ifnil(_obj.XmlAttrHyperLink.Value) then
|
|
{self.}XmlAttrHyperLink.Value := _obj.XmlAttrHyperLink.Value;
|
|
if not ifnil(_obj.XmlAttrFollowedHyperlink.Value) then
|
|
{self.}XmlAttrFollowedHyperlink.Value := _obj.XmlAttrFollowedHyperlink.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrBg1();
|
|
begin
|
|
return {self.}XmlAttrBg1.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrBg1(_value);
|
|
begin
|
|
{self.}XmlAttrBg1.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrT1();
|
|
begin
|
|
return {self.}XmlAttrT1.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrT1(_value);
|
|
begin
|
|
{self.}XmlAttrT1.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrBg2();
|
|
begin
|
|
return {self.}XmlAttrBg2.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrBg2(_value);
|
|
begin
|
|
{self.}XmlAttrBg2.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrT2();
|
|
begin
|
|
return {self.}XmlAttrT2.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrT2(_value);
|
|
begin
|
|
{self.}XmlAttrT2.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent1();
|
|
begin
|
|
return {self.}XmlAttrAccent1.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent1(_value);
|
|
begin
|
|
{self.}XmlAttrAccent1.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent2();
|
|
begin
|
|
return {self.}XmlAttrAccent2.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent2(_value);
|
|
begin
|
|
{self.}XmlAttrAccent2.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent3();
|
|
begin
|
|
return {self.}XmlAttrAccent3.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent3(_value);
|
|
begin
|
|
{self.}XmlAttrAccent3.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent4();
|
|
begin
|
|
return {self.}XmlAttrAccent4.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent4(_value);
|
|
begin
|
|
{self.}XmlAttrAccent4.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent5();
|
|
begin
|
|
return {self.}XmlAttrAccent5.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent5(_value);
|
|
begin
|
|
{self.}XmlAttrAccent5.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrAccent6();
|
|
begin
|
|
return {self.}XmlAttrAccent6.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrAccent6(_value);
|
|
begin
|
|
{self.}XmlAttrAccent6.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrHyperLink();
|
|
begin
|
|
return {self.}XmlAttrHyperLink.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrHyperLink(_value);
|
|
begin
|
|
{self.}XmlAttrHyperLink.Value := _value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink();
|
|
begin
|
|
return {self.}XmlAttrFollowedHyperlink.Value;
|
|
end;
|
|
|
|
function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value);
|
|
begin
|
|
{self.}XmlAttrFollowedHyperlink.Value := _value;
|
|
end;
|