179 lines
5.5 KiB
Plaintext
179 lines
5.5 KiB
Plaintext
type Ax = 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: Ax);override;
|
|
|
|
public
|
|
// Attributes
|
|
|
|
// Children
|
|
AxId: PureVal;
|
|
Scaling: Scaling;
|
|
_Delete: PureVal;
|
|
AxPos: PureVal;
|
|
NumFmt: NumFmt;
|
|
MajorTickMark: PureVal;
|
|
MinorTickMark: PureVal;
|
|
TickLblPos: PureVal;
|
|
SpPr: SpPr;
|
|
TxPr: TxPr;
|
|
CrossAx: PureVal;
|
|
Crosses: PureVal;
|
|
CrossBetween: PureVal;
|
|
Auto: PureVal;
|
|
LblAlgn: PureVal;
|
|
LblOffset: PureVal;
|
|
NoMultiLvlLbl: PureVal;
|
|
|
|
end;
|
|
|
|
function Ax.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "c", "");
|
|
end;
|
|
|
|
function Ax.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Ax.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Ax.Init();override;
|
|
begin
|
|
{self.}AxId := new PureVal(self, {self.}Prefix, "axId");
|
|
{self.}Scaling := new Scaling(self, {self.}Prefix, "scaling");
|
|
{self.}_Delete := new PureVal(self, {self.}Prefix, "delete");
|
|
{self.}AxPos := new PureVal(self, {self.}Prefix, "axPos");
|
|
{self.}NumFmt := new NumFmt(self, {self.}Prefix, "numFmt");
|
|
{self.}MajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark");
|
|
{self.}MinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark");
|
|
{self.}TickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos");
|
|
{self.}SpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
{self.}TxPr := new TxPr(self, {self.}Prefix, "txPr");
|
|
{self.}CrossAx := new PureVal(self, {self.}Prefix, "crossAx");
|
|
{self.}Crosses := new PureVal(self, {self.}Prefix, "crosses");
|
|
{self.}CrossBetween := new PureVal(self, {self.}Prefix, "crossBetween");
|
|
{self.}Auto := new PureVal(self, {self.}Prefix, "auto");
|
|
{self.}LblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn");
|
|
{self.}LblOffset := new PureVal(self, {self.}Prefix, "lblOffset");
|
|
{self.}NoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl");
|
|
end;
|
|
|
|
function Ax.InitAttributes();override;
|
|
begin
|
|
attributes_ := array(
|
|
);
|
|
end;
|
|
|
|
function Ax.InitChildren();override;
|
|
begin
|
|
child_elements_ := array(
|
|
0: {self.}AxId,
|
|
1: {self.}Scaling,
|
|
2: {self.}_Delete,
|
|
3: {self.}AxPos,
|
|
4: {self.}NumFmt,
|
|
5: {self.}MajorTickMark,
|
|
6: {self.}MinorTickMark,
|
|
7: {self.}TickLblPos,
|
|
8: {self.}SpPr,
|
|
9: {self.}TxPr,
|
|
10: {self.}CrossAx,
|
|
11: {self.}Crosses,
|
|
12: {self.}CrossBetween,
|
|
13: {self.}Auto,
|
|
14: {self.}LblAlgn,
|
|
15: {self.}LblOffset,
|
|
16: {self.}NoMultiLvlLbl,
|
|
);
|
|
sorted_child_ := array(
|
|
"": -1,
|
|
{self.}AxId.ElementName: 0,
|
|
{self.}Scaling.ElementName: 1,
|
|
{self.}_Delete.ElementName: 2,
|
|
{self.}AxPos.ElementName: 3,
|
|
{self.}NumFmt.ElementName: 4,
|
|
{self.}MajorTickMark.ElementName: 5,
|
|
{self.}MinorTickMark.ElementName: 6,
|
|
{self.}TickLblPos.ElementName: 7,
|
|
{self.}SpPr.ElementName: 8,
|
|
{self.}TxPr.ElementName: 9,
|
|
{self.}CrossAx.ElementName: 10,
|
|
{self.}Crosses.ElementName: 11,
|
|
{self.}CrossBetween.ElementName: 12,
|
|
{self.}Auto.ElementName: 13,
|
|
{self.}LblAlgn.ElementName: 14,
|
|
{self.}LblOffset.ElementName: 15,
|
|
{self.}NoMultiLvlLbl.ElementName: 16,
|
|
);
|
|
end;
|
|
|
|
function Ax.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
|
|
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 Ax.Copy(_obj: Ax);override;
|
|
begin
|
|
{self.}AxId.Copy(_obj.AxId);
|
|
{self.}Scaling.Copy(_obj.Scaling);
|
|
{self.}_Delete.Copy(_obj._Delete);
|
|
{self.}AxPos.Copy(_obj.AxPos);
|
|
{self.}NumFmt.Copy(_obj.NumFmt);
|
|
{self.}MajorTickMark.Copy(_obj.MajorTickMark);
|
|
{self.}MinorTickMark.Copy(_obj.MinorTickMark);
|
|
{self.}TickLblPos.Copy(_obj.TickLblPos);
|
|
{self.}SpPr.Copy(_obj.SpPr);
|
|
{self.}TxPr.Copy(_obj.TxPr);
|
|
{self.}CrossAx.Copy(_obj.CrossAx);
|
|
{self.}Crosses.Copy(_obj.Crosses);
|
|
{self.}CrossBetween.Copy(_obj.CrossBetween);
|
|
{self.}Auto.Copy(_obj.Auto);
|
|
{self.}LblAlgn.Copy(_obj.LblAlgn);
|
|
{self.}LblOffset.Copy(_obj.LblOffset);
|
|
{self.}NoMultiLvlLbl.Copy(_obj.NoMultiLvlLbl);
|
|
end;
|