diff --git a/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf b/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf index 9cf45cd..9689d19 100644 --- a/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf +++ b/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf @@ -3,12 +3,10 @@ public function Create(_obj: Numbering); function Init(); - property AbstractNumId read ReadAbstractNumId write WriteAbstractNumId; - property NumId read ReadNumId write WriteNumId; - function ReadAbstractNumId(_key: string); - function WriteAbstractNumId(_key: string; _value: tslobj); - function ReadNumId(_key: string); - function WriteNumId(_key: string; _value: tslobj); + function GetAbstractNumByAbstractNumId(_key: string); + function SetAbstractNumByAbstractNumId(_key: string; _value: tslobj); + function GetNumByNumId(_key: string); + function SetNumByNumId(_key: string; _value: tslobj); private object_: Numbering; @@ -26,30 +24,30 @@ end; function NumberingAdapter.Init(); begin - elements := object_.AbstractNums; + elements := object_.AbstractNums(); for k,v in elements do abstractnum_hash_[v.AbstractNumId] := v; - elements := object_.Nums; + elements := object_.Nums(); for k,v in elements do num_hash_[v.NumId] := v; end; -function NumberingAdapter.ReadAbstractNumId(_key: string); +function NumberingAdapter.GetAbstractNumByAbstractNumId(_key: string); begin return abstractnum_hash_[_key]; end; -function NumberingAdapter.WriteAbstractNumId(_key: string; _value: tslobj); +function NumberingAdapter.SetAbstractNumByAbstractNumId(_key: string; _value: tslobj); begin abstractnum_hash_[_key] := _value; end; -function NumberingAdapter.ReadNumId(_key: string); +function NumberingAdapter.GetNumByNumId(_key: string); begin return num_hash_[_key]; end; -function NumberingAdapter.WriteNumId(_key: string; _value: tslobj); +function NumberingAdapter.SetNumByNumId(_key: string; _value: tslobj); begin num_hash_[_key] := _value; end; diff --git a/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf b/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf index a9ba9fc..869bd29 100644 --- a/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf +++ b/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf @@ -3,9 +3,8 @@ public function Create(_obj: Relationships); function Init(); - property Id read ReadId write WriteId; - function ReadId(_key: string); - function WriteId(_key: string; _value: tslobj); + function GetRelationshipById(_key: string); + function SetRelationshipById(_key: string; _value: tslobj); private object_: Relationships; @@ -21,17 +20,17 @@ end; function RelationshipsAdapter.Init(); begin - elements := object_.Relationships; + elements := object_.Relationships(); for k,v in elements do relationship_hash_[v.Id] := v; end; -function RelationshipsAdapter.ReadId(_key: string); +function RelationshipsAdapter.GetRelationshipById(_key: string); begin return relationship_hash_[_key]; end; -function RelationshipsAdapter.WriteId(_key: string; _value: tslobj); +function RelationshipsAdapter.SetRelationshipById(_key: string; _value: tslobj); begin relationship_hash_[_key] := _value; end; diff --git a/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf b/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf new file mode 100644 index 0000000..20d3524 --- /dev/null +++ b/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf @@ -0,0 +1,53 @@ +type SectPrAdapter = class +public + function Create(_obj: SectPr); + function Init(); + + function GetHeaderReferenceByType(_key: string); + function SetHeaderReferenceByType(_key: string; _value: tslobj); + function GetFooterReferenceByType(_key: string); + function SetFooterReferenceByType(_key: string; _value: tslobj); + +private + object_: SectPr; + headerreference_hash_: tableArray; + footerreference_hash_: tableArray; +end; + +function SectPrAdapter.Create(_obj: SectPr); +begin + object_ := _obj; + headerreference_hash_ := array(); + footerreference_hash_ := array(); + {self.}Init(); +end; + +function SectPrAdapter.Init(); +begin + elements := object_.HeaderReferences(); + for k,v in elements do + headerreference_hash_[v.Type] := v; + elements := object_.FooterReferences(); + for k,v in elements do + footerreference_hash_[v.Type] := v; +end; + +function SectPrAdapter.GetHeaderReferenceByType(_key: string); +begin + return headerreference_hash_[_key]; +end; + +function SectPrAdapter.SetHeaderReferenceByType(_key: string; _value: tslobj); +begin + headerreference_hash_[_key] := _value; +end; + +function SectPrAdapter.GetFooterReferenceByType(_key: string); +begin + return footerreference_hash_[_key]; +end; + +function SectPrAdapter.SetFooterReferenceByType(_key: string; _value: tslobj); +begin + footerreference_hash_[_key] := _value; +end; diff --git a/autoclass/adapter/docx/StylesAdapter@DOCX.tsf b/autoclass/adapter/docx/StylesAdapter@DOCX.tsf index 79603b7..1e0eb55 100644 --- a/autoclass/adapter/docx/StylesAdapter@DOCX.tsf +++ b/autoclass/adapter/docx/StylesAdapter@DOCX.tsf @@ -3,9 +3,8 @@ public function Create(_obj: Styles); function Init(); - property StyleId read ReadStyleId write WriteStyleId; - function ReadStyleId(_key: string); - function WriteStyleId(_key: string; _value: tslobj); + function GetStyleByStyleId(_key: string); + function SetStyleByStyleId(_key: string; _value: tslobj); private object_: Styles; @@ -21,17 +20,17 @@ end; function StylesAdapter.Init(); begin - elements := object_.Styles; + elements := object_.Styles(); for k,v in elements do style_hash_[v.StyleId] := v; end; -function StylesAdapter.ReadStyleId(_key: string); +function StylesAdapter.GetStyleByStyleId(_key: string); begin return style_hash_[_key]; end; -function StylesAdapter.WriteStyleId(_key: string; _value: tslobj); +function StylesAdapter.SetStyleByStyleId(_key: string; _value: tslobj); begin style_hash_[_key] := _value; end; diff --git a/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf index 357ffdf..669e394 100644 --- a/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type APPrUnitDecorator = class(APPr) uses TSSafeUnitConverter; public function Create(_obj: APPr); + function GetObject(); function Convert(); private object_: APPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function APPrUnitDecorator.GetObject(); +begin + return object_; +end; + function APPrUnitDecorator.Convert(); begin {self.}DefRPr := new ARPrUnitDecorator(object_.DefRPr); diff --git a/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf index 8ef964d..57424b0 100644 --- a/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ARPrUnitDecorator = class(ARPr) uses TSSafeUnitConverter; public function Create(_obj: ARPr); + function GetObject(); function Convert(); private object_: ARPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ARPrUnitDecorator.GetObject(); +begin + return object_; +end; + function ARPrUnitDecorator.Convert(); begin {self.}XmlAttrLang.Value := object_.XmlAttrLang.Value; diff --git a/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf index 913b09e..47c2dad 100644 --- a/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ARUnitDecorator = class(AR) uses TSSafeUnitConverter; public function Create(_obj: AR); + function GetObject(); function Convert(); private object_: AR; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ARUnitDecorator.GetObject(); +begin + return object_; +end; + function ARUnitDecorator.Convert(); begin {self.}RPr := new ARPrUnitDecorator(object_.RPr); diff --git a/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf index 3a2217e..7a8e467 100644 --- a/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type AbstractNumUnitDecorator = class(AbstractNum) uses TSSafeUnitConverter; public function Create(_obj: AbstractNum); + function GetObject(); function Convert(); private object_: AbstractNum; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function AbstractNumUnitDecorator.GetObject(); +begin + return object_; +end; + function AbstractNumUnitDecorator.Convert(); begin {self.}XmlAttrAbstractNumId.Value := object_.XmlAttrAbstractNumId.Value; diff --git a/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf index e1621b6..ff553e9 100644 --- a/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type AlternateContentUnitDecorator = class(AlternateContent) uses TSSafeUnitConverter; public function Create(_obj: AlternateContent); + function GetObject(); function Convert(); private object_: AlternateContent; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function AlternateContentUnitDecorator.GetObject(); +begin + return object_; +end; + function AlternateContentUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; diff --git a/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf index 4da8ca7..1389af0 100644 --- a/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ApUnitDecorator = class(Ap) uses TSSafeUnitConverter; public function Create(_obj: Ap); + function GetObject(); function Convert(); private object_: Ap; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ApUnitDecorator.GetObject(); +begin + return object_; +end; + function ApUnitDecorator.Convert(); begin {self.}PPr := new APPrUnitDecorator(object_.PPr); diff --git a/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf index 07ad590..7ad5b1c 100644 --- a/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type AxUnitDecorator = class(Ax) uses TSSafeUnitConverter; public function Create(_obj: Ax); + function GetObject(); function Convert(); private object_: Ax; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function AxUnitDecorator.GetObject(); +begin + return object_; +end; + function AxUnitDecorator.Convert(); begin {self.}AxId := new PureValUnitDecorator(object_.AxId); diff --git a/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf index 782beaf..12495f6 100644 --- a/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BarChartUnitDecorator = class(BarChart) uses TSSafeUnitConverter; public function Create(_obj: BarChart); + function GetObject(); function Convert(); private object_: BarChart; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BarChartUnitDecorator.GetObject(); +begin + return object_; +end; + function BarChartUnitDecorator.Convert(); begin {self.}BarDir := new PureValUnitDecorator(object_.BarDir); diff --git a/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf index 4ba2049..14bca34 100644 --- a/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BlipFillUnitDecorator = class(BlipFill) uses TSSafeUnitConverter; public function Create(_obj: BlipFill); + function GetObject(); function Convert(); private object_: BlipFill; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BlipFillUnitDecorator.GetObject(); +begin + return object_; +end; + function BlipFillUnitDecorator.Convert(); begin {self.}Blip := new BlipUnitDecorator(object_.Blip); diff --git a/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf index 5954010..e4f6195 100644 --- a/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BlipUnitDecorator = class(Blip) uses TSSafeUnitConverter; public function Create(_obj: Blip); + function GetObject(); function Convert(); private object_: Blip; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BlipUnitDecorator.GetObject(); +begin + return object_; +end; + function BlipUnitDecorator.Convert(); begin {self.}XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value; diff --git a/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf index 0c6f8ce..b0fe97f 100644 --- a/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BodyPrUnitDecorator = class(BodyPr) uses TSSafeUnitConverter; public function Create(_obj: BodyPr); + function GetObject(); function Convert(); private object_: BodyPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BodyPrUnitDecorator.GetObject(); +begin + return object_; +end; + function BodyPrUnitDecorator.Convert(); begin {self.}XmlAttrRot.Value := object_.XmlAttrRot.Value; diff --git a/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf index 75c7778..867d130 100644 --- a/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BodyUnitDecorator = class(Body) uses TSSafeUnitConverter; public function Create(_obj: Body); + function GetObject(); function Convert(); private object_: Body; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BodyUnitDecorator.GetObject(); +begin + return object_; +end; + function BodyUnitDecorator.Convert(); begin {self.}SectPr := new SectPrUnitDecorator(object_.SectPr); diff --git a/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf index 6872b0f..757e696 100644 --- a/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BookmarkUnitDecorator = class(Bookmark) uses TSSafeUnitConverter; public function Create(_obj: Bookmark); + function GetObject(); function Convert(); private object_: Bookmark; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BookmarkUnitDecorator.GetObject(); +begin + return object_; +end; + function BookmarkUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf index 7163774..95daf2c 100644 --- a/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type BrUnitDecorator = class(Br) uses TSSafeUnitConverter; public function Create(_obj: Br); + function GetObject(); function Convert(); private object_: Br; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function BrUnitDecorator.GetObject(); +begin + return object_; +end; + function BrUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf index 2fd76d7..781fccc 100644 --- a/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr) uses TSSafeUnitConverter; public function Create(_obj: CNvGraphicFramePr); + function GetObject(); function Convert(); private object_: CNvGraphicFramePr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CNvGraphicFramePrUnitDecorator.GetObject(); +begin + return object_; +end; + function CNvGraphicFramePrUnitDecorator.Convert(); begin {self.}GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks); diff --git a/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf index 36c08e3..28a1508 100644 --- a/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CNvPicPrUnitDecorator = class(CNvPicPr) uses TSSafeUnitConverter; public function Create(_obj: CNvPicPr); + function GetObject(); function Convert(); private object_: CNvPicPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CNvPicPrUnitDecorator.GetObject(); +begin + return object_; +end; + function CNvPicPrUnitDecorator.Convert(); begin {self.}PicLocks := new PicLocksUnitDecorator(object_.PicLocks); diff --git a/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf index bca6db5..bf0afb6 100644 --- a/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CNvPrUnitDecorator = class(CNvPr) uses TSSafeUnitConverter; public function Create(_obj: CNvPr); + function GetObject(); function Convert(); private object_: CNvPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CNvPrUnitDecorator.GetObject(); +begin + return object_; +end; + function CNvPrUnitDecorator.Convert(); begin {self.}XmlAttrId.Value := object_.XmlAttrId.Value; diff --git a/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf index ea1a33b..0297d00 100644 --- a/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CXYUnitDecorator = class(CXY) uses TSSafeUnitConverter; public function Create(_obj: CXY); + function GetObject(); function Convert(); private object_: CXY; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CXYUnitDecorator.GetObject(); +begin + return object_; +end; + function CXYUnitDecorator.Convert(); begin {self.}XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value); diff --git a/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf index f44c4da..762ddf9 100644 --- a/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CacheUnitDecorator = class(Cache) uses TSSafeUnitConverter; public function Create(_obj: Cache); + function GetObject(); function Convert(); private object_: Cache; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CacheUnitDecorator.GetObject(); +begin + return object_; +end; + function CacheUnitDecorator.Convert(); begin {self.}PtCount := new PureValUnitDecorator(object_.PtCount); diff --git a/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf index 93221f8..207482b 100644 --- a/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CatUnitDecorator = class(Cat) uses TSSafeUnitConverter; public function Create(_obj: Cat); + function GetObject(); function Convert(); private object_: Cat; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CatUnitDecorator.GetObject(); +begin + return object_; +end; + function CatUnitDecorator.Convert(); begin {self.}StrRef := new StrRefUnitDecorator(object_.StrRef); diff --git a/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf index b34f6ef..d73d813 100644 --- a/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ChartSpaceUnitDecorator = class(ChartSpace) uses TSSafeUnitConverter; public function Create(_obj: ChartSpace); + function GetObject(); function Convert(); private object_: ChartSpace; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ChartSpaceUnitDecorator.GetObject(); +begin + return object_; +end; + function ChartSpaceUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsC.Value := object_.XmlAttrXmlnsC.Value; diff --git a/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf index 0315f72..c77cb38 100644 --- a/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ChartUnitDecorator = class(Chart) uses TSSafeUnitConverter; public function Create(_obj: Chart); + function GetObject(); function Convert(); private object_: Chart; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ChartUnitDecorator.GetObject(); +begin + return object_; +end; + function ChartUnitDecorator.Convert(); begin {self.}Title := new TitleUnitDecorator(object_.Title); diff --git a/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf index d36dab9..f2304d6 100644 --- a/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ChoiceUnitDecorator = class(Choice) uses TSSafeUnitConverter; public function Create(_obj: Choice); + function GetObject(); function Convert(); private object_: Choice; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ChoiceUnitDecorator.GetObject(); +begin + return object_; +end; + function ChoiceUnitDecorator.Convert(); begin {self.}XmlAttrRequires.Value := object_.XmlAttrRequires.Value; diff --git a/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf index 128ce48..d024be7 100644 --- a/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type Clr1UnitDecorator = class(Clr1) uses TSSafeUnitConverter; public function Create(_obj: Clr1); + function GetObject(); function Convert(); private object_: Clr1; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function Clr1UnitDecorator.GetObject(); +begin + return object_; +end; + function Clr1UnitDecorator.Convert(); begin {self.}SysClr := new SysClrUnitDecorator(object_.SysClr); diff --git a/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf index 43d577b..1ad2263 100644 --- a/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type Clr2UnitDecorator = class(Clr2) uses TSSafeUnitConverter; public function Create(_obj: Clr2); + function GetObject(); function Convert(); private object_: Clr2; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function Clr2UnitDecorator.GetObject(); +begin + return object_; +end; + function Clr2UnitDecorator.Convert(); begin {self.}SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr); diff --git a/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf index 50fdd90..0a6dafa 100644 --- a/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ClrSchemeUnitDecorator = class(ClrScheme) uses TSSafeUnitConverter; public function Create(_obj: ClrScheme); + function GetObject(); function Convert(); private object_: ClrScheme; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ClrSchemeUnitDecorator.GetObject(); +begin + return object_; +end; + function ClrSchemeUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf index 583e7de..7e98535 100644 --- a/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ColorUnitDecorator = class(Color) uses TSSafeUnitConverter; public function Create(_obj: Color); + function GetObject(); function Convert(); private object_: Color; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ColorUnitDecorator.GetObject(); +begin + return object_; +end; + function ColorUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf index d93c60d..7fc9cae 100644 --- a/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ColsUnitDecorator = class(Cols) uses TSSafeUnitConverter; public function Create(_obj: Cols); + function GetObject(); function Convert(); private object_: Cols; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ColsUnitDecorator.GetObject(); +begin + return object_; +end; + function ColsUnitDecorator.Convert(); begin {self.}XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value); diff --git a/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf index 571f818..2c9e2be 100644 --- a/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CommentRangeUnitDecorator = class(CommentRange) uses TSSafeUnitConverter; public function Create(_obj: CommentRange); + function GetObject(); function Convert(); private object_: CommentRange; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CommentRangeUnitDecorator.GetObject(); +begin + return object_; +end; + function CommentRangeUnitDecorator.Convert(); begin {self.}XmlAttrId.Value := object_.XmlAttrId.Value; diff --git a/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf index aec6014..696c8a6 100644 --- a/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CommentUnitDecorator = class(Comment) uses TSSafeUnitConverter; public function Create(_obj: Comment); + function GetObject(); function Convert(); private object_: Comment; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CommentUnitDecorator.GetObject(); +begin + return object_; +end; + function CommentUnitDecorator.Convert(); begin {self.}XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value; diff --git a/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf index 03d1b87..904a191 100644 --- a/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CommentsUnitDecorator = class(Comments) uses TSSafeUnitConverter; public function Create(_obj: Comments); + function GetObject(); function Convert(); private object_: Comments; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CommentsUnitDecorator.GetObject(); +begin + return object_; +end; + function CommentsUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; diff --git a/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf index 09829ff..76e87cd 100644 --- a/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CompatSettingUnitDecorator = class(CompatSetting) uses TSSafeUnitConverter; public function Create(_obj: CompatSetting); + function GetObject(); function Convert(); private object_: CompatSetting; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CompatSettingUnitDecorator.GetObject(); +begin + return object_; +end; + function CompatSettingUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf index a3eb9cc..423ba64 100644 --- a/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CompatUnitDecorator = class(Compat) uses TSSafeUnitConverter; public function Create(_obj: Compat); + function GetObject(); function Convert(); private object_: Compat; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CompatUnitDecorator.GetObject(); +begin + return object_; +end; + function CompatUnitDecorator.Convert(); begin if not ifnil(object_.XmlChildSpaceForUL.Value) then {self.}XmlChildSpaceForUL.Value := object_.XmlChildSpaceForUL.Value; diff --git a/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf index 515a577..3448bfd 100644 --- a/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CorePropertiesUnitDecorator = class(CoreProperties) uses TSSafeUnitConverter; public function Create(_obj: CoreProperties); + function GetObject(); function Convert(); private object_: CoreProperties; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CorePropertiesUnitDecorator.GetObject(); +begin + return object_; +end; + function CorePropertiesUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsCp.Value := object_.XmlAttrXmlnsCp.Value; diff --git a/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf index 93adb0c..e7429f1 100644 --- a/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type CreatedUnitDecorator = class(Created) uses TSSafeUnitConverter; public function Create(_obj: Created); + function GetObject(); function Convert(); private object_: Created; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function CreatedUnitDecorator.GetObject(); +begin + return object_; +end; + function CreatedUnitDecorator.Convert(); begin {self.}XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value; diff --git a/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf index a5a9f1c..53ad141 100644 --- a/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DLblsUnitDecorator = class(DLbls) uses TSSafeUnitConverter; public function Create(_obj: DLbls); + function GetObject(); function Convert(); private object_: DLbls; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DLblsUnitDecorator.GetObject(); +begin + return object_; +end; + function DLblsUnitDecorator.Convert(); begin {self.}SpPr := new SpPrUnitDecorator(object_.SpPr); diff --git a/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf index 52f192d..439da4a 100644 --- a/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DTableUnitDecorator = class(DTable) uses TSSafeUnitConverter; public function Create(_obj: DTable); + function GetObject(); function Convert(); private object_: DTable; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DTableUnitDecorator.GetObject(); +begin + return object_; +end; + function DTableUnitDecorator.Convert(); begin {self.}ShowHorzBorder := new PureValUnitDecorator(object_.ShowHorzBorder); diff --git a/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf index 3459c0a..3a9b49d 100644 --- a/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DefaultUnitDecorator = class(Default) uses TSSafeUnitConverter; public function Create(_obj: Default); + function GetObject(); function Convert(); private object_: Default; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DefaultUnitDecorator.GetObject(); +begin + return object_; +end; + function DefaultUnitDecorator.Convert(); begin {self.}XmlAttrExtension.Value := object_.XmlAttrExtension.Value; diff --git a/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf index 8eb6733..1e04578 100644 --- a/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DocDefaultsUnitDecorator = class(DocDefaults) uses TSSafeUnitConverter; public function Create(_obj: DocDefaults); + function GetObject(); function Convert(); private object_: DocDefaults; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DocDefaultsUnitDecorator.GetObject(); +begin + return object_; +end; + function DocDefaultsUnitDecorator.Convert(); begin {self.}RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault); diff --git a/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf index 0534582..6c1708f 100644 --- a/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DocGridUnitDecorator = class(DocGrid) uses TSSafeUnitConverter; public function Create(_obj: DocGrid); + function GetObject(); function Convert(); private object_: DocGrid; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DocGridUnitDecorator.GetObject(); +begin + return object_; +end; + function DocGridUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf index c38554b..7b4e8e3 100644 --- a/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DocPartObjUnitDecorator = class(DocPartObj) uses TSSafeUnitConverter; public function Create(_obj: DocPartObj); + function GetObject(); function Convert(); private object_: DocPartObj; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DocPartObjUnitDecorator.GetObject(); +begin + return object_; +end; + function DocPartObjUnitDecorator.Convert(); begin {self.}DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery); diff --git a/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf index a173926..93e5a73 100644 --- a/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DocPrUnitDecorator = class(DocPr) uses TSSafeUnitConverter; public function Create(_obj: DocPr); + function GetObject(); function Convert(); private object_: DocPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DocPrUnitDecorator.GetObject(); +begin + return object_; +end; + function DocPrUnitDecorator.Convert(); begin {self.}XmlAttrId.Value := object_.XmlAttrId.Value; diff --git a/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf index 093494d..7a6b911 100644 --- a/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DocumentUnitDecorator = class(Document) uses TSSafeUnitConverter; public function Create(_obj: Document); + function GetObject(); function Convert(); private object_: Document; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DocumentUnitDecorator.GetObject(); +begin + return object_; +end; + function DocumentUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; diff --git a/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf index c187b7a..90ea822 100644 --- a/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type DrawingUnitDecorator = class(Drawing) uses TSSafeUnitConverter; public function Create(_obj: Drawing); + function GetObject(); function Convert(); private object_: Drawing; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function DrawingUnitDecorator.GetObject(); +begin + return object_; +end; + function DrawingUnitDecorator.Convert(); begin {self.}_Inline := new _InlineUnitDecorator(object_._Inline); diff --git a/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf index c6cbbb6..d1048e6 100644 --- a/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EffectExtentUnitDecorator = class(EffectExtent) uses TSSafeUnitConverter; public function Create(_obj: EffectExtent); + function GetObject(); function Convert(); private object_: EffectExtent; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EffectExtentUnitDecorator.GetObject(); +begin + return object_; +end; + function EffectExtentUnitDecorator.Convert(); begin {self.}XmlAttrL.Value := object_.XmlAttrL.Value; diff --git a/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf index 9929dc1..62b7741 100644 --- a/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EffectLstUnitDecorator = class(EffectLst) uses TSSafeUnitConverter; public function Create(_obj: EffectLst); + function GetObject(); function Convert(); private object_: EffectLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EffectLstUnitDecorator.GetObject(); +begin + return object_; +end; + function EffectLstUnitDecorator.Convert(); begin {self.}OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw); diff --git a/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf index 0f83df8..69dba64 100644 --- a/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EffectStyleLstUnitDecorator = class(EffectStyleLst) uses TSSafeUnitConverter; public function Create(_obj: EffectStyleLst); + function GetObject(); function Convert(); private object_: EffectStyleLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EffectStyleLstUnitDecorator.GetObject(); +begin + return object_; +end; + function EffectStyleLstUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf index 3ac9384..cc43b9e 100644 --- a/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EffectStyleUnitDecorator = class(EffectStyle) uses TSSafeUnitConverter; public function Create(_obj: EffectStyle); + function GetObject(); function Convert(); private object_: EffectStyle; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EffectStyleUnitDecorator.GetObject(); +begin + return object_; +end; + function EffectStyleUnitDecorator.Convert(); begin {self.}EffectLst := new EffectLstUnitDecorator(object_.EffectLst); diff --git a/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf index e41bc1f..3c371e8 100644 --- a/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EndnotePrUnitDecorator = class(EndnotePr) uses TSSafeUnitConverter; public function Create(_obj: EndnotePr); + function GetObject(); function Convert(); private object_: EndnotePr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EndnotePrUnitDecorator.GetObject(); +begin + return object_; +end; + function EndnotePrUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf index 11728a7..1cb74e9 100644 --- a/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EndnoteUnitDecorator = class(Endnote) uses TSSafeUnitConverter; public function Create(_obj: Endnote); + function GetObject(); function Convert(); private object_: Endnote; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EndnoteUnitDecorator.GetObject(); +begin + return object_; +end; + function EndnoteUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf index 3559dae..3ac5c74 100644 --- a/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type EndnotesUnitDecorator = class(Endnotes) uses TSSafeUnitConverter; public function Create(_obj: Endnotes); + function GetObject(); function Convert(); private object_: Endnotes; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function EndnotesUnitDecorator.GetObject(); +begin + return object_; +end; + function EndnotesUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; diff --git a/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf index 8cc5244..a4ac7fc 100644 --- a/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ExtLstUnitDecorator = class(ExtLst) uses TSSafeUnitConverter; public function Create(_obj: ExtLst); + function GetObject(); function Convert(); private object_: ExtLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ExtLstUnitDecorator.GetObject(); +begin + return object_; +end; + function ExtLstUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf index 6922e19..0e94a52 100644 --- a/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ExtUnitDecorator = class(Ext) uses TSSafeUnitConverter; public function Create(_obj: Ext); + function GetObject(); function Convert(); private object_: Ext; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ExtUnitDecorator.GetObject(); +begin + return object_; +end; + function ExtUnitDecorator.Convert(); begin {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value; diff --git a/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf index 51f87e9..56df699 100644 --- a/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ExternalDataUnitDecorator = class(ExternalData) uses TSSafeUnitConverter; public function Create(_obj: ExternalData); + function GetObject(); function Convert(); private object_: ExternalData; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ExternalDataUnitDecorator.GetObject(); +begin + return object_; +end; + function ExternalDataUnitDecorator.Convert(); begin {self.}XmlAttrId.Value := object_.XmlAttrId.Value; diff --git a/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf index a99b67b..9c92967 100644 --- a/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FallbackUnitDecorator = class(Fallback) uses TSSafeUnitConverter; public function Create(_obj: Fallback); + function GetObject(); function Convert(); private object_: Fallback; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FallbackUnitDecorator.GetObject(); +begin + return object_; +end; + function FallbackUnitDecorator.Convert(); begin {self.}Style := new PureValUnitDecorator(object_.Style); diff --git a/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf index d708237..5a13d4a 100644 --- a/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FillStyleLstUnitDecorator = class(FillStyleLst) uses TSSafeUnitConverter; public function Create(_obj: FillStyleLst); + function GetObject(); function Convert(); private object_: FillStyleLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FillStyleLstUnitDecorator.GetObject(); +begin + return object_; +end; + function FillStyleLstUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf index 1efc054..3183ca6 100644 --- a/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FldCharUnitDecorator = class(FldChar) uses TSSafeUnitConverter; public function Create(_obj: FldChar); + function GetObject(); function Convert(); private object_: FldChar; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FldCharUnitDecorator.GetObject(); +begin + return object_; +end; + function FldCharUnitDecorator.Convert(); begin {self.}XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value; diff --git a/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf index 37b6d5a..5265397 100644 --- a/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FmtSchemeUnitDecorator = class(FmtScheme) uses TSSafeUnitConverter; public function Create(_obj: FmtScheme); + function GetObject(); function Convert(); private object_: FmtScheme; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FmtSchemeUnitDecorator.GetObject(); +begin + return object_; +end; + function FmtSchemeUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf index 29f42f6..2237689 100644 --- a/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FontSchemeUnitDecorator = class(FontScheme) uses TSSafeUnitConverter; public function Create(_obj: FontScheme); + function GetObject(); function Convert(); private object_: FontScheme; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FontSchemeUnitDecorator.GetObject(); +begin + return object_; +end; + function FontSchemeUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf index 2ded217..5088e1f 100644 --- a/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FontUnitDecorator = class(Font) uses TSSafeUnitConverter; public function Create(_obj: Font); + function GetObject(); function Convert(); private object_: Font; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FontUnitDecorator.GetObject(); +begin + return object_; +end; + function FontUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf index 871c388..3921ce1 100644 --- a/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FontsUnitDecorator = class(Fonts) uses TSSafeUnitConverter; public function Create(_obj: Fonts); + function GetObject(); function Convert(); private object_: Fonts; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FontsUnitDecorator.GetObject(); +begin + return object_; +end; + function FontsUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; diff --git a/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf index b0ef831..7ed7b4e 100644 --- a/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FootnotePrUnitDecorator = class(FootnotePr) uses TSSafeUnitConverter; public function Create(_obj: FootnotePr); + function GetObject(); function Convert(); private object_: FootnotePr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FootnotePrUnitDecorator.GetObject(); +begin + return object_; +end; + function FootnotePrUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf index 7a2aca7..4a74f22 100644 --- a/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FootnoteUnitDecorator = class(Footnote) uses TSSafeUnitConverter; public function Create(_obj: Footnote); + function GetObject(); function Convert(); private object_: Footnote; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FootnoteUnitDecorator.GetObject(); +begin + return object_; +end; + function FootnoteUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf index f6c5d2b..6e7e9b8 100644 --- a/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FootnotesUnitDecorator = class(Footnotes) uses TSSafeUnitConverter; public function Create(_obj: Footnotes); + function GetObject(); function Convert(); private object_: Footnotes; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FootnotesUnitDecorator.GetObject(); +begin + return object_; +end; + function FootnotesUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; diff --git a/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf index 8bc82b6..f062218 100644 --- a/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type FtrUnitDecorator = class(Ftr) uses TSSafeUnitConverter; public function Create(_obj: Ftr); + function GetObject(); function Convert(); private object_: Ftr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function FtrUnitDecorator.GetObject(); +begin + return object_; +end; + function FtrUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; diff --git a/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf index 037b4cb..4d07338 100644 --- a/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GradFillUnitDecorator = class(GradFill) uses TSSafeUnitConverter; public function Create(_obj: GradFill); + function GetObject(); function Convert(); private object_: GradFill; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GradFillUnitDecorator.GetObject(); +begin + return object_; +end; + function GradFillUnitDecorator.Convert(); begin {self.}XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value; diff --git a/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf index 392acf3..f9b4ba8 100644 --- a/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GraphicDataUnitDecorator = class(GraphicData) uses TSSafeUnitConverter; public function Create(_obj: GraphicData); + function GetObject(); function Convert(); private object_: GraphicData; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GraphicDataUnitDecorator.GetObject(); +begin + return object_; +end; + function GraphicDataUnitDecorator.Convert(); begin {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value; diff --git a/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf index 27518fa..d028102 100644 --- a/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks) uses TSSafeUnitConverter; public function Create(_obj: GraphicFrameLocks); + function GetObject(); function Convert(); private object_: GraphicFrameLocks; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GraphicFrameLocksUnitDecorator.GetObject(); +begin + return object_; +end; + function GraphicFrameLocksUnitDecorator.Convert(); begin {self.}XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value; diff --git a/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf index a26012b..cbdb9a5 100644 --- a/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GraphicUnitDecorator = class(Graphic) uses TSSafeUnitConverter; public function Create(_obj: Graphic); + function GetObject(); function Convert(); private object_: Graphic; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GraphicUnitDecorator.GetObject(); +begin + return object_; +end; + function GraphicUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value; diff --git a/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf index e9c5f0b..6d961ca 100644 --- a/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GridColUnitDecorator = class(GridCol) uses TSSafeUnitConverter; public function Create(_obj: GridCol); + function GetObject(); function Convert(); private object_: GridCol; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GridColUnitDecorator.GetObject(); +begin + return object_; +end; + function GridColUnitDecorator.Convert(); begin {self.}XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value); diff --git a/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf index 8765538..5bc9d52 100644 --- a/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GsLstUnitDecorator = class(GsLst) uses TSSafeUnitConverter; public function Create(_obj: GsLst); + function GetObject(); function Convert(); private object_: GsLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GsLstUnitDecorator.GetObject(); +begin + return object_; +end; + function GsLstUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf index 57063c3..09c329b 100644 --- a/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type GsUnitDecorator = class(Gs) uses TSSafeUnitConverter; public function Create(_obj: Gs); + function GetObject(); function Convert(); private object_: Gs; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function GsUnitDecorator.GetObject(); +begin + return object_; +end; + function GsUnitDecorator.Convert(); begin {self.}XmlAttrPos.Value := object_.XmlAttrPos.Value; diff --git a/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf index f078dc6..71b77e1 100644 --- a/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults) uses TSSafeUnitConverter; public function Create(_obj: HdrShapeDefaults); + function GetObject(); function Convert(); private object_: HdrShapeDefaults; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function HdrShapeDefaultsUnitDecorator.GetObject(); +begin + return object_; +end; + function HdrShapeDefaultsUnitDecorator.Convert(); begin {self.}ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults); diff --git a/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf index 10f97b5..9c44b1a 100644 --- a/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type HdrUnitDecorator = class(Hdr) uses TSSafeUnitConverter; public function Create(_obj: Hdr); + function GetObject(); function Convert(); private object_: Hdr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function HdrUnitDecorator.GetObject(); +begin + return object_; +end; + function HdrUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; diff --git a/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf index 61ec36e..6d78f7e 100644 --- a/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type HyperLinkUnitDecorator = class(HyperLink) uses TSSafeUnitConverter; public function Create(_obj: HyperLink); + function GetObject(); function Convert(); private object_: HyperLink; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function HyperLinkUnitDecorator.GetObject(); +begin + return object_; +end; + function HyperLinkUnitDecorator.Convert(); begin {self.}XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value; diff --git a/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf index 5583174..1f38205 100644 --- a/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type IdMapUnitDecorator = class(IdMap) uses TSSafeUnitConverter; public function Create(_obj: IdMap); + function GetObject(); function Convert(); private object_: IdMap; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function IdMapUnitDecorator.GetObject(); +begin + return object_; +end; + function IdMapUnitDecorator.Convert(); begin {self.}XmlAttrExt.Value := object_.XmlAttrExt.Value; diff --git a/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf index 38303b4..d88efe9 100644 --- a/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type IndUnitDecorator = class(Ind) uses TSSafeUnitConverter; public function Create(_obj: Ind); + function GetObject(); function Convert(); private object_: Ind; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function IndUnitDecorator.GetObject(); +begin + return object_; +end; + function IndUnitDecorator.Convert(); begin {self.}XmlAttrFirstLineChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value); diff --git a/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf index 0d29652..335f4a7 100644 --- a/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type InstrTextUnitDecorator = class(InstrText) uses TSSafeUnitConverter; public function Create(_obj: InstrText); + function GetObject(); function Convert(); private object_: InstrText; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function InstrTextUnitDecorator.GetObject(); +begin + return object_; +end; + function InstrTextUnitDecorator.Convert(); begin {self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value; diff --git a/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf index 32d8383..ec47dfa 100644 --- a/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LangUnitDecorator = class(Lang) uses TSSafeUnitConverter; public function Create(_obj: Lang); + function GetObject(); function Convert(); private object_: Lang; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LangUnitDecorator.GetObject(); +begin + return object_; +end; + function LangUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf index 34065e0..7754389 100644 --- a/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LatenStylesUnitDecorator = class(LatenStyles) uses TSSafeUnitConverter; public function Create(_obj: LatenStyles); + function GetObject(); function Convert(); private object_: LatenStyles; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LatenStylesUnitDecorator.GetObject(); +begin + return object_; +end; + function LatenStylesUnitDecorator.Convert(); begin {self.}XmlAttrDefLickedState.Value := object_.XmlAttrDefLickedState.Value; diff --git a/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf index 095446d..eecc22a 100644 --- a/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LatinUnitDecorator = class(Latin) uses TSSafeUnitConverter; public function Create(_obj: Latin); + function GetObject(); function Convert(); private object_: Latin; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LatinUnitDecorator.GetObject(); +begin + return object_; +end; + function LatinUnitDecorator.Convert(); begin {self.}XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value; diff --git a/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf index 5c05bb9..f3a7600 100644 --- a/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LegendUnitDecorator = class(Legend) uses TSSafeUnitConverter; public function Create(_obj: Legend); + function GetObject(); function Convert(); private object_: Legend; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LegendUnitDecorator.GetObject(); +begin + return object_; +end; + function LegendUnitDecorator.Convert(); begin {self.}LegendPos := new PureValUnitDecorator(object_.LegendPos); diff --git a/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf index 8ee5ced..8a2cca2 100644 --- a/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LinUnitDecorator = class(Lin) uses TSSafeUnitConverter; public function Create(_obj: Lin); + function GetObject(); function Convert(); private object_: Lin; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LinUnitDecorator.GetObject(); +begin + return object_; +end; + function LinUnitDecorator.Convert(); begin {self.}XmlAttrAng.Value := object_.XmlAttrAng.Value; diff --git a/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf index 489406b..5ed7181 100644 --- a/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LnStyleLstUnitDecorator = class(LnStyleLst) uses TSSafeUnitConverter; public function Create(_obj: LnStyleLst); + function GetObject(); function Convert(); private object_: LnStyleLst; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LnStyleLstUnitDecorator.GetObject(); +begin + return object_; +end; + function LnStyleLstUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf index dc36031..6b46540 100644 --- a/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LnUnitDecorator = class(Ln) uses TSSafeUnitConverter; public function Create(_obj: Ln); + function GetObject(); function Convert(); private object_: Ln; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LnUnitDecorator.GetObject(); +begin + return object_; +end; + function LnUnitDecorator.Convert(); begin {self.}XmlAttrW.Value := object_.XmlAttrW.Value; diff --git a/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf index 5c76f24..e73b7eb 100644 --- a/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LsdExceptionUnitDecorator = class(LsdException) uses TSSafeUnitConverter; public function Create(_obj: LsdException); + function GetObject(); function Convert(); private object_: LsdException; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LsdExceptionUnitDecorator.GetObject(); +begin + return object_; +end; + function LsdExceptionUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf index 5ccf35c..bdf5869 100644 --- a/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type LvlUnitDecorator = class(Lvl) uses TSSafeUnitConverter; public function Create(_obj: Lvl); + function GetObject(); function Convert(); private object_: Lvl; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function LvlUnitDecorator.GetObject(); +begin + return object_; +end; + function LvlUnitDecorator.Convert(); begin {self.}XmlAttrIlvl.Value := object_.XmlAttrIlvl.Value; diff --git a/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf index 668db24..2375aad 100644 --- a/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type MFontFontUnitDecorator = class(MFontFont) uses TSSafeUnitConverter; public function Create(_obj: MFontFont); + function GetObject(); function Convert(); private object_: MFontFont; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function MFontFontUnitDecorator.GetObject(); +begin + return object_; +end; + function MFontFontUnitDecorator.Convert(); begin {self.}XmlAttrScript.Value := object_.XmlAttrScript.Value; diff --git a/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf index 7f0d905..f93486b 100644 --- a/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type MFontUnitDecorator = class(MFont) uses TSSafeUnitConverter; public function Create(_obj: MFont); + function GetObject(); function Convert(); private object_: MFont; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function MFontUnitDecorator.GetObject(); +begin + return object_; +end; + function MFontUnitDecorator.Convert(); begin {self.}Latin := new LatinUnitDecorator(object_.Latin); diff --git a/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf index 115fb5f..6990340 100644 --- a/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type MathPrUnitDecorator = class(MathPr) uses TSSafeUnitConverter; public function Create(_obj: MathPr); + function GetObject(); function Convert(); private object_: MathPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function MathPrUnitDecorator.GetObject(); +begin + return object_; +end; + function MathPrUnitDecorator.Convert(); begin {self.}MathFont := new PureWValUnitDecorator(object_.MathFont); diff --git a/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf index e1f974e..95ffbe5 100644 --- a/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type MiterUnitDecorator = class(Miter) uses TSSafeUnitConverter; public function Create(_obj: Miter); + function GetObject(); function Convert(); private object_: Miter; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function MiterUnitDecorator.GetObject(); +begin + return object_; +end; + function MiterUnitDecorator.Convert(); begin {self.}XmlAttrLim.Value := object_.XmlAttrLim.Value; diff --git a/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf index ff9ff57..b170eef 100644 --- a/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ModifiedUnitDecorator = class(Modified) uses TSSafeUnitConverter; public function Create(_obj: Modified); + function GetObject(); function Convert(); private object_: Modified; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ModifiedUnitDecorator.GetObject(); +begin + return object_; +end; + function ModifiedUnitDecorator.Convert(); begin {self.}XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value; diff --git a/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf index a2b09dc..b0711cb 100644 --- a/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NumFmtUnitDecorator = class(NumFmt) uses TSSafeUnitConverter; public function Create(_obj: NumFmt); + function GetObject(); function Convert(); private object_: NumFmt; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NumFmtUnitDecorator.GetObject(); +begin + return object_; +end; + function NumFmtUnitDecorator.Convert(); begin {self.}XmlAttrFormatCode.Value := object_.XmlAttrFormatCode.Value; diff --git a/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf index 05b57aa..c6557b5 100644 --- a/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NumPrUnitDecorator = class(NumPr) uses TSSafeUnitConverter; public function Create(_obj: NumPr); + function GetObject(); function Convert(); private object_: NumPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NumPrUnitDecorator.GetObject(); +begin + return object_; +end; + function NumPrUnitDecorator.Convert(); begin {self.}Ilvl := new PureWValUnitDecorator(object_.Ilvl); diff --git a/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf index 108ce77..1bc0c0a 100644 --- a/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NumRefUnitDecorator = class(NumRef) uses TSSafeUnitConverter; public function Create(_obj: NumRef); + function GetObject(); function Convert(); private object_: NumRef; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NumRefUnitDecorator.GetObject(); +begin + return object_; +end; + function NumRefUnitDecorator.Convert(); begin {self.}NumCache := new CacheUnitDecorator(object_.NumCache); diff --git a/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf index 9234204..5a4287a 100644 --- a/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NumUnitDecorator = class(Num) uses TSSafeUnitConverter; public function Create(_obj: Num); + function GetObject(); function Convert(); private object_: Num; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NumUnitDecorator.GetObject(); +begin + return object_; +end; + function NumUnitDecorator.Convert(); begin {self.}XmlAttrNumId.Value := object_.XmlAttrNumId.Value; diff --git a/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf index b3973c9..493aa8e 100644 --- a/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NumberingUnitDecorator = class(Numbering) uses TSSafeUnitConverter; public function Create(_obj: Numbering); + function GetObject(); function Convert(); private object_: Numbering; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NumberingUnitDecorator.GetObject(); +begin + return object_; +end; + function NumberingUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; diff --git a/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf index 7adf9d0..404267f 100644 --- a/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type NvPicPrUnitDecorator = class(NvPicPr) uses TSSafeUnitConverter; public function Create(_obj: NvPicPr); + function GetObject(); function Convert(); private object_: NvPicPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function NvPicPrUnitDecorator.GetObject(); +begin + return object_; +end; + function NvPicPrUnitDecorator.Convert(); begin {self.}CNvPr := new CNvPrUnitDecorator(object_.CNvPr); diff --git a/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf index 69ae790..5aa7495 100644 --- a/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type OuterShdwUnitDecorator = class(OuterShdw) uses TSSafeUnitConverter; public function Create(_obj: OuterShdw); + function GetObject(); function Convert(); private object_: OuterShdw; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function OuterShdwUnitDecorator.GetObject(); +begin + return object_; +end; + function OuterShdwUnitDecorator.Convert(); begin {self.}XmlAttrBlurRad.Value := object_.XmlAttrBlurRad.Value; diff --git a/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf index f814e4e..405e9ab 100644 --- a/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PBdrUnitDecorator = class(PBdr) uses TSSafeUnitConverter; public function Create(_obj: PBdr); + function GetObject(); function Convert(); private object_: PBdr; @@ -14,7 +15,13 @@ begin {self.}Convert(); end; +function PBdrUnitDecorator.GetObject(); +begin + return object_; +end; + function PBdrUnitDecorator.Convert(); begin - {self.}Top := new PureValUnitDecorator(object_.Top); + {self.}Top := new PBorderUnitDecorator(object_.Top); + {self.}Bottom := new PBorderUnitDecorator(object_.Bottom); end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf new file mode 100644 index 0000000..7349180 --- /dev/null +++ b/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf @@ -0,0 +1,31 @@ +type PBorderUnitDecorator = class(PBorder) +uses TSSafeUnitConverter; +public + function Create(_obj: PBorder); + function GetObject(); + function Convert(); +private + object_: PBorder; +end; + +function PBorderUnitDecorator.Create(_obj: PBorder); +begin + class(PBorder).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PBorderUnitDecorator.GetObject(); +begin + return object_; +end; + +function PBorderUnitDecorator.Convert(); +begin + {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; + {self.}XmlAttrColor.Value := object_.XmlAttrColor.Value; + {self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value; + {self.}XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value; + {self.}XmlAttrThemeTint.Value := object_.XmlAttrThemeTint.Value; + {self.}XmlAttrSz.Value := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrSz.Value); +end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf index d0436dd..d36eb35 100644 --- a/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PPrDefaultUnitDecorator = class(PPrDefault) uses TSSafeUnitConverter; public function Create(_obj: PPrDefault); + function GetObject(); function Convert(); private object_: PPrDefault; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PPrDefaultUnitDecorator.GetObject(); +begin + return object_; +end; + function PPrDefaultUnitDecorator.Convert(); begin {self.}PPr := new PPrUnitDecorator(object_.PPr); diff --git a/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf index 0f5d532..0a27d70 100644 --- a/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PPrUnitDecorator = class(PPr) uses TSSafeUnitConverter; public function Create(_obj: PPr); + function GetObject(); function Convert(); private object_: PPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PPrUnitDecorator.GetObject(); +begin + return object_; +end; + function PPrUnitDecorator.Convert(); begin {self.}SectPr := new SectPrUnitDecorator(object_.SectPr); diff --git a/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf index 7dfec7f..92e3f22 100644 --- a/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PUnitDecorator = class(P) uses TSSafeUnitConverter; public function Create(_obj: P); + function GetObject(); function Convert(); private object_: P; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PUnitDecorator.GetObject(); +begin + return object_; +end; + function PUnitDecorator.Convert(); begin {self.}XmlAttrW14ParaId.Value := object_.XmlAttrW14ParaId.Value; diff --git a/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf index 2021518..c588ab3 100644 --- a/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PgMarUnitDecorator = class(PgMar) uses TSSafeUnitConverter; public function Create(_obj: PgMar); + function GetObject(); function Convert(); private object_: PgMar; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PgMarUnitDecorator.GetObject(); +begin + return object_; +end; + function PgMarUnitDecorator.Convert(); begin {self.}XmlAttrTop.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrTop.Value); diff --git a/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf index 78ca0ae..cc0b9e6 100644 --- a/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PgNumTypeUnitDecorator = class(PgNumType) uses TSSafeUnitConverter; public function Create(_obj: PgNumType); + function GetObject(); function Convert(); private object_: PgNumType; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PgNumTypeUnitDecorator.GetObject(); +begin + return object_; +end; + function PgNumTypeUnitDecorator.Convert(); begin {self.}XmlAttrStart.Value := object_.XmlAttrStart.Value; diff --git a/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf index a4ec058..cbe054f 100644 --- a/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PgSzUnitDecorator = class(PgSz) uses TSSafeUnitConverter; public function Create(_obj: PgSz); + function GetObject(); function Convert(); private object_: PgSz; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PgSzUnitDecorator.GetObject(); +begin + return object_; +end; + function PgSzUnitDecorator.Convert(); begin {self.}XmlAttrW.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); diff --git a/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf index 85d1415..84b89cd 100644 --- a/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PicLocksUnitDecorator = class(PicLocks) uses TSSafeUnitConverter; public function Create(_obj: PicLocks); + function GetObject(); function Convert(); private object_: PicLocks; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PicLocksUnitDecorator.GetObject(); +begin + return object_; +end; + function PicLocksUnitDecorator.Convert(); begin {self.}XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value; diff --git a/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf index 13a4bc8..ba4399d 100644 --- a/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PicUnitDecorator = class(Pic) uses TSSafeUnitConverter; public function Create(_obj: Pic); + function GetObject(); function Convert(); private object_: Pic; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PicUnitDecorator.GetObject(); +begin + return object_; +end; + function PicUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsPic.Value := object_.XmlAttrXmlnsPic.Value; diff --git a/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf index b85a04e..91079ce 100644 --- a/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PlotAreaUnitDecorator = class(PlotArea) uses TSSafeUnitConverter; public function Create(_obj: PlotArea); + function GetObject(); function Convert(); private object_: PlotArea; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PlotAreaUnitDecorator.GetObject(); +begin + return object_; +end; + function PlotAreaUnitDecorator.Convert(); begin if not ifnil(object_.XmlChildLayout.Value) then {self.}XmlChildLayout.Value := object_.XmlChildLayout.Value; diff --git a/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf index 960f8e5..ca2d750 100644 --- a/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PropertiesUnitDecorator = class(Properties) uses TSSafeUnitConverter; public function Create(_obj: Properties); + function GetObject(); function Convert(); private object_: Properties; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PropertiesUnitDecorator.GetObject(); +begin + return object_; +end; + function PropertiesUnitDecorator.Convert(); begin {self.}XmlAttrXmlns.Value := object_.XmlAttrXmlns.Value; diff --git a/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf index 51407bf..ea89c58 100644 --- a/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PrstGeomUnitDecorator = class(PrstGeom) uses TSSafeUnitConverter; public function Create(_obj: PrstGeom); + function GetObject(); function Convert(); private object_: PrstGeom; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PrstGeomUnitDecorator.GetObject(); +begin + return object_; +end; + function PrstGeomUnitDecorator.Convert(); begin {self.}XmlAttrPrst.Value := object_.XmlAttrPrst.Value; diff --git a/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf index 28eb36a..8caf086 100644 --- a/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PtUnitDecorator = class(Pt) uses TSSafeUnitConverter; public function Create(_obj: Pt); + function GetObject(); function Convert(); private object_: Pt; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PtUnitDecorator.GetObject(); +begin + return object_; +end; + function PtUnitDecorator.Convert(); begin {self.}XmlAttrIdx.Value := object_.XmlAttrIdx.Value; diff --git a/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf index f41f41e..dfb5787 100644 --- a/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PureValUnitDecorator = class(PureVal) uses TSSafeUnitConverter; public function Create(_obj: PureVal); + function GetObject(); function Convert(); private object_: PureVal; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PureValUnitDecorator.GetObject(); +begin + return object_; +end; + function PureValUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf index 73a55dd..aea332a 100644 --- a/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type PureWValUnitDecorator = class(PureWVal) uses TSSafeUnitConverter; public function Create(_obj: PureWVal); + function GetObject(); function Convert(); private object_: PureWVal; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function PureWValUnitDecorator.GetObject(); +begin + return object_; +end; + function PureWValUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf index 01b2c9f..9d96bce 100644 --- a/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RFontsUnitDecorator = class(RFonts) uses TSSafeUnitConverter; public function Create(_obj: RFonts); + function GetObject(); function Convert(); private object_: RFonts; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RFontsUnitDecorator.GetObject(); +begin + return object_; +end; + function RFontsUnitDecorator.Convert(); begin {self.}XmlAttrAscii.Value := object_.XmlAttrAscii.Value; diff --git a/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf index a183ad8..cb8dcdf 100644 --- a/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RPrDefaultUnitDecorator = class(RPrDefault) uses TSSafeUnitConverter; public function Create(_obj: RPrDefault); + function GetObject(); function Convert(); private object_: RPrDefault; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RPrDefaultUnitDecorator.GetObject(); +begin + return object_; +end; + function RPrDefaultUnitDecorator.Convert(); begin {self.}RPr := new RPrUnitDecorator(object_.RPr); diff --git a/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf index 10ef6c5..b6849f2 100644 --- a/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RPrUnitDecorator = class(RPr) uses TSSafeUnitConverter; public function Create(_obj: RPr); + function GetObject(); function Convert(); private object_: RPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RPrUnitDecorator.GetObject(); +begin + return object_; +end; + function RPrUnitDecorator.Convert(); begin {self.}NoProof := new PureValUnitDecorator(object_.NoProof); diff --git a/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf index 754e99b..6700d07 100644 --- a/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RUnitDecorator = class(R) uses TSSafeUnitConverter; public function Create(_obj: R); + function GetObject(); function Convert(); private object_: R; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RUnitDecorator.GetObject(); +begin + return object_; +end; + function RUnitDecorator.Convert(); begin {self.}XmlAttrWRsidRPr.Value := object_.XmlAttrWRsidRPr.Value; diff --git a/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf index 30528ba..c652bae 100644 --- a/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ReferenceUnitDecorator = class(Reference) uses TSSafeUnitConverter; public function Create(_obj: Reference); + function GetObject(); function Convert(); private object_: Reference; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ReferenceUnitDecorator.GetObject(); +begin + return object_; +end; + function ReferenceUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf index 70e02be..031c133 100644 --- a/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RelationshipUnitDecorator = class(Relationship) uses TSSafeUnitConverter; public function Create(_obj: Relationship); + function GetObject(); function Convert(); private object_: Relationship; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RelationshipUnitDecorator.GetObject(); +begin + return object_; +end; + function RelationshipUnitDecorator.Convert(); begin {self.}XmlAttrId.Value := object_.XmlAttrId.Value; diff --git a/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf index 2857a56..7a9433f 100644 --- a/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RelationshipsUnitDecorator = class(Relationships) uses TSSafeUnitConverter; public function Create(_obj: Relationships); + function GetObject(); function Convert(); private object_: Relationships; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RelationshipsUnitDecorator.GetObject(); +begin + return object_; +end; + function RelationshipsUnitDecorator.Convert(); begin {self.}XmlAttrxmlns.Value := object_.XmlAttrxmlns.Value; diff --git a/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf index bdf4e05..76c2f7e 100644 --- a/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RichUnitDecorator = class(Rich) uses TSSafeUnitConverter; public function Create(_obj: Rich); + function GetObject(); function Convert(); private object_: Rich; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RichUnitDecorator.GetObject(); +begin + return object_; +end; + function RichUnitDecorator.Convert(); begin {self.}BodyPr := new BodyPrUnitDecorator(object_.BodyPr); diff --git a/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf index c7f964a..b176d9b 100644 --- a/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type RsidsUnitDecorator = class(Rsids) uses TSSafeUnitConverter; public function Create(_obj: Rsids); + function GetObject(); function Convert(); private object_: Rsids; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function RsidsUnitDecorator.GetObject(); +begin + return object_; +end; + function RsidsUnitDecorator.Convert(); begin {self.}RsidRoot := new PureWValUnitDecorator(object_.RsidRoot); diff --git a/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf index 21dcbf0..3bd3a72 100644 --- a/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ScalingUnitDecorator = class(Scaling) uses TSSafeUnitConverter; public function Create(_obj: Scaling); + function GetObject(); function Convert(); private object_: Scaling; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ScalingUnitDecorator.GetObject(); +begin + return object_; +end; + function ScalingUnitDecorator.Convert(); begin {self.}Orientation := new PureValUnitDecorator(object_.Orientation); diff --git a/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf index 19cd079..1fcf048 100644 --- a/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SchemeClrUnitDecorator = class(SchemeClr) uses TSSafeUnitConverter; public function Create(_obj: SchemeClr); + function GetObject(); function Convert(); private object_: SchemeClr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SchemeClrUnitDecorator.GetObject(); +begin + return object_; +end; + function SchemeClrUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf index 935cf30..faeed07 100644 --- a/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SdtContentUnitDecorator = class(SdtContent) uses TSSafeUnitConverter; public function Create(_obj: SdtContent); + function GetObject(); function Convert(); private object_: SdtContent; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SdtContentUnitDecorator.GetObject(); +begin + return object_; +end; + function SdtContentUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf index 5900d50..64d6838 100644 --- a/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SdtEndPrUnitDecorator = class(SdtEndPr) uses TSSafeUnitConverter; public function Create(_obj: SdtEndPr); + function GetObject(); function Convert(); private object_: SdtEndPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SdtEndPrUnitDecorator.GetObject(); +begin + return object_; +end; + function SdtEndPrUnitDecorator.Convert(); begin {self.}RPr := new RPrUnitDecorator(object_.RPr); diff --git a/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf index 036cc75..6808a5b 100644 --- a/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SdtPrUnitDecorator = class(SdtPr) uses TSSafeUnitConverter; public function Create(_obj: SdtPr); + function GetObject(); function Convert(); private object_: SdtPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SdtPrUnitDecorator.GetObject(); +begin + return object_; +end; + function SdtPrUnitDecorator.Convert(); begin {self.}RPr := new RPrUnitDecorator(object_.RPr); diff --git a/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf index 751b256..c1d8018 100644 --- a/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SdtUnitDecorator = class(Sdt) uses TSSafeUnitConverter; public function Create(_obj: Sdt); + function GetObject(); function Convert(); private object_: Sdt; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SdtUnitDecorator.GetObject(); +begin + return object_; +end; + function SdtUnitDecorator.Convert(); begin {self.}SdtPr := new SdtPrUnitDecorator(object_.SdtPr); diff --git a/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf index ff7eae1..6596c9a 100644 --- a/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SectPrUnitDecorator = class(SectPr) uses TSSafeUnitConverter; public function Create(_obj: SectPr); + function GetObject(); function Convert(); private object_: SectPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SectPrUnitDecorator.GetObject(); +begin + return object_; +end; + function SectPrUnitDecorator.Convert(); begin {self.}XmlAttrWRsidR.Value := object_.XmlAttrWRsidR.Value; diff --git a/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf index d71ab5b..b0bb71a 100644 --- a/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SerUnitDecorator = class(Ser) uses TSSafeUnitConverter; public function Create(_obj: Ser); + function GetObject(); function Convert(); private object_: Ser; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SerUnitDecorator.GetObject(); +begin + return object_; +end; + function SerUnitDecorator.Convert(); begin {self.}Idx := new PureValUnitDecorator(object_.Idx); diff --git a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf index d708e26..6b00ec5 100644 --- a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SettingsUnitDecorator = class(Settings) uses TSSafeUnitConverter; public function Create(_obj: Settings); + function GetObject(); function Convert(); private object_: Settings; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SettingsUnitDecorator.GetObject(); +begin + return object_; +end; + function SettingsUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value; diff --git a/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf index 627cb49..73e0112 100644 --- a/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ShapeDefaults2UnitDecorator = class(ShapeDefaults2) uses TSSafeUnitConverter; public function Create(_obj: ShapeDefaults2); + function GetObject(); function Convert(); private object_: ShapeDefaults2; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ShapeDefaults2UnitDecorator.GetObject(); +begin + return object_; +end; + function ShapeDefaults2UnitDecorator.Convert(); begin {self.}ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults); diff --git a/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf index 01cdb74..100bf41 100644 --- a/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ShapeDefaultsUnitDecorator = class(ShapeDefaults) uses TSSafeUnitConverter; public function Create(_obj: ShapeDefaults); + function GetObject(); function Convert(); private object_: ShapeDefaults; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ShapeDefaultsUnitDecorator.GetObject(); +begin + return object_; +end; + function ShapeDefaultsUnitDecorator.Convert(); begin {self.}XmlAttrExt.Value := object_.XmlAttrExt.Value; diff --git a/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf index 5a4e525..71e8c95 100644 --- a/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ShapeLayoutUnitDecorator = class(ShapeLayout) uses TSSafeUnitConverter; public function Create(_obj: ShapeLayout); + function GetObject(); function Convert(); private object_: ShapeLayout; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ShapeLayoutUnitDecorator.GetObject(); +begin + return object_; +end; + function ShapeLayoutUnitDecorator.Convert(); begin {self.}XmlAttrExt.Value := object_.XmlAttrExt.Value; diff --git a/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf index 247b5c9..ef274f7 100644 --- a/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ShdUnitDecorator = class(Shd) uses TSSafeUnitConverter; public function Create(_obj: Shd); + function GetObject(); function Convert(); private object_: Shd; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ShdUnitDecorator.GetObject(); +begin + return object_; +end; + function ShdUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf index 41bda78..7e0d3c7 100644 --- a/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SigUnitDecorator = class(Sig) uses TSSafeUnitConverter; public function Create(_obj: Sig); + function GetObject(); function Convert(); private object_: Sig; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SigUnitDecorator.GetObject(); +begin + return object_; +end; + function SigUnitDecorator.Convert(); begin {self.}XmlAttrUsb0.Value := object_.XmlAttrUsb0.Value; diff --git a/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf index 6f877fa..c168e6d 100644 --- a/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SolidFillUnitDecorator = class(SolidFill) uses TSSafeUnitConverter; public function Create(_obj: SolidFill); + function GetObject(); function Convert(); private object_: SolidFill; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SolidFillUnitDecorator.GetObject(); +begin + return object_; +end; + function SolidFillUnitDecorator.Convert(); begin {self.}SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr); diff --git a/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf index 1b065a8..35daa11 100644 --- a/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SpPrUnitDecorator = class(SpPr) uses TSSafeUnitConverter; public function Create(_obj: SpPr); + function GetObject(); function Convert(); private object_: SpPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SpPrUnitDecorator.GetObject(); +begin + return object_; +end; + function SpPrUnitDecorator.Convert(); begin {self.}Xfrm := new XfrmUnitDecorator(object_.Xfrm); diff --git a/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf index aa32ae3..b304c0c 100644 --- a/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SpacingUnitDecorator = class(Spacing) uses TSSafeUnitConverter; public function Create(_obj: Spacing); + function GetObject(); function Convert(); private object_: Spacing; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SpacingUnitDecorator.GetObject(); +begin + return object_; +end; + function SpacingUnitDecorator.Convert(); begin {self.}XmlAttrBefore.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrBefore.Value); diff --git a/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf index fdea7de..d658ac6 100644 --- a/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SrgbClrUnitDecorator = class(SrgbClr) uses TSSafeUnitConverter; public function Create(_obj: SrgbClr); + function GetObject(); function Convert(); private object_: SrgbClr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SrgbClrUnitDecorator.GetObject(); +begin + return object_; +end; + function SrgbClrUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf index 5c9bcfd..3c92155 100644 --- a/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type StrRefUnitDecorator = class(StrRef) uses TSSafeUnitConverter; public function Create(_obj: StrRef); + function GetObject(); function Convert(); private object_: StrRef; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function StrRefUnitDecorator.GetObject(); +begin + return object_; +end; + function StrRefUnitDecorator.Convert(); begin {self.}StrCache := new CacheUnitDecorator(object_.StrCache); diff --git a/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf index 356a4d0..5060892 100644 --- a/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type StretchUnitDecorator = class(Stretch) uses TSSafeUnitConverter; public function Create(_obj: Stretch); + function GetObject(); function Convert(); private object_: Stretch; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function StretchUnitDecorator.GetObject(); +begin + return object_; +end; + function StretchUnitDecorator.Convert(); begin {self.}FillRect := new PureValUnitDecorator(object_.FillRect); diff --git a/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf index 5f61ebb..fd33ddb 100644 --- a/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type StyleUnitDecorator = class(Style) uses TSSafeUnitConverter; public function Create(_obj: Style); + function GetObject(); function Convert(); private object_: Style; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function StyleUnitDecorator.GetObject(); +begin + return object_; +end; + function StyleUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf index 570eba7..e5c7fa8 100644 --- a/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type StylesUnitDecorator = class(Styles) uses TSSafeUnitConverter; public function Create(_obj: Styles); + function GetObject(); function Convert(); private object_: Styles; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function StylesUnitDecorator.GetObject(); +begin + return object_; +end; + function StylesUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; diff --git a/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf index dd56b83..1b19335 100644 --- a/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SysClrUnitDecorator = class(SysClr) uses TSSafeUnitConverter; public function Create(_obj: SysClr); + function GetObject(); function Convert(); private object_: SysClr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SysClrUnitDecorator.GetObject(); +begin + return object_; +end; + function SysClrUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf index b9fc357..a870575 100644 --- a/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SzCsUnitDecorator = class(SzCs) uses TSSafeUnitConverter; public function Create(_obj: SzCs); + function GetObject(); function Convert(); private object_: SzCs; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SzCsUnitDecorator.GetObject(); +begin + return object_; +end; + function SzCsUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); diff --git a/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf index 0304bb4..30430cb 100644 --- a/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type SzUnitDecorator = class(Sz) uses TSSafeUnitConverter; public function Create(_obj: Sz); + function GetObject(); function Convert(); private object_: Sz; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function SzUnitDecorator.GetObject(); +begin + return object_; +end; + function SzUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); diff --git a/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf index a01fbff..11a9a55 100644 --- a/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TUnitDecorator = class(T) uses TSSafeUnitConverter; public function Create(_obj: T); + function GetObject(); function Convert(); private object_: T; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TUnitDecorator.GetObject(); +begin + return object_; +end; + function TUnitDecorator.Convert(); begin {self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value; diff --git a/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf index 3de3132..487ff86 100644 --- a/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TabUnitDecorator = class(Tab) uses TSSafeUnitConverter; public function Create(_obj: Tab); + function GetObject(); function Convert(); private object_: Tab; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TabUnitDecorator.GetObject(); +begin + return object_; +end; + function TabUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf index e596531..86ce272 100644 --- a/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TabsUnitDecorator = class(Tabs) uses TSSafeUnitConverter; public function Create(_obj: Tabs); + function GetObject(); function Convert(); private object_: Tabs; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TabsUnitDecorator.GetObject(); +begin + return object_; +end; + function TabsUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf index c4c0af4..3c1af49 100644 --- a/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblBorderUnitDecorator = class(TblBorder) uses TSSafeUnitConverter; public function Create(_obj: TblBorder); + function GetObject(); function Convert(); private object_: TblBorder; @@ -14,11 +15,16 @@ begin {self.}Convert(); end; +function TblBorderUnitDecorator.GetObject(); +begin + return object_; +end; + function TblBorderUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; {self.}XmlAttrColor.Value := object_.XmlAttrColor.Value; - {self.}XmlAttrSpce.Value := object_.XmlAttrSpce.Value; + {self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value; {self.}XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value; {self.}XmlAttrThemeTint.Value := object_.XmlAttrThemeTint.Value; {self.}XmlAttrSz.Value := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrSz.Value); diff --git a/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf index 4b560a8..6933d79 100644 --- a/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblBordersUnitDecorator = class(TblBorders) uses TSSafeUnitConverter; public function Create(_obj: TblBorders); + function GetObject(); function Convert(); private object_: TblBorders; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblBordersUnitDecorator.GetObject(); +begin + return object_; +end; + function TblBordersUnitDecorator.Convert(); begin {self.}Top := new tblBorderUnitDecorator(object_.Top); diff --git a/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf index eabcfce..5cc2eb0 100644 --- a/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblCellMarUnitDecorator = class(TblCellMar) uses TSSafeUnitConverter; public function Create(_obj: TblCellMar); + function GetObject(); function Convert(); private object_: TblCellMar; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblCellMarUnitDecorator.GetObject(); +begin + return object_; +end; + function TblCellMarUnitDecorator.Convert(); begin {self.}Top := new TblIndUnitDecorator(object_.Top); diff --git a/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf index 350142c..9e2aaf6 100644 --- a/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblGridUnitDecorator = class(TblGrid) uses TSSafeUnitConverter; public function Create(_obj: TblGrid); + function GetObject(); function Convert(); private object_: TblGrid; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblGridUnitDecorator.GetObject(); +begin + return object_; +end; + function TblGridUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf index 5645390..74c5a16 100644 --- a/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblIndUnitDecorator = class(TblInd) uses TSSafeUnitConverter; public function Create(_obj: TblInd); + function GetObject(); function Convert(); private object_: TblInd; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblIndUnitDecorator.GetObject(); +begin + return object_; +end; + function TblIndUnitDecorator.Convert(); begin {self.}XmlAttrW.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); diff --git a/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf index 0029cca..596e2e0 100644 --- a/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblLayoutUnitDecorator = class(TblLayout) uses TSSafeUnitConverter; public function Create(_obj: TblLayout); + function GetObject(); function Convert(); private object_: TblLayout; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblLayoutUnitDecorator.GetObject(); +begin + return object_; +end; + function TblLayoutUnitDecorator.Convert(); begin {self.}XmlAttrType.Value := object_.XmlAttrType.Value; diff --git a/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf index f65b971..a3126ac 100644 --- a/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblLookUnitDecorator = class(TblLook) uses TSSafeUnitConverter; public function Create(_obj: TblLook); + function GetObject(); function Convert(); private object_: TblLook; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblLookUnitDecorator.GetObject(); +begin + return object_; +end; + function TblLookUnitDecorator.Convert(); begin {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; diff --git a/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf index e60fe37..e8b8678 100644 --- a/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblPrUnitDecorator = class(TblPr) uses TSSafeUnitConverter; public function Create(_obj: TblPr); + function GetObject(); function Convert(); private object_: TblPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblPrUnitDecorator.GetObject(); +begin + return object_; +end; + function TblPrUnitDecorator.Convert(); begin {self.}Jc := new PureWValUnitDecorator(object_.Jc); diff --git a/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf index e135732..f62231e 100644 --- a/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblStylePrUnitDecorator = class(TblStylePr) uses TSSafeUnitConverter; public function Create(_obj: TblStylePr); + function GetObject(); function Convert(); private object_: TblStylePr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblStylePrUnitDecorator.GetObject(); +begin + return object_; +end; + function TblStylePrUnitDecorator.Convert(); begin {self.}PPr := new PPrUnitDecorator(object_.PPr); diff --git a/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf index 0d8bbf0..0830549 100644 --- a/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblUnitDecorator = class(Tbl) uses TSSafeUnitConverter; public function Create(_obj: Tbl); + function GetObject(); function Convert(); private object_: Tbl; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblUnitDecorator.GetObject(); +begin + return object_; +end; + function TblUnitDecorator.Convert(); begin {self.}TblPr := new TblPrUnitDecorator(object_.TblPr); diff --git a/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf index 3e19fcb..7d72f82 100644 --- a/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TblWUnitDecorator = class(TblW) uses TSSafeUnitConverter; public function Create(_obj: TblW); + function GetObject(); function Convert(); private object_: TblW; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TblWUnitDecorator.GetObject(); +begin + return object_; +end; + function TblWUnitDecorator.Convert(); begin {self.}XmlAttrW.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); diff --git a/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf index 535eb4c..3488e0b 100644 --- a/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TcPrUnitDecorator = class(TcPr) uses TSSafeUnitConverter; public function Create(_obj: TcPr); + function GetObject(); function Convert(); private object_: TcPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TcPrUnitDecorator.GetObject(); +begin + return object_; +end; + function TcPrUnitDecorator.Convert(); begin {self.}TcW := new TblWUnitDecorator(object_.TcW); diff --git a/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf index f6816fd..5f2a8f1 100644 --- a/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TcUnitDecorator = class(Tc) uses TSSafeUnitConverter; public function Create(_obj: Tc); + function GetObject(); function Convert(); private object_: Tc; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TcUnitDecorator.GetObject(); +begin + return object_; +end; + function TcUnitDecorator.Convert(); begin {self.}TcPr := new TcPrUnitDecorator(object_.TcPr); diff --git a/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf index 467b47c..037b623 100644 --- a/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ThemeElementsUnitDecorator = class(ThemeElements) uses TSSafeUnitConverter; public function Create(_obj: ThemeElements); + function GetObject(); function Convert(); private object_: ThemeElements; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ThemeElementsUnitDecorator.GetObject(); +begin + return object_; +end; + function ThemeElementsUnitDecorator.Convert(); begin {self.}XmlAttrName.Value := object_.XmlAttrName.Value; diff --git a/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf index 41df1ad..25476b3 100644 --- a/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ThemeFamilyUnitDecorator = class(ThemeFamily) uses TSSafeUnitConverter; public function Create(_obj: ThemeFamily); + function GetObject(); function Convert(); private object_: ThemeFamily; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ThemeFamilyUnitDecorator.GetObject(); +begin + return object_; +end; + function ThemeFamilyUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsThm15.Value := object_.XmlAttrXmlnsThm15.Value; diff --git a/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf index 17e002b..75e0434 100644 --- a/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ThemeUnitDecorator = class(Theme) uses TSSafeUnitConverter; public function Create(_obj: Theme); + function GetObject(); function Convert(); private object_: Theme; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ThemeUnitDecorator.GetObject(); +begin + return object_; +end; + function ThemeUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value; diff --git a/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf index 800b477..1162876 100644 --- a/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TitleUnitDecorator = class(Title) uses TSSafeUnitConverter; public function Create(_obj: Title); + function GetObject(); function Convert(); private object_: Title; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TitleUnitDecorator.GetObject(); +begin + return object_; +end; + function TitleUnitDecorator.Convert(); begin {self.}Tx := new TxUnitDecorator(object_.Tx); diff --git a/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf index cffc64a..f399b08 100644 --- a/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TrHeightUnitDecorator = class(TrHeight) uses TSSafeUnitConverter; public function Create(_obj: TrHeight); + function GetObject(); function Convert(); private object_: TrHeight; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TrHeightUnitDecorator.GetObject(); +begin + return object_; +end; + function TrHeightUnitDecorator.Convert(); begin {self.}XmlAttrval.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrval.Value); diff --git a/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf index 7688f17..d812064 100644 --- a/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TrPrUnitDecorator = class(TrPr) uses TSSafeUnitConverter; public function Create(_obj: TrPr); + function GetObject(); function Convert(); private object_: TrPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TrPrUnitDecorator.GetObject(); +begin + return object_; +end; + function TrPrUnitDecorator.Convert(); begin {self.}TrHeight := new TrHeightUnitDecorator(object_.TrHeight); diff --git a/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf index 8096303..91a4dea 100644 --- a/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TrUnitDecorator = class(Tr) uses TSSafeUnitConverter; public function Create(_obj: Tr); + function GetObject(); function Convert(); private object_: Tr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TrUnitDecorator.GetObject(); +begin + return object_; +end; + function TrUnitDecorator.Convert(); begin {self.}XmlAttrWRsidR.Value := object_.XmlAttrWRsidR.Value; diff --git a/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf index 854649f..1292293 100644 --- a/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TxPrUnitDecorator = class(TxPr) uses TSSafeUnitConverter; public function Create(_obj: TxPr); + function GetObject(); function Convert(); private object_: TxPr; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TxPrUnitDecorator.GetObject(); +begin + return object_; +end; + function TxPrUnitDecorator.Convert(); begin {self.}BodyPr := new BodyPrUnitDecorator(object_.BodyPr); diff --git a/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf index 6313af5..b2bf801 100644 --- a/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TxUnitDecorator = class(Tx) uses TSSafeUnitConverter; public function Create(_obj: Tx); + function GetObject(); function Convert(); private object_: Tx; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TxUnitDecorator.GetObject(); +begin + return object_; +end; + function TxUnitDecorator.Convert(); begin {self.}StrRef := new StrRefUnitDecorator(object_.StrRef); diff --git a/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf index 4b3ba48..191f0b8 100644 --- a/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type TypesUnitDecorator = class(Types) uses TSSafeUnitConverter; public function Create(_obj: Types); + function GetObject(); function Convert(); private object_: Types; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function TypesUnitDecorator.GetObject(); +begin + return object_; +end; + function TypesUnitDecorator.Convert(); begin end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf index 80d685d..0027643 100644 --- a/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ValUnitDecorator = class(Val) uses TSSafeUnitConverter; public function Create(_obj: Val); + function GetObject(); function Convert(); private object_: Val; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ValUnitDecorator.GetObject(); +begin + return object_; +end; + function ValUnitDecorator.Convert(); begin {self.}NumRef := new NumRefUnitDecorator(object_.NumRef); diff --git a/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf index 3b08484..eaf2981 100644 --- a/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type View3DUnitDecorator = class(View3D) uses TSSafeUnitConverter; public function Create(_obj: View3D); + function GetObject(); function Convert(); private object_: View3D; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function View3DUnitDecorator.GetObject(); +begin + return object_; +end; + function View3DUnitDecorator.Convert(); begin {self.}RotX := new PureValUnitDecorator(object_.RotX); diff --git a/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf index 6301233..4339faf 100644 --- a/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type WebSettingsUnitDecorator = class(WebSettings) uses TSSafeUnitConverter; public function Create(_obj: WebSettings); + function GetObject(); function Convert(); private object_: WebSettings; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function WebSettingsUnitDecorator.GetObject(); +begin + return object_; +end; + function WebSettingsUnitDecorator.Convert(); begin {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; diff --git a/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf index 4fda687..11303cd 100644 --- a/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type XYUnitDecorator = class(XY) uses TSSafeUnitConverter; public function Create(_obj: XY); + function GetObject(); function Convert(); private object_: XY; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function XYUnitDecorator.GetObject(); +begin + return object_; +end; + function XYUnitDecorator.Convert(); begin {self.}XmlAttrX.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrX.Value); diff --git a/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf index 0d80fe1..1ba67b4 100644 --- a/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type XfrmUnitDecorator = class(Xfrm) uses TSSafeUnitConverter; public function Create(_obj: Xfrm); + function GetObject(); function Convert(); private object_: Xfrm; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function XfrmUnitDecorator.GetObject(); +begin + return object_; +end; + function XfrmUnitDecorator.Convert(); begin {self.}Off := new XYUnitDecorator(object_.Off); diff --git a/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf index 1954ee6..0dee9ce 100644 --- a/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type ZoomUnitDecorator = class(Zoom) uses TSSafeUnitConverter; public function Create(_obj: Zoom); + function GetObject(); function Convert(); private object_: Zoom; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function ZoomUnitDecorator.GetObject(); +begin + return object_; +end; + function ZoomUnitDecorator.Convert(); begin {self.}XmlAttrPercent.Value := object_.XmlAttrPercent.Value; diff --git a/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf index 8b14d9f..363e536 100644 --- a/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type _InlineUnitDecorator = class(_Inline) uses TSSafeUnitConverter; public function Create(_obj: _Inline); + function GetObject(); function Convert(); private object_: _Inline; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function _InlineUnitDecorator.GetObject(); +begin + return object_; +end; + function _InlineUnitDecorator.Convert(); begin {self.}XmlAttrDistT.Value := object_.XmlAttrDistT.Value; diff --git a/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf index 236e9e4..f38ef1b 100644 --- a/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf @@ -2,6 +2,7 @@ type _OverrideUnitDecorator = class(_Override) uses TSSafeUnitConverter; public function Create(_obj: _Override); + function GetObject(); function Convert(); private object_: _Override; @@ -14,6 +15,11 @@ begin {self.}Convert(); end; +function _OverrideUnitDecorator.GetObject(); +begin + return object_; +end; + function _OverrideUnitDecorator.Convert(); begin {self.}XmlAttrPartName.Value := object_.XmlAttrPartName.Value; diff --git a/autoclass/docx/AlternateContent@DOCX.tsf b/autoclass/docx/AlternateContent@DOCX.tsf index 87adf07..4244bf1 100644 --- a/autoclass/docx/AlternateContent@DOCX.tsf +++ b/autoclass/docx/AlternateContent@DOCX.tsf @@ -40,7 +40,7 @@ end; function AlternateContent.Init();override; begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", "http://schemas.openxmlformats.org/markup-compatibility/2006"); + {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); {self.}Choice := new Choice(self, {self.}Prefix, "Choice"); {self.}Fallback := new Fallback(self, {self.}Prefix, "Fallback"); end; diff --git a/autoclass/docx/ChartSpace@DOCX.tsf b/autoclass/docx/ChartSpace@DOCX.tsf index 8cc5333..92c6cf4 100644 --- a/autoclass/docx/ChartSpace@DOCX.tsf +++ b/autoclass/docx/ChartSpace@DOCX.tsf @@ -56,9 +56,9 @@ end; function ChartSpace.Init();override; begin - {self.}XmlAttrXmlnsC := new OpenXmlAttribute("xmlns", "c", "http://schemas.openxmlformats.org/drawingml/2006/chart"); - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "c", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); + {self.}XmlAttrXmlnsC := new OpenXmlAttribute("xmlns", "c", nil); + {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); + {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "c", nil); {self.}Date1904 := new PureVal(self, {self.}Prefix, "date1904"); {self.}XmlChildLang := new PureVal(self, {self.}Prefix, "lang"); {self.}AlternateContent := new AlternateContent(self, "mc", "alternateContent"); diff --git a/autoclass/docx/Choice@DOCX.tsf b/autoclass/docx/Choice@DOCX.tsf index f65cc19..d9dce1d 100644 --- a/autoclass/docx/Choice@DOCX.tsf +++ b/autoclass/docx/Choice@DOCX.tsf @@ -44,7 +44,7 @@ end; function Choice.Init();override; begin {self.}XmlAttrRequires := new OpenXmlAttribute(nil, "Requires", nil); - {self.}XmlAttrXmlnsC14 := new OpenXmlAttribute("xmlns", "c14", "http://schemas.microsoft.com/office/drawing/2007/8/2/chart"); + {self.}XmlAttrXmlnsC14 := new OpenXmlAttribute("xmlns", "c14", nil); {self.}Style := new PureVal(self, "c14", "style"); end; diff --git a/autoclass/docx/CoreProperties@DOCX.tsf b/autoclass/docx/CoreProperties@DOCX.tsf index bf176f1..6b31f7a 100644 --- a/autoclass/docx/CoreProperties@DOCX.tsf +++ b/autoclass/docx/CoreProperties@DOCX.tsf @@ -64,11 +64,11 @@ end; function CoreProperties.Init();override; begin - {self.}XmlAttrXmlnsCp := new OpenXmlAttribute("xmlns", "cp", "http://schemas.openxmlformats.org/package/2006/metadata/core-properties"); - {self.}XmlAttrXmlnsDc := new OpenXmlAttribute("xmlns", "dc", "http://purl.org/dc/elements/1.1/"); - {self.}XmlAttrXmlnsDcterms := new OpenXmlAttribute("xmlns", "dcterms", "http://purl.org/dc/terms/"); - {self.}XmlAttrXmlnsDcmitype := new OpenXmlAttribute("xmlns", "dcmitype", "http://purl.org/dc/dcmitype/"); - {self.}XmlAttrXmlnsXsi := new OpenXmlAttribute("xmlns", "xsi", "http://www.w3.org/2001/XMLSchema-instance"); + {self.}XmlAttrXmlnsCp := new OpenXmlAttribute("xmlns", "cp", nil); + {self.}XmlAttrXmlnsDc := new OpenXmlAttribute("xmlns", "dc", nil); + {self.}XmlAttrXmlnsDcterms := new OpenXmlAttribute("xmlns", "dcterms", nil); + {self.}XmlAttrXmlnsDcmitype := new OpenXmlAttribute("xmlns", "dcmitype", nil); + {self.}XmlAttrXmlnsXsi := new OpenXmlAttribute("xmlns", "xsi", nil); {self.}Title := new OpenXmlPcdata(self, "dc", "title"); {self.}Subject := new OpenXmlPcdata(self, "dc", "subject"); {self.}Creator := new OpenXmlPcdata(self, "dc", "creator"); diff --git a/autoclass/docx/Graphic@DOCX.tsf b/autoclass/docx/Graphic@DOCX.tsf index 5a73b9e..2653f63 100644 --- a/autoclass/docx/Graphic@DOCX.tsf +++ b/autoclass/docx/Graphic@DOCX.tsf @@ -39,7 +39,7 @@ end; function Graphic.Init();override; begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); + {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); {self.}GraphicData := new GraphicData(self, "a", "graphicData"); end; diff --git a/autoclass/docx/GraphicData@DOCX.tsf b/autoclass/docx/GraphicData@DOCX.tsf index de07730..6d07f87 100644 --- a/autoclass/docx/GraphicData@DOCX.tsf +++ b/autoclass/docx/GraphicData@DOCX.tsf @@ -40,7 +40,7 @@ end; function GraphicData.Init();override; begin - {self.}XmlAttrUri := new OpenXmlAttribute(nil, "uri", "http://schemas.openxmlformats.org/drawingml/2006/picture"); + {self.}XmlAttrUri := new OpenXmlAttribute(nil, "uri", nil); {self.}Pic := new Pic(self, "pic", "pic"); {self.}Chart := new Chart(self, "c", "chart"); end; diff --git a/autoclass/docx/GraphicFrameLocks@DOCX.tsf b/autoclass/docx/GraphicFrameLocks@DOCX.tsf index 9f81129..f36abf3 100644 --- a/autoclass/docx/GraphicFrameLocks@DOCX.tsf +++ b/autoclass/docx/GraphicFrameLocks@DOCX.tsf @@ -43,7 +43,7 @@ end; function GraphicFrameLocks.Init();override; begin {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute(nil, "noChangeAspect", nil); - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); + {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); end; function GraphicFrameLocks.InitAttributes();override; diff --git a/autoclass/docx/PBdr@DOCX.tsf b/autoclass/docx/PBdr@DOCX.tsf index e8f7ed7..6d82cbf 100644 --- a/autoclass/docx/PBdr@DOCX.tsf +++ b/autoclass/docx/PBdr@DOCX.tsf @@ -13,7 +13,8 @@ public // Attributes // Children - Top: PureVal; + Top: PBorder; + Bottom: PBorder; end; @@ -34,7 +35,8 @@ end; function PBdr.Init();override; begin - {self.}Top := new PureVal(self, {self.}Prefix, "top"); + {self.}Top := new PBorder(self, {self.}Prefix, "top"); + {self.}Bottom := new PBorder(self, {self.}Prefix, "bottom"); end; function PBdr.InitAttributes();override; @@ -47,10 +49,12 @@ function PBdr.InitChildren();override; begin child_elements_ := array( 0: {self.}Top, + 1: {self.}Bottom, ); sorted_child_ := array( "": -1, {self.}Top.ElementName: 0, + {self.}Bottom.ElementName: 1, ); end; @@ -95,4 +99,5 @@ end; function PBdr.Copy(_obj: PBdr);override; begin {self.}Top.Copy(_obj.Top); + {self.}Bottom.Copy(_obj.Bottom); end; diff --git a/autoclass/docx/PBorder@DOCX.tsf b/autoclass/docx/PBorder@DOCX.tsf new file mode 100644 index 0000000..e4f9bb1 --- /dev/null +++ b/autoclass/docx/PBorder@DOCX.tsf @@ -0,0 +1,171 @@ +type PBorder = 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: PBorder);override; + + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Color read ReadXmlAttrColor write WriteXmlAttrColor; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; + property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; + property Sz read ReadXmlAttrSz write WriteXmlAttrSz; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrColor(); + function WriteXmlAttrColor(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + function ReadXmlAttrThemeColor(); + function WriteXmlAttrThemeColor(_value); + function ReadXmlAttrThemeTint(); + function WriteXmlAttrThemeTint(_value); + function ReadXmlAttrSz(); + function WriteXmlAttrSz(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrColor: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + XmlAttrThemeColor: OpenXmlAttribute; + XmlAttrThemeTint: OpenXmlAttribute; + XmlAttrSz: OpenXmlAttribute; + + // Children + +end; + +function PBorder.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function PBorder.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PBorder.Init();override; +begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); + {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); + {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); +end; + +function PBorder.InitAttributes();override; +begin + attributes_ := array( + {self.}XmlAttrVal, + {self.}XmlAttrColor, + {self.}XmlAttrSpace, + {self.}XmlAttrThemeColor, + {self.}XmlAttrThemeTint, + {self.}XmlAttrSz, + ); +end; + +function PBorder.InitChildren();override; +begin + child_elements_ := array( + ); + sorted_child_ := array( + "": -1, + ); +end; + +function PBorder.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 PBorder.Copy(_obj: PBorder);override; +begin + if not ifnil(_obj.XmlAttrVal.Value) then + {self.}XmlAttrVal.Value := _obj.XmlAttrVal.Value; + if not ifnil(_obj.XmlAttrColor.Value) then + {self.}XmlAttrColor.Value := _obj.XmlAttrColor.Value; + if not ifnil(_obj.XmlAttrSpace.Value) then + {self.}XmlAttrSpace.Value := _obj.XmlAttrSpace.Value; + if not ifnil(_obj.XmlAttrThemeColor.Value) then + {self.}XmlAttrThemeColor.Value := _obj.XmlAttrThemeColor.Value; + if not ifnil(_obj.XmlAttrThemeTint.Value) then + {self.}XmlAttrThemeTint.Value := _obj.XmlAttrThemeTint.Value; + if not ifnil(_obj.XmlAttrSz.Value) then + {self.}XmlAttrSz.Value := _obj.XmlAttrSz.Value; +end; + +function PBorder.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function PBorder.WriteXmlAttrVal(_value); +begin + {self.}XmlAttrVal.Value := _value; +end; + +function PBorder.ReadXmlAttrColor(); +begin + return {self.}XmlAttrColor.Value; +end; + +function PBorder.WriteXmlAttrColor(_value); +begin + {self.}XmlAttrColor.Value := _value; +end; + +function PBorder.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function PBorder.WriteXmlAttrSpace(_value); +begin + {self.}XmlAttrSpace.Value := _value; +end; + +function PBorder.ReadXmlAttrThemeColor(); +begin + return {self.}XmlAttrThemeColor.Value; +end; + +function PBorder.WriteXmlAttrThemeColor(_value); +begin + {self.}XmlAttrThemeColor.Value := _value; +end; + +function PBorder.ReadXmlAttrThemeTint(); +begin + return {self.}XmlAttrThemeTint.Value; +end; + +function PBorder.WriteXmlAttrThemeTint(_value); +begin + {self.}XmlAttrThemeTint.Value := _value; +end; + +function PBorder.ReadXmlAttrSz(); +begin + return {self.}XmlAttrSz.Value; +end; + +function PBorder.WriteXmlAttrSz(_value); +begin + {self.}XmlAttrSz.Value := _value; +end; diff --git a/autoclass/docx/Pic@DOCX.tsf b/autoclass/docx/Pic@DOCX.tsf index 168a20b..20e10b2 100644 --- a/autoclass/docx/Pic@DOCX.tsf +++ b/autoclass/docx/Pic@DOCX.tsf @@ -41,7 +41,7 @@ end; function Pic.Init();override; begin - {self.}XmlAttrXmlnsPic := new OpenXmlAttribute("xmlns", "pic", "http://schemas.openxmlformats.org/drawingml/2006/picture"); + {self.}XmlAttrXmlnsPic := new OpenXmlAttribute("xmlns", "pic", nil); {self.}NvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr"); {self.}BlipFill := new BlipFill(self, {self.}Prefix, "blipFill"); {self.}SpPr := new SpPr(self, {self.}Prefix, "spPr"); diff --git a/autoclass/docx/Properties@DOCX.tsf b/autoclass/docx/Properties@DOCX.tsf index 73e2ceb..3c57ecd 100644 --- a/autoclass/docx/Properties@DOCX.tsf +++ b/autoclass/docx/Properties@DOCX.tsf @@ -58,8 +58,8 @@ end; function Properties.Init();override; begin - {self.}XmlAttrXmlns := new OpenXmlAttribute(nil, "xmlns", "http://schemas.openxmlformats.org/officeDocument/2006/extended-properties"); - {self.}XmlAttrXmlnsVt := new OpenXmlAttribute("xmlns", "vt", "http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"); + {self.}XmlAttrXmlns := new OpenXmlAttribute(nil, "xmlns", nil); + {self.}XmlAttrXmlnsVt := new OpenXmlAttribute("xmlns", "vt", nil); {self.}Template := new OpenXmlPcdata(self, nil, "Template"); {self.}TotalTime := new OpenXmlPcdata(self, nil, "TotalTime"); {self.}Pages := new OpenXmlPcdata(self, nil, "Pages"); diff --git a/autoclass/docx/Relationships@DOCX.tsf b/autoclass/docx/Relationships@DOCX.tsf index 0ab172b..aac30b8 100644 --- a/autoclass/docx/Relationships@DOCX.tsf +++ b/autoclass/docx/Relationships@DOCX.tsf @@ -43,7 +43,7 @@ end; function Relationships.Init();override; begin - {self.}XmlAttrxmlns := new OpenXmlAttribute(nil, "xmlns", "http://schemas.openxmlformats.org/package/2006/relationships"); + {self.}XmlAttrxmlns := new OpenXmlAttribute(nil, "xmlns", nil); end; function Relationships.InitAttributes();override; diff --git a/autoclass/docx/SectPr@DOCX.tsf b/autoclass/docx/SectPr@DOCX.tsf index 5b26bc5..c455af0 100644 --- a/autoclass/docx/SectPr@DOCX.tsf +++ b/autoclass/docx/SectPr@DOCX.tsf @@ -119,7 +119,7 @@ begin obj := nil; case node_name of pre + "headerReference": obj := {self.}AppendHeaderReference(); - pre + "FooterReference": obj := {self.}AppendFooterReference(); + pre + "footerReference": obj := {self.}AppendFooterReference(); end; if ifObj(obj) then obj.InitNode(node); end @@ -169,9 +169,9 @@ begin if len = 0 then i := -1; else begin for i:=len-1 downto 0 do - if child_elements_[i].LocalName = "FooterReference" then break; + if child_elements_[i].LocalName = "footerReference" then break; end - obj := new Reference(self, {self.}Prefix, "FooterReference"); + obj := new Reference(self, {self.}Prefix, "footerReference"); {self.}InsertChild(obj, i+1); return obj; end; @@ -185,7 +185,7 @@ end; function SectPr.AppendFooterReference(): Reference; begin - obj := new Reference(self, {self.}Prefix, "FooterReference"); + obj := new Reference(self, {self.}Prefix, "footerReference"); child_elements_[length(child_elements_)] := obj; return obj; end; @@ -212,7 +212,7 @@ begin arr := array(); for k,v in child_elements_ do begin - if v.LocalName = "FooterReference" then + if v.LocalName = "footerReference" then begin arr[length(arr)] := v; ind--; diff --git a/autoclass/docx/TblBorder@DOCX.tsf b/autoclass/docx/TblBorder@DOCX.tsf index 7866d6a..ce03347 100644 --- a/autoclass/docx/TblBorder@DOCX.tsf +++ b/autoclass/docx/TblBorder@DOCX.tsf @@ -11,7 +11,7 @@ public property Val read ReadXmlAttrVal write WriteXmlAttrVal; property Color read ReadXmlAttrColor write WriteXmlAttrColor; - property Spce read ReadXmlAttrSpce write WriteXmlAttrSpce; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; property Sz read ReadXmlAttrSz write WriteXmlAttrSz; @@ -19,8 +19,8 @@ public function WriteXmlAttrVal(_value); function ReadXmlAttrColor(); function WriteXmlAttrColor(_value); - function ReadXmlAttrSpce(); - function WriteXmlAttrSpce(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); function ReadXmlAttrThemeColor(); function WriteXmlAttrThemeColor(_value); function ReadXmlAttrThemeTint(); @@ -32,7 +32,7 @@ public // Attributes XmlAttrVal: OpenXmlAttribute; XmlAttrColor: OpenXmlAttribute; - XmlAttrSpce: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; XmlAttrThemeColor: OpenXmlAttribute; XmlAttrThemeTint: OpenXmlAttribute; XmlAttrSz: OpenXmlAttribute; @@ -60,7 +60,7 @@ function TblBorder.Init();override; begin {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); - {self.}XmlAttrSpce := new OpenXmlAttribute({self.}Prefix, "space", nil); + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); @@ -71,7 +71,7 @@ begin attributes_ := array( {self.}XmlAttrVal, {self.}XmlAttrColor, - {self.}XmlAttrSpce, + {self.}XmlAttrSpace, {self.}XmlAttrThemeColor, {self.}XmlAttrThemeTint, {self.}XmlAttrSz, @@ -100,8 +100,8 @@ begin {self.}XmlAttrVal.Value := _obj.XmlAttrVal.Value; if not ifnil(_obj.XmlAttrColor.Value) then {self.}XmlAttrColor.Value := _obj.XmlAttrColor.Value; - if not ifnil(_obj.XmlAttrSpce.Value) then - {self.}XmlAttrSpce.Value := _obj.XmlAttrSpce.Value; + if not ifnil(_obj.XmlAttrSpace.Value) then + {self.}XmlAttrSpace.Value := _obj.XmlAttrSpace.Value; if not ifnil(_obj.XmlAttrThemeColor.Value) then {self.}XmlAttrThemeColor.Value := _obj.XmlAttrThemeColor.Value; if not ifnil(_obj.XmlAttrThemeTint.Value) then @@ -130,14 +130,14 @@ begin {self.}XmlAttrColor.Value := _value; end; -function TblBorder.ReadXmlAttrSpce(); +function TblBorder.ReadXmlAttrSpace(); begin - return {self.}XmlAttrSpce.Value; + return {self.}XmlAttrSpace.Value; end; -function TblBorder.WriteXmlAttrSpce(_value); +function TblBorder.WriteXmlAttrSpace(_value); begin - {self.}XmlAttrSpce.Value := _value; + {self.}XmlAttrSpace.Value := _value; end; function TblBorder.ReadXmlAttrThemeColor(); diff --git a/autoclass/docx/Theme@DOCX.tsf b/autoclass/docx/Theme@DOCX.tsf index 58b4980..90f4146 100644 --- a/autoclass/docx/Theme@DOCX.tsf +++ b/autoclass/docx/Theme@DOCX.tsf @@ -53,8 +53,8 @@ end; function Theme.Init();override; begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - {self.}XmlAttrName := new OpenXmlAttribute(nil, "name", "Office 主题"); + {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); + {self.}XmlAttrName := new OpenXmlAttribute(nil, "name", nil); {self.}ThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements"); {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); diff --git a/autoclass/pptx/Bg@PPTX.tsf b/autoclass/pptx/Bg@PPTX.tsf deleted file mode 100644 index e9118bb..0000000 --- a/autoclass/pptx/Bg@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type Bg = 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; - -public - // Attributes - - // Children - BgRef; - -end; - -function Bg.Create();overload; -begin - self.Create(nil, "p", "bg"); -end; - -function Bg.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Bg.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Bg.Init();override; -begin - self.BgRef := new BgRef(self, self.Prefix, "bgRef"); -end; - -function Bg.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Bg.InitChildren();override; -begin - child_elements_ := array( - 0: self.BgRef, - ); - sorted_child_ := array( - "": -1, - self.BgRef.ElementName: 0, - ); -end; - -function Bg.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; - 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 Bg.Copy(_obj);override; -begin - self.BgRef.Copy(_obj.BgRef); -end; diff --git a/autoclass/pptx/BgRef@PPTX.tsf b/autoclass/pptx/BgRef@PPTX.tsf deleted file mode 100644 index 5eed551..0000000 --- a/autoclass/pptx/BgRef@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type BgRef = 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 Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; - function ReadXmlAttrIdx(); - function WriteXmlAttrIdx(_value); - -public - // Attributes - XmlAttrIdx; - - // Children - SchemeClr; - -end; - -function BgRef.Create();overload; -begin - self.Create(nil, "p", "bgRef"); -end; - -function BgRef.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function BgRef.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BgRef.Init();override; -begin - self.XmlAttrIdx := new OpenXmlAttribute(nil, "idx", nil); - self.SchemeClr := new SchemeClr(self, "a", "schemeClr"); -end; - -function BgRef.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrIdx, - ); -end; - -function BgRef.InitChildren();override; -begin - child_elements_ := array( - 0: self.SchemeClr, - ); - sorted_child_ := array( - "": -1, - self.SchemeClr.ElementName: 0, - ); -end; - -function BgRef.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; - 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 BgRef.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrIdx.Value) then - self.XmlAttrIdx.Value := _obj.XmlAttrIdx.Value; - self.SchemeClr.Copy(_obj.SchemeClr); -end; - -function BgRef.ReadXmlAttrIdx(); -begin - return self.XmlAttrIdx.Value; -end; - -function BgRef.WriteXmlAttrIdx(_value); -begin - self.XmlAttrIdx.Value := _value; -end; diff --git a/autoclass/pptx/BodyPr@PPTX.tsf b/autoclass/pptx/BodyPr@PPTX.tsf deleted file mode 100644 index e5c8237..0000000 --- a/autoclass/pptx/BodyPr@PPTX.tsf +++ /dev/null @@ -1,239 +0,0 @@ -type BodyPr = 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 Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; - property Vert read ReadXmlAttrVert write WriteXmlAttrVert; - property LIns read ReadXmlAttrLIns write WriteXmlAttrLIns; - property TIns read ReadXmlAttrTIns write WriteXmlAttrTIns; - property RIns read ReadXmlAttrRIns write WriteXmlAttrRIns; - property BIns read ReadXmlAttrBIns write WriteXmlAttrBIns; - property RtlCol read ReadXmlAttrRtlCol write WriteXmlAttrRtlCol; - function ReadXmlAttrAnchor(); - function WriteXmlAttrAnchor(_value); - function ReadXmlAttrVert(); - function WriteXmlAttrVert(_value); - function ReadXmlAttrLIns(); - function WriteXmlAttrLIns(_value); - function ReadXmlAttrTIns(); - function WriteXmlAttrTIns(_value); - function ReadXmlAttrRIns(); - function WriteXmlAttrRIns(_value); - function ReadXmlAttrBIns(); - function WriteXmlAttrBIns(_value); - function ReadXmlAttrRtlCol(); - function WriteXmlAttrRtlCol(_value); - - property NormAutoFit read ReadXmlChildNormAutoFit write WriteXmlChildNormAutoFit; - function ReadXmlChildNormAutoFit(); - function WriteXmlChildNormAutoFit(_value); - -public - // Attributes - XmlAttrAnchor; - XmlAttrVert; - XmlAttrLIns; - XmlAttrTIns; - XmlAttrRIns; - XmlAttrBIns; - XmlAttrRtlCol; - - // Children - XmlChildNormAutoFit; - -end; - -function BodyPr.Create();overload; -begin - self.Create(nil, "a", "bodyPr"); -end; - -function BodyPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function BodyPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BodyPr.Init();override; -begin - self.XmlAttrAnchor := new OpenXmlAttribute(nil, "anchor", nil); - self.XmlAttrVert := new OpenXmlAttribute(nil, "vert", nil); - self.XmlAttrLIns := new OpenXmlAttribute(nil, "lIns", nil); - self.XmlAttrTIns := new OpenXmlAttribute(nil, "tIns", nil); - self.XmlAttrRIns := new OpenXmlAttribute(nil, "rIns", nil); - self.XmlAttrBIns := new OpenXmlAttribute(nil, "bIns", nil); - self.XmlAttrRtlCol := new OpenXmlAttribute(nil, "rtlCol", nil); - self.XmlChildNormAutoFit := new OpenXmlEmpty(self, self.Prefix, "normAutofit"); -end; - -function BodyPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrAnchor, - self.XmlAttrVert, - self.XmlAttrLIns, - self.XmlAttrTIns, - self.XmlAttrRIns, - self.XmlAttrBIns, - self.XmlAttrRtlCol, - ); -end; - -function BodyPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.XmlChildNormAutoFit, - ); - sorted_child_ := array( - "": -1, - self.XmlChildNormAutoFit.ElementName: 0, - ); -end; - -function BodyPr.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; - 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 BodyPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrAnchor.Value) then - self.XmlAttrAnchor.Value := _obj.XmlAttrAnchor.Value; - if not ifnil(_obj.XmlAttrVert.Value) then - self.XmlAttrVert.Value := _obj.XmlAttrVert.Value; - if not ifnil(_obj.XmlAttrLIns.Value) then - self.XmlAttrLIns.Value := _obj.XmlAttrLIns.Value; - if not ifnil(_obj.XmlAttrTIns.Value) then - self.XmlAttrTIns.Value := _obj.XmlAttrTIns.Value; - if not ifnil(_obj.XmlAttrRIns.Value) then - self.XmlAttrRIns.Value := _obj.XmlAttrRIns.Value; - if not ifnil(_obj.XmlAttrBIns.Value) then - self.XmlAttrBIns.Value := _obj.XmlAttrBIns.Value; - if not ifnil(_obj.XmlAttrRtlCol.Value) then - self.XmlAttrRtlCol.Value := _obj.XmlAttrRtlCol.Value; - self.XmlChildNormAutoFit.Copy(_obj.XmlChildNormAutoFit); -end; - -function BodyPr.ReadXmlAttrAnchor(); -begin - return self.XmlAttrAnchor.Value; -end; - -function BodyPr.WriteXmlAttrAnchor(_value); -begin - self.XmlAttrAnchor.Value := _value; -end; - -function BodyPr.ReadXmlAttrVert(); -begin - return self.XmlAttrVert.Value; -end; - -function BodyPr.WriteXmlAttrVert(_value); -begin - self.XmlAttrVert.Value := _value; -end; - -function BodyPr.ReadXmlAttrLIns(); -begin - return self.XmlAttrLIns.Value; -end; - -function BodyPr.WriteXmlAttrLIns(_value); -begin - self.XmlAttrLIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrTIns(); -begin - return self.XmlAttrTIns.Value; -end; - -function BodyPr.WriteXmlAttrTIns(_value); -begin - self.XmlAttrTIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrRIns(); -begin - return self.XmlAttrRIns.Value; -end; - -function BodyPr.WriteXmlAttrRIns(_value); -begin - self.XmlAttrRIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrBIns(); -begin - return self.XmlAttrBIns.Value; -end; - -function BodyPr.WriteXmlAttrBIns(_value); -begin - self.XmlAttrBIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrRtlCol(); -begin - return self.XmlAttrRtlCol.Value; -end; - -function BodyPr.WriteXmlAttrRtlCol(_value); -begin - self.XmlAttrRtlCol.Value := _value; -end; - -function BodyPr.ReadXmlChildNormAutoFit(); -begin - return ifnil(self.XmlChildNormAutoFit.Value) ? false : true; -end; - -function BodyPr.WriteXmlChildNormAutoFit(_value); -begin - self.XmlChildNormAutoFit.Value := _value; -end; diff --git a/autoclass/pptx/BuChar@PPTX.tsf b/autoclass/pptx/BuChar@PPTX.tsf deleted file mode 100644 index 2aca28d..0000000 --- a/autoclass/pptx/BuChar@PPTX.tsf +++ /dev/null @@ -1,81 +0,0 @@ -type BuChar = 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 Char read ReadXmlAttrChar write WriteXmlAttrChar; - function ReadXmlAttrChar(); - function WriteXmlAttrChar(_value); - -public - // Attributes - XmlAttrChar; - - // Children - -end; - -function BuChar.Create();overload; -begin - self.Create(nil, "a", "buChar"); -end; - -function BuChar.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function BuChar.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BuChar.Init();override; -begin - self.XmlAttrChar := new OpenXmlAttribute(nil, "char", nil); -end; - -function BuChar.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrChar, - ); -end; - -function BuChar.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function BuChar.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 BuChar.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrChar.Value) then - self.XmlAttrChar.Value := _obj.XmlAttrChar.Value; -end; - -function BuChar.ReadXmlAttrChar(); -begin - return self.XmlAttrChar.Value; -end; - -function BuChar.WriteXmlAttrChar(_value); -begin - self.XmlAttrChar.Value := _value; -end; diff --git a/autoclass/pptx/BuFont@PPTX.tsf b/autoclass/pptx/BuFont@PPTX.tsf deleted file mode 100644 index 0f6c867..0000000 --- a/autoclass/pptx/BuFont@PPTX.tsf +++ /dev/null @@ -1,135 +0,0 @@ -type BuFont = 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 Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; - property Panose read ReadXmlAttrPanose write WriteXmlAttrPanose; - property PitchFamily read ReadXmlAttrPitchFamily write WriteXmlAttrPitchFamily; - property Charset read ReadXmlAttrCharset write WriteXmlAttrCharset; - function ReadXmlAttrTypeface(); - function WriteXmlAttrTypeface(_value); - function ReadXmlAttrPanose(); - function WriteXmlAttrPanose(_value); - function ReadXmlAttrPitchFamily(); - function WriteXmlAttrPitchFamily(_value); - function ReadXmlAttrCharset(); - function WriteXmlAttrCharset(_value); - -public - // Attributes - XmlAttrTypeface; - XmlAttrPanose; - XmlAttrPitchFamily; - XmlAttrCharset; - - // Children - -end; - -function BuFont.Create();overload; -begin - self.Create(nil, "a", "buFont"); -end; - -function BuFont.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function BuFont.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BuFont.Init();override; -begin - self.XmlAttrTypeface := new OpenXmlAttribute(nil, "typeface", nil); - self.XmlAttrPanose := new OpenXmlAttribute(nil, "panose", nil); - self.XmlAttrPitchFamily := new OpenXmlAttribute(nil, "pitchFamily", nil); - self.XmlAttrCharset := new OpenXmlAttribute(nil, "charset", nil); -end; - -function BuFont.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrTypeface, - self.XmlAttrPanose, - self.XmlAttrPitchFamily, - self.XmlAttrCharset, - ); -end; - -function BuFont.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function BuFont.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 BuFont.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrTypeface.Value) then - self.XmlAttrTypeface.Value := _obj.XmlAttrTypeface.Value; - if not ifnil(_obj.XmlAttrPanose.Value) then - self.XmlAttrPanose.Value := _obj.XmlAttrPanose.Value; - if not ifnil(_obj.XmlAttrPitchFamily.Value) then - self.XmlAttrPitchFamily.Value := _obj.XmlAttrPitchFamily.Value; - if not ifnil(_obj.XmlAttrCharset.Value) then - self.XmlAttrCharset.Value := _obj.XmlAttrCharset.Value; -end; - -function BuFont.ReadXmlAttrTypeface(); -begin - return self.XmlAttrTypeface.Value; -end; - -function BuFont.WriteXmlAttrTypeface(_value); -begin - self.XmlAttrTypeface.Value := _value; -end; - -function BuFont.ReadXmlAttrPanose(); -begin - return self.XmlAttrPanose.Value; -end; - -function BuFont.WriteXmlAttrPanose(_value); -begin - self.XmlAttrPanose.Value := _value; -end; - -function BuFont.ReadXmlAttrPitchFamily(); -begin - return self.XmlAttrPitchFamily.Value; -end; - -function BuFont.WriteXmlAttrPitchFamily(_value); -begin - self.XmlAttrPitchFamily.Value := _value; -end; - -function BuFont.ReadXmlAttrCharset(); -begin - return self.XmlAttrCharset.Value; -end; - -function BuFont.WriteXmlAttrCharset(_value); -begin - self.XmlAttrCharset.Value := _value; -end; diff --git a/autoclass/pptx/CNvPr@PPTX.tsf b/autoclass/pptx/CNvPr@PPTX.tsf deleted file mode 100644 index 2db3ab3..0000000 --- a/autoclass/pptx/CNvPr@PPTX.tsf +++ /dev/null @@ -1,135 +0,0 @@ -type CNvPr = 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 Id read ReadXmlAttrId write WriteXmlAttrId; - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrId; - XmlAttrName; - - // Children - ExtLst; - -end; - -function CNvPr.Create();overload; -begin - self.Create(nil, "p", "cNvPr"); -end; - -function CNvPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CNvPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvPr.Init();override; -begin - self.XmlAttrId := new OpenXmlAttribute(nil, "id", nil); - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.ExtLst := new ExtLst(self, "a", "extLst"); -end; - -function CNvPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrId, - self.XmlAttrName, - ); -end; - -function CNvPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.ExtLst, - ); - sorted_child_ := array( - "": -1, - self.ExtLst.ElementName: 0, - ); -end; - -function CNvPr.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; - 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 CNvPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrId.Value) then - self.XmlAttrId.Value := _obj.XmlAttrId.Value; - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.ExtLst.Copy(_obj.ExtLst); -end; - -function CNvPr.ReadXmlAttrId(); -begin - return self.XmlAttrId.Value; -end; - -function CNvPr.WriteXmlAttrId(_value); -begin - self.XmlAttrId.Value := _value; -end; - -function CNvPr.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function CNvPr.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/CNvSpPr@PPTX.tsf b/autoclass/pptx/CNvSpPr@PPTX.tsf deleted file mode 100644 index 9c56ef3..0000000 --- a/autoclass/pptx/CNvSpPr@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type CNvSpPr = 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 TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox; - function ReadXmlAttrTxBox(); - function WriteXmlAttrTxBox(_value); - -public - // Attributes - XmlAttrTxBox; - - // Children - SpLocks; - -end; - -function CNvSpPr.Create();overload; -begin - self.Create(nil, "p", "cNvSpPr"); -end; - -function CNvSpPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CNvSpPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvSpPr.Init();override; -begin - self.XmlAttrTxBox := new OpenXmlAttribute(nil, "txBox", nil); - self.SpLocks := new SpLocks(self, "a", "spLocks"); -end; - -function CNvSpPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrTxBox, - ); -end; - -function CNvSpPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.SpLocks, - ); - sorted_child_ := array( - "": -1, - self.SpLocks.ElementName: 0, - ); -end; - -function CNvSpPr.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; - 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 CNvSpPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrTxBox.Value) then - self.XmlAttrTxBox.Value := _obj.XmlAttrTxBox.Value; - self.SpLocks.Copy(_obj.SpLocks); -end; - -function CNvSpPr.ReadXmlAttrTxBox(); -begin - return self.XmlAttrTxBox.Value; -end; - -function CNvSpPr.WriteXmlAttrTxBox(_value); -begin - self.XmlAttrTxBox.Value := _value; -end; diff --git a/autoclass/pptx/CSld@PPTX.tsf b/autoclass/pptx/CSld@PPTX.tsf deleted file mode 100644 index e5f2cbf..0000000 --- a/autoclass/pptx/CSld@PPTX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type CSld = 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 Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrName; - - // Children - Bg; - SpTree; - ExtLst; - -end; - -function CSld.Create();overload; -begin - self.Create(nil, "p", "cSld"); -end; - -function CSld.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CSld.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CSld.Init();override; -begin - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.Bg := new Bg(self, self.Prefix, "bg"); - self.SpTree := new SpTree(self, self.Prefix, "spTree"); - self.ExtLst := new ExtLst(self, self.Prefix, "extLst"); -end; - -function CSld.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrName, - ); -end; - -function CSld.InitChildren();override; -begin - child_elements_ := array( - 0: self.Bg, - 1: self.SpTree, - 2: self.ExtLst, - ); - sorted_child_ := array( - "": -1, - self.Bg.ElementName: 0, - self.SpTree.ElementName: 1, - self.ExtLst.ElementName: 2, - ); -end; - -function CSld.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; - 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 CSld.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.Bg.Copy(_obj.Bg); - self.SpTree.Copy(_obj.SpTree); - self.ExtLst.Copy(_obj.ExtLst); -end; - -function CSld.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function CSld.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/CSldViewPr@PPTX.tsf b/autoclass/pptx/CSldViewPr@PPTX.tsf deleted file mode 100644 index df28621..0000000 --- a/autoclass/pptx/CSldViewPr@PPTX.tsf +++ /dev/null @@ -1,136 +0,0 @@ -type CSldViewPr = 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 SnapToGrid read ReadXmlAttrSnapToGrid write WriteXmlAttrSnapToGrid; - function ReadXmlAttrSnapToGrid(); - function WriteXmlAttrSnapToGrid(_value); - - property GuideLst read ReadXmlChildGuideLst write WriteXmlChildGuideLst; - function ReadXmlChildGuideLst(); - function WriteXmlChildGuideLst(_value); - -public - // Attributes - XmlAttrSnapToGrid; - - // Children - CViewPr; - XmlChildGuideLst; - -end; - -function CSldViewPr.Create();overload; -begin - self.Create(nil, "p", "cSldViewPr"); -end; - -function CSldViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CSldViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CSldViewPr.Init();override; -begin - self.XmlAttrSnapToGrid := new OpenXmlAttribute(nil, "snapToGrid", nil); - self.CViewPr := new CViewPr(self, self.Prefix, "cViewPr"); - self.XmlChildGuideLst := new OpenXmlEmpty(self, self.Prefix, "guideLst"); -end; - -function CSldViewPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrSnapToGrid, - ); -end; - -function CSldViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.CViewPr, - 1: self.XmlChildGuideLst, - ); - sorted_child_ := array( - "": -1, - self.CViewPr.ElementName: 0, - self.XmlChildGuideLst.ElementName: 1, - ); -end; - -function CSldViewPr.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; - 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 CSldViewPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrSnapToGrid.Value) then - self.XmlAttrSnapToGrid.Value := _obj.XmlAttrSnapToGrid.Value; - self.CViewPr.Copy(_obj.CViewPr); - self.XmlChildGuideLst.Copy(_obj.XmlChildGuideLst); -end; - -function CSldViewPr.ReadXmlAttrSnapToGrid(); -begin - return self.XmlAttrSnapToGrid.Value; -end; - -function CSldViewPr.WriteXmlAttrSnapToGrid(_value); -begin - self.XmlAttrSnapToGrid.Value := _value; -end; - -function CSldViewPr.ReadXmlChildGuideLst(); -begin - return ifnil(self.XmlChildGuideLst.Value) ? false : true; -end; - -function CSldViewPr.WriteXmlChildGuideLst(_value); -begin - self.XmlChildGuideLst.Value := _value; -end; diff --git a/autoclass/pptx/CViewPr@PPTX.tsf b/autoclass/pptx/CViewPr@PPTX.tsf deleted file mode 100644 index b66e738..0000000 --- a/autoclass/pptx/CViewPr@PPTX.tsf +++ /dev/null @@ -1,122 +0,0 @@ -type CViewPr = 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 VarScale read ReadXmlAttrVarScale write WriteXmlAttrVarScale; - function ReadXmlAttrVarScale(); - function WriteXmlAttrVarScale(_value); - -public - // Attributes - XmlAttrVarScale; - - // Children - Scale; - Origin; - -end; - -function CViewPr.Create();overload; -begin - self.Create(nil, "p", "cViewPr"); -end; - -function CViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CViewPr.Init();override; -begin - self.XmlAttrVarScale := new OpenXmlAttribute(nil, "varScale", nil); - self.Scale := new Scale(self, self.Prefix, "scale"); - self.Origin := new XY(self, self.Prefix, "origin"); -end; - -function CViewPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVarScale, - ); -end; - -function CViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.Scale, - 1: self.Origin, - ); - sorted_child_ := array( - "": -1, - self.Scale.ElementName: 0, - self.Origin.ElementName: 1, - ); -end; - -function CViewPr.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; - 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 CViewPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVarScale.Value) then - self.XmlAttrVarScale.Value := _obj.XmlAttrVarScale.Value; - self.Scale.Copy(_obj.Scale); - self.Origin.Copy(_obj.Origin); -end; - -function CViewPr.ReadXmlAttrVarScale(); -begin - return self.XmlAttrVarScale.Value; -end; - -function CViewPr.WriteXmlAttrVarScale(_value); -begin - self.XmlAttrVarScale.Value := _value; -end; diff --git a/autoclass/pptx/CXY@PPTX.tsf b/autoclass/pptx/CXY@PPTX.tsf deleted file mode 100644 index 0676e7e..0000000 --- a/autoclass/pptx/CXY@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -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; diff --git a/autoclass/pptx/Clr1@PPTX.tsf b/autoclass/pptx/Clr1@PPTX.tsf deleted file mode 100644 index 0c2ec32..0000000 --- a/autoclass/pptx/Clr1@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type Clr1 = 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; - -public - // Attributes - - // Children - SysClr; - -end; - -function Clr1.Create();overload; -begin - self.Create(nil, "a", ""); -end; - -function Clr1.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Clr1.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Clr1.Init();override; -begin - self.SysClr := new SysClr(self, self.Prefix, "sysClr"); -end; - -function Clr1.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Clr1.InitChildren();override; -begin - child_elements_ := array( - 0: self.SysClr, - ); - sorted_child_ := array( - "": -1, - self.SysClr.ElementName: 0, - ); -end; - -function Clr1.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; - 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 Clr1.Copy(_obj);override; -begin - self.SysClr.Copy(_obj.SysClr); -end; diff --git a/autoclass/pptx/Clr2@PPTX.tsf b/autoclass/pptx/Clr2@PPTX.tsf deleted file mode 100644 index 8e5d20b..0000000 --- a/autoclass/pptx/Clr2@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type Clr2 = 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; - -public - // Attributes - - // Children - SrgbClr; - -end; - -function Clr2.Create();overload; -begin - self.Create(nil, "a", ""); -end; - -function Clr2.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Clr2.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Clr2.Init();override; -begin - self.SrgbClr := new SrgbClr(self, self.Prefix, "srgbClr"); -end; - -function Clr2.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Clr2.InitChildren();override; -begin - child_elements_ := array( - 0: self.SrgbClr, - ); - sorted_child_ := array( - "": -1, - self.SrgbClr.ElementName: 0, - ); -end; - -function Clr2.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; - 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 Clr2.Copy(_obj);override; -begin - self.SrgbClr.Copy(_obj.SrgbClr); -end; diff --git a/autoclass/pptx/ClrMap@PPTX.tsf b/autoclass/pptx/ClrMap@PPTX.tsf deleted file mode 100644 index 7b73c22..0000000 --- a/autoclass/pptx/ClrMap@PPTX.tsf +++ /dev/null @@ -1,189 +0,0 @@ -type ClrMap = 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 Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1; - property Tx1 read ReadXmlAttrTx1 write WriteXmlAttrTx1; - property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2; - property Tx2 read ReadXmlAttrTx2 write WriteXmlAttrTx2; - property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1; - property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2; - property FolHlink read ReadXmlAttrFolHlink write WriteXmlAttrFolHlink; - function ReadXmlAttrBg1(); - function WriteXmlAttrBg1(_value); - function ReadXmlAttrTx1(); - function WriteXmlAttrTx1(_value); - function ReadXmlAttrBg2(); - function WriteXmlAttrBg2(_value); - function ReadXmlAttrTx2(); - function WriteXmlAttrTx2(_value); - function ReadXmlAttrAccent1(); - function WriteXmlAttrAccent1(_value); - function ReadXmlAttrAccent2(); - function WriteXmlAttrAccent2(_value); - function ReadXmlAttrFolHlink(); - function WriteXmlAttrFolHlink(_value); - -public - // Attributes - XmlAttrBg1; - XmlAttrTx1; - XmlAttrBg2; - XmlAttrTx2; - XmlAttrAccent1; - XmlAttrAccent2; - XmlAttrFolHlink; - - // Children - -end; - -function ClrMap.Create();overload; -begin - self.Create(nil, "p", "clrMap"); -end; - -function ClrMap.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ClrMap.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ClrMap.Init();override; -begin - self.XmlAttrBg1 := new OpenXmlAttribute(nil, "bg1", nil); - self.XmlAttrTx1 := new OpenXmlAttribute(nil, "tx1", nil); - self.XmlAttrBg2 := new OpenXmlAttribute(nil, "bg2", nil); - self.XmlAttrTx2 := new OpenXmlAttribute(nil, "tx2", nil); - self.XmlAttrAccent1 := new OpenXmlAttribute(nil, "accent1", nil); - self.XmlAttrAccent2 := new OpenXmlAttribute(nil, "accent2", nil); - self.XmlAttrFolHlink := new OpenXmlAttribute(nil, "folHlink", nil); -end; - -function ClrMap.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrBg1, - self.XmlAttrTx1, - self.XmlAttrBg2, - self.XmlAttrTx2, - self.XmlAttrAccent1, - self.XmlAttrAccent2, - self.XmlAttrFolHlink, - ); -end; - -function ClrMap.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function ClrMap.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 ClrMap.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrBg1.Value) then - self.XmlAttrBg1.Value := _obj.XmlAttrBg1.Value; - if not ifnil(_obj.XmlAttrTx1.Value) then - self.XmlAttrTx1.Value := _obj.XmlAttrTx1.Value; - if not ifnil(_obj.XmlAttrBg2.Value) then - self.XmlAttrBg2.Value := _obj.XmlAttrBg2.Value; - if not ifnil(_obj.XmlAttrTx2.Value) then - self.XmlAttrTx2.Value := _obj.XmlAttrTx2.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.XmlAttrFolHlink.Value) then - self.XmlAttrFolHlink.Value := _obj.XmlAttrFolHlink.Value; -end; - -function ClrMap.ReadXmlAttrBg1(); -begin - return self.XmlAttrBg1.Value; -end; - -function ClrMap.WriteXmlAttrBg1(_value); -begin - self.XmlAttrBg1.Value := _value; -end; - -function ClrMap.ReadXmlAttrTx1(); -begin - return self.XmlAttrTx1.Value; -end; - -function ClrMap.WriteXmlAttrTx1(_value); -begin - self.XmlAttrTx1.Value := _value; -end; - -function ClrMap.ReadXmlAttrBg2(); -begin - return self.XmlAttrBg2.Value; -end; - -function ClrMap.WriteXmlAttrBg2(_value); -begin - self.XmlAttrBg2.Value := _value; -end; - -function ClrMap.ReadXmlAttrTx2(); -begin - return self.XmlAttrTx2.Value; -end; - -function ClrMap.WriteXmlAttrTx2(_value); -begin - self.XmlAttrTx2.Value := _value; -end; - -function ClrMap.ReadXmlAttrAccent1(); -begin - return self.XmlAttrAccent1.Value; -end; - -function ClrMap.WriteXmlAttrAccent1(_value); -begin - self.XmlAttrAccent1.Value := _value; -end; - -function ClrMap.ReadXmlAttrAccent2(); -begin - return self.XmlAttrAccent2.Value; -end; - -function ClrMap.WriteXmlAttrAccent2(_value); -begin - self.XmlAttrAccent2.Value := _value; -end; - -function ClrMap.ReadXmlAttrFolHlink(); -begin - return self.XmlAttrFolHlink.Value; -end; - -function ClrMap.WriteXmlAttrFolHlink(_value); -begin - self.XmlAttrFolHlink.Value := _value; -end; diff --git a/autoclass/pptx/ClrMapOvr@PPTX.tsf b/autoclass/pptx/ClrMapOvr@PPTX.tsf deleted file mode 100644 index b48980d..0000000 --- a/autoclass/pptx/ClrMapOvr@PPTX.tsf +++ /dev/null @@ -1,112 +0,0 @@ -type ClrMapOvr = 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 MasterClrMapping read ReadXmlChildMasterClrMapping write WriteXmlChildMasterClrMapping; - function ReadXmlChildMasterClrMapping(); - function WriteXmlChildMasterClrMapping(_value); - -public - // Attributes - - // Children - XmlChildMasterClrMapping; - -end; - -function ClrMapOvr.Create();overload; -begin - self.Create(nil, "p", "clrMapOvr"); -end; - -function ClrMapOvr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ClrMapOvr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ClrMapOvr.Init();override; -begin - self.XmlChildMasterClrMapping := new OpenXmlEmpty(self, "a", "masterClrMapping"); -end; - -function ClrMapOvr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function ClrMapOvr.InitChildren();override; -begin - child_elements_ := array( - 0: self.XmlChildMasterClrMapping, - ); - sorted_child_ := array( - "": -1, - self.XmlChildMasterClrMapping.ElementName: 0, - ); -end; - -function ClrMapOvr.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; - 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 ClrMapOvr.Copy(_obj);override; -begin - self.XmlChildMasterClrMapping.Copy(_obj.XmlChildMasterClrMapping); -end; - -function ClrMapOvr.ReadXmlChildMasterClrMapping(); -begin - return ifnil(self.XmlChildMasterClrMapping.Value) ? false : true; -end; - -function ClrMapOvr.WriteXmlChildMasterClrMapping(_value); -begin - self.XmlChildMasterClrMapping.Value := _value; -end; diff --git a/autoclass/pptx/ClrScheme@PPTX.tsf b/autoclass/pptx/ClrScheme@PPTX.tsf deleted file mode 100644 index ab009fb..0000000 --- a/autoclass/pptx/ClrScheme@PPTX.tsf +++ /dev/null @@ -1,172 +0,0 @@ -type ClrScheme = 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 Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrName; - - // Children - Dk1; - Lt1; - Dk2; - Lt2; - Accent1; - Accent2; - Accent3; - Accent4; - Accent5; - Accent6; - Hlink; - FolHlink; - -end; - -function ClrScheme.Create();overload; -begin - self.Create(nil, "a", "clrsCheme"); -end; - -function ClrScheme.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ClrScheme.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ClrScheme.Init();override; -begin - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.Dk1 := new Clr1(self, self.Prefix, "dk1"); - self.Lt1 := new Clr1(self, self.Prefix, "lt1"); - self.Dk2 := new Clr2(self, self.Prefix, "dk2"); - self.Lt2 := new Clr2(self, self.Prefix, "lt2"); - self.Accent1 := new Clr2(self, self.Prefix, "accent1"); - self.Accent2 := new Clr2(self, self.Prefix, "accent2"); - self.Accent3 := new Clr2(self, self.Prefix, "accent3"); - self.Accent4 := new Clr2(self, self.Prefix, "accent4"); - self.Accent5 := new Clr2(self, self.Prefix, "accent5"); - self.Accent6 := new Clr2(self, self.Prefix, "accent6"); - self.Hlink := new Clr2(self, self.Prefix, "hlink"); - self.FolHlink := new Clr2(self, self.Prefix, "folHlink"); -end; - -function ClrScheme.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrName, - ); -end; - -function ClrScheme.InitChildren();override; -begin - child_elements_ := array( - 0: self.Dk1, - 1: self.Lt1, - 2: self.Dk2, - 3: self.Lt2, - 4: self.Accent1, - 5: self.Accent2, - 6: self.Accent3, - 7: self.Accent4, - 8: self.Accent5, - 9: self.Accent6, - 10: self.Hlink, - 11: self.FolHlink, - ); - sorted_child_ := array( - "": -1, - self.Dk1.ElementName: 0, - self.Lt1.ElementName: 1, - self.Dk2.ElementName: 2, - self.Lt2.ElementName: 3, - self.Accent1.ElementName: 4, - self.Accent2.ElementName: 5, - self.Accent3.ElementName: 6, - self.Accent4.ElementName: 7, - self.Accent5.ElementName: 8, - self.Accent6.ElementName: 9, - self.Hlink.ElementName: 10, - self.FolHlink.ElementName: 11, - ); -end; - -function ClrScheme.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; - 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 ClrScheme.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.Dk1.Copy(_obj.Dk1); - self.Lt1.Copy(_obj.Lt1); - self.Dk2.Copy(_obj.Dk2); - self.Lt2.Copy(_obj.Lt2); - self.Accent1.Copy(_obj.Accent1); - self.Accent2.Copy(_obj.Accent2); - self.Accent3.Copy(_obj.Accent3); - self.Accent4.Copy(_obj.Accent4); - self.Accent5.Copy(_obj.Accent5); - self.Accent6.Copy(_obj.Accent6); - self.Hlink.Copy(_obj.Hlink); - self.FolHlink.Copy(_obj.FolHlink); -end; - -function ClrScheme.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function ClrScheme.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/CoreProperties@PPTX.tsf b/autoclass/pptx/CoreProperties@PPTX.tsf deleted file mode 100644 index 2d915f1..0000000 --- a/autoclass/pptx/CoreProperties@PPTX.tsf +++ /dev/null @@ -1,214 +0,0 @@ -type CoreProperties = 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 XmlnsCp read ReadXmlAttrXmlnsCp write WriteXmlAttrXmlnsCp; - property XmlnsDc read ReadXmlAttrXmlnsDc write WriteXmlAttrXmlnsDc; - property XmlnsDcterms read ReadXmlAttrXmlnsDcterms write WriteXmlAttrXmlnsDcterms; - property XmlnsDcmitype read ReadXmlAttrXmlnsDcmitype write WriteXmlAttrXmlnsDcmitype; - property XmlnsXsi read ReadXmlAttrXmlnsXsi write WriteXmlAttrXmlnsXsi; - function ReadXmlAttrXmlnsCp(); - function WriteXmlAttrXmlnsCp(_value); - function ReadXmlAttrXmlnsDc(); - function WriteXmlAttrXmlnsDc(_value); - function ReadXmlAttrXmlnsDcterms(); - function WriteXmlAttrXmlnsDcterms(_value); - function ReadXmlAttrXmlnsDcmitype(); - function WriteXmlAttrXmlnsDcmitype(_value); - function ReadXmlAttrXmlnsXsi(); - function WriteXmlAttrXmlnsXsi(_value); - -public - // Attributes - XmlAttrXmlnsCp; - XmlAttrXmlnsDc; - XmlAttrXmlnsDcterms; - XmlAttrXmlnsDcmitype; - XmlAttrXmlnsXsi; - - // Children - Title; - Creator; - LastModifiedBy; - Revision; - Created; - Modified; - -end; - -function CoreProperties.Create();overload; -begin - self.Create(nil, "cp", "coreProperties"); -end; - -function CoreProperties.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function CoreProperties.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CoreProperties.Init();override; -begin - self.XmlAttrXmlnsCp := new OpenXmlAttribute("xmlns", "cp", "http://schemas.openxmlformats.org/package/2006/metadata/core-properties"); - self.XmlAttrXmlnsDc := new OpenXmlAttribute("xmlns", "dc", "http://purl.org/dc/elements/1.1/"); - self.XmlAttrXmlnsDcterms := new OpenXmlAttribute("xmlns", "dcterms", "http://purl.org/dc/terms/"); - self.XmlAttrXmlnsDcmitype := new OpenXmlAttribute("xmlns", "dcmitype", "http://purl.org/dc/dcmitype/"); - self.XmlAttrXmlnsXsi := new OpenXmlAttribute("xmlns", "xsi", "http://www.w3.org/2001/XMLSchema-instance"); - self.Title := new OpenXmlPcdata(self, "dc", "title"); - self.Creator := new OpenXmlPcdata(self, "dc", "creator"); - self.LastModifiedBy := new OpenXmlPcdata(self, "cp", "lastModifiedBy"); - self.Revision := new OpenXmlPcdata(self, "cp", "revision"); - self.Created := new Created(self, "dcterms", "created"); - self.Modified := new Modified(self, "dcterms", "modified"); -end; - -function CoreProperties.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsCp, - self.XmlAttrXmlnsDc, - self.XmlAttrXmlnsDcterms, - self.XmlAttrXmlnsDcmitype, - self.XmlAttrXmlnsXsi, - ); -end; - -function CoreProperties.InitChildren();override; -begin - child_elements_ := array( - 0: self.Title, - 1: self.Creator, - 2: self.LastModifiedBy, - 3: self.Revision, - 4: self.Created, - 5: self.Modified, - ); - sorted_child_ := array( - "": -1, - self.Title.ElementName: 0, - self.Creator.ElementName: 1, - self.LastModifiedBy.ElementName: 2, - self.Revision.ElementName: 3, - self.Created.ElementName: 4, - self.Modified.ElementName: 5, - ); -end; - -function CoreProperties.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; - 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 CoreProperties.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsCp.Value) then - self.XmlAttrXmlnsCp.Value := _obj.XmlAttrXmlnsCp.Value; - if not ifnil(_obj.XmlAttrXmlnsDc.Value) then - self.XmlAttrXmlnsDc.Value := _obj.XmlAttrXmlnsDc.Value; - if not ifnil(_obj.XmlAttrXmlnsDcterms.Value) then - self.XmlAttrXmlnsDcterms.Value := _obj.XmlAttrXmlnsDcterms.Value; - if not ifnil(_obj.XmlAttrXmlnsDcmitype.Value) then - self.XmlAttrXmlnsDcmitype.Value := _obj.XmlAttrXmlnsDcmitype.Value; - if not ifnil(_obj.XmlAttrXmlnsXsi.Value) then - self.XmlAttrXmlnsXsi.Value := _obj.XmlAttrXmlnsXsi.Value; - self.Title.Copy(_obj.Title); - self.Creator.Copy(_obj.Creator); - self.LastModifiedBy.Copy(_obj.LastModifiedBy); - self.Revision.Copy(_obj.Revision); - self.Created.Copy(_obj.Created); - self.Modified.Copy(_obj.Modified); -end; - -function CoreProperties.ReadXmlAttrXmlnsCp(); -begin - return self.XmlAttrXmlnsCp.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsCp(_value); -begin - self.XmlAttrXmlnsCp.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDc(); -begin - return self.XmlAttrXmlnsDc.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDc(_value); -begin - self.XmlAttrXmlnsDc.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDcterms(); -begin - return self.XmlAttrXmlnsDcterms.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDcterms(_value); -begin - self.XmlAttrXmlnsDcterms.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDcmitype(); -begin - return self.XmlAttrXmlnsDcmitype.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDcmitype(_value); -begin - self.XmlAttrXmlnsDcmitype.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsXsi(); -begin - return self.XmlAttrXmlnsXsi.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsXsi(_value); -begin - self.XmlAttrXmlnsXsi.Value := _value; -end; diff --git a/autoclass/pptx/Created@PPTX.tsf b/autoclass/pptx/Created@PPTX.tsf deleted file mode 100644 index 986ab0b..0000000 --- a/autoclass/pptx/Created@PPTX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type Created = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node);overload; - function Create(_parent, _prefix, _local_name);overload; - function Init();override; - function InitAttributes();override; - function InitNode(_node);override; - function Copy(_obj);override; - - property XsiType read ReadXmlAttrXsiType write WriteXmlAttrXsiType; - function ReadXmlAttrXsiType(); - function WriteXmlAttrXsiType(_value); - -public - // Attributes - XmlAttrXsiType; - - // Children - -end; - -function Created.Create();overload; -begin - self.Create(nil, "dcterms", "created"); -end; - -function Created.Create(_node);overload; -begin - class(OpenXmlPcdata).Create(_node); -end; - -function Created.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function Created.Init();override; -begin - self.XmlAttrXsiType := new OpenXmlAttribute("xsi", "type", nil); -end; - -function Created.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXsiType, - ); -end; - -function Created.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 Created.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXsiType.Value) then - self.XmlAttrXsiType.Value := _obj.XmlAttrXsiType.Value; -end; - -function Created.ReadXmlAttrXsiType(); -begin - return self.XmlAttrXsiType.Value; -end; - -function Created.WriteXmlAttrXsiType(_value); -begin - self.XmlAttrXsiType.Value := _value; -end; diff --git a/autoclass/pptx/DefPPr@PPTX.tsf b/autoclass/pptx/DefPPr@PPTX.tsf deleted file mode 100644 index bbfbea7..0000000 --- a/autoclass/pptx/DefPPr@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type DefPPr = 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; - -public - // Attributes - - // Children - DefRPr; - -end; - -function DefPPr.Create();overload; -begin - self.Create(nil, nil, "defPPr"); -end; - -function DefPPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function DefPPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DefPPr.Init();override; -begin - self.DefRPr := new DefRPr(self, self.Prefix, "defRPr"); -end; - -function DefPPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function DefPPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.DefRPr, - ); - sorted_child_ := array( - "": -1, - self.DefRPr.ElementName: 0, - ); -end; - -function DefPPr.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; - 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 DefPPr.Copy(_obj);override; -begin - self.DefRPr.Copy(_obj.DefRPr); -end; diff --git a/autoclass/pptx/DefRPr@PPTX.tsf b/autoclass/pptx/DefRPr@PPTX.tsf deleted file mode 100644 index 0b23cb9..0000000 --- a/autoclass/pptx/DefRPr@PPTX.tsf +++ /dev/null @@ -1,168 +0,0 @@ -type DefRPr = 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 Lang read ReadXmlAttrLang write WriteXmlAttrLang; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - property Kern read ReadXmlAttrKern write WriteXmlAttrKern; - function ReadXmlAttrLang(); - function WriteXmlAttrLang(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - function ReadXmlAttrKern(); - function WriteXmlAttrKern(_value); - -public - // Attributes - XmlAttrLang; - XmlAttrSz; - XmlAttrKern; - - // Children - SolidFill; - Latin; - Ea; - Cs; - -end; - -function DefRPr.Create();overload; -begin - self.Create(nil, "a", "defRPr"); -end; - -function DefRPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function DefRPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DefRPr.Init();override; -begin - self.XmlAttrLang := new OpenXmlAttribute(nil, "lang", nil); - self.XmlAttrSz := new OpenXmlAttribute(nil, "sz", nil); - self.XmlAttrKern := new OpenXmlAttribute(nil, "kern", nil); - self.SolidFill := new SolidFill(self, self.Prefix, "solidFill"); - self.Latin := new Latin(self, self.Prefix, "latin"); - self.Ea := new Latin(self, self.Prefix, "ea"); - self.Cs := new Latin(self, self.Prefix, "cs"); -end; - -function DefRPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrLang, - self.XmlAttrSz, - self.XmlAttrKern, - ); -end; - -function DefRPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.SolidFill, - 1: self.Latin, - 2: self.Ea, - 3: self.Cs, - ); - sorted_child_ := array( - "": -1, - self.SolidFill.ElementName: 0, - self.Latin.ElementName: 1, - self.Ea.ElementName: 2, - self.Cs.ElementName: 3, - ); -end; - -function DefRPr.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; - 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 DefRPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrLang.Value) then - self.XmlAttrLang.Value := _obj.XmlAttrLang.Value; - if not ifnil(_obj.XmlAttrSz.Value) then - self.XmlAttrSz.Value := _obj.XmlAttrSz.Value; - if not ifnil(_obj.XmlAttrKern.Value) then - self.XmlAttrKern.Value := _obj.XmlAttrKern.Value; - self.SolidFill.Copy(_obj.SolidFill); - self.Latin.Copy(_obj.Latin); - self.Ea.Copy(_obj.Ea); - self.Cs.Copy(_obj.Cs); -end; - -function DefRPr.ReadXmlAttrLang(); -begin - return self.XmlAttrLang.Value; -end; - -function DefRPr.WriteXmlAttrLang(_value); -begin - self.XmlAttrLang.Value := _value; -end; - -function DefRPr.ReadXmlAttrSz(); -begin - return self.XmlAttrSz.Value; -end; - -function DefRPr.WriteXmlAttrSz(_value); -begin - self.XmlAttrSz.Value := _value; -end; - -function DefRPr.ReadXmlAttrKern(); -begin - return self.XmlAttrKern.Value; -end; - -function DefRPr.WriteXmlAttrKern(_value); -begin - self.XmlAttrKern.Value := _value; -end; diff --git a/autoclass/pptx/Default@PPTX.tsf b/autoclass/pptx/Default@PPTX.tsf deleted file mode 100644 index 6a5a5bc..0000000 --- a/autoclass/pptx/Default@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type Default = 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 Extension read ReadXmlAttrExtension write WriteXmlAttrExtension; - property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; - function ReadXmlAttrExtension(); - function WriteXmlAttrExtension(_value); - function ReadXmlAttrContentType(); - function WriteXmlAttrContentType(_value); - -public - // Attributes - XmlAttrExtension; - XmlAttrContentType; - - // Children - -end; - -function Default.Create();overload; -begin - self.Create(nil, nil, "Default"); -end; - -function Default.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Default.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Default.Init();override; -begin - self.XmlAttrExtension := new OpenXmlAttribute(nil, "Extension", nil); - self.XmlAttrContentType := new OpenXmlAttribute(nil, "ContentType", nil); -end; - -function Default.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrExtension, - self.XmlAttrContentType, - ); -end; - -function Default.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Default.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 Default.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrExtension.Value) then - self.XmlAttrExtension.Value := _obj.XmlAttrExtension.Value; - if not ifnil(_obj.XmlAttrContentType.Value) then - self.XmlAttrContentType.Value := _obj.XmlAttrContentType.Value; -end; - -function Default.ReadXmlAttrExtension(); -begin - return self.XmlAttrExtension.Value; -end; - -function Default.WriteXmlAttrExtension(_value); -begin - self.XmlAttrExtension.Value := _value; -end; - -function Default.ReadXmlAttrContentType(); -begin - return self.XmlAttrContentType.Value; -end; - -function Default.WriteXmlAttrContentType(_value); -begin - self.XmlAttrContentType.Value := _value; -end; diff --git a/autoclass/pptx/DefaultTextStyle@PPTX.tsf b/autoclass/pptx/DefaultTextStyle@PPTX.tsf deleted file mode 100644 index 6c688e2..0000000 --- a/autoclass/pptx/DefaultTextStyle@PPTX.tsf +++ /dev/null @@ -1,143 +0,0 @@ -type DefaultTextStyle = 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; - -public - // Attributes - - // Children - DefPPr; - Lvl1PPr; - Lvl2PPr; - Lvl3PPr; - Lvl4PPr; - Lvl5PPr; - Lvl6PPr; - Lvl7PPr; - Lvl8PPr; - Lvl9PPr; - -end; - -function DefaultTextStyle.Create();overload; -begin - self.Create(nil, "p", "lstStyle"); -end; - -function DefaultTextStyle.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function DefaultTextStyle.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DefaultTextStyle.Init();override; -begin - self.DefPPr := new DefPPr(self, "a", "defPPr"); - self.Lvl1PPr := new LvlPPr(self, "a", "lvl1pPr"); - self.Lvl2PPr := new LvlPPr(self, "a", "lvl2pPr"); - self.Lvl3PPr := new LvlPPr(self, "a", "lvl3pPr"); - self.Lvl4PPr := new LvlPPr(self, "a", "lvl4pPr"); - self.Lvl5PPr := new LvlPPr(self, "a", "lvl5pPr"); - self.Lvl6PPr := new LvlPPr(self, "a", "lvl6pPr"); - self.Lvl7PPr := new LvlPPr(self, "a", "lvl7pPr"); - self.Lvl8PPr := new LvlPPr(self, "a", "lvl8pPr"); - self.Lvl9PPr := new LvlPPr(self, "a", "lvl9pPr"); -end; - -function DefaultTextStyle.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function DefaultTextStyle.InitChildren();override; -begin - child_elements_ := array( - 0: self.DefPPr, - 1: self.Lvl1PPr, - 2: self.Lvl2PPr, - 3: self.Lvl3PPr, - 4: self.Lvl4PPr, - 5: self.Lvl5PPr, - 6: self.Lvl6PPr, - 7: self.Lvl7PPr, - 8: self.Lvl8PPr, - 9: self.Lvl9PPr, - ); - sorted_child_ := array( - "": -1, - self.DefPPr.ElementName: 0, - self.Lvl1PPr.ElementName: 1, - self.Lvl2PPr.ElementName: 2, - self.Lvl3PPr.ElementName: 3, - self.Lvl4PPr.ElementName: 4, - self.Lvl5PPr.ElementName: 5, - self.Lvl6PPr.ElementName: 6, - self.Lvl7PPr.ElementName: 7, - self.Lvl8PPr.ElementName: 8, - self.Lvl9PPr.ElementName: 9, - ); -end; - -function DefaultTextStyle.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; - 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 DefaultTextStyle.Copy(_obj);override; -begin - self.DefPPr.Copy(_obj.DefPPr); - self.Lvl1PPr.Copy(_obj.Lvl1PPr); - self.Lvl2PPr.Copy(_obj.Lvl2PPr); - self.Lvl3PPr.Copy(_obj.Lvl3PPr); - self.Lvl4PPr.Copy(_obj.Lvl4PPr); - self.Lvl5PPr.Copy(_obj.Lvl5PPr); - self.Lvl6PPr.Copy(_obj.Lvl6PPr); - self.Lvl7PPr.Copy(_obj.Lvl7PPr); - self.Lvl8PPr.Copy(_obj.Lvl8PPr); - self.Lvl9PPr.Copy(_obj.Lvl9PPr); -end; diff --git a/autoclass/pptx/EffectLst@PPTX.tsf b/autoclass/pptx/EffectLst@PPTX.tsf deleted file mode 100644 index f73215a..0000000 --- a/autoclass/pptx/EffectLst@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type EffectLst = 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; - -public - // Attributes - - // Children - OuterShdw; - -end; - -function EffectLst.Create();overload; -begin - self.Create(nil, "a", "effectLst"); -end; - -function EffectLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function EffectLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectLst.Init();override; -begin - self.OuterShdw := new OuterShdw(self, self.Prefix, "outerShdw"); -end; - -function EffectLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function EffectLst.InitChildren();override; -begin - child_elements_ := array( - 0: self.OuterShdw, - ); - sorted_child_ := array( - "": -1, - self.OuterShdw.ElementName: 0, - ); -end; - -function EffectLst.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; - 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 EffectLst.Copy(_obj);override; -begin - self.OuterShdw.Copy(_obj.OuterShdw); -end; diff --git a/autoclass/pptx/EffectStyle@PPTX.tsf b/autoclass/pptx/EffectStyle@PPTX.tsf deleted file mode 100644 index d23df02..0000000 --- a/autoclass/pptx/EffectStyle@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type EffectStyle = 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; - -public - // Attributes - - // Children - EffectLst; - -end; - -function EffectStyle.Create();overload; -begin - self.Create(nil, "a", "effectStyle"); -end; - -function EffectStyle.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function EffectStyle.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectStyle.Init();override; -begin - self.EffectLst := new EffectLst(self, self.Prefix, "effectLst"); -end; - -function EffectStyle.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function EffectStyle.InitChildren();override; -begin - child_elements_ := array( - 0: self.EffectLst, - ); - sorted_child_ := array( - "": -1, - self.EffectLst.ElementName: 0, - ); -end; - -function EffectStyle.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; - 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 EffectStyle.Copy(_obj);override; -begin - self.EffectLst.Copy(_obj.EffectLst); -end; diff --git a/autoclass/pptx/EffectStyleLst@PPTX.tsf b/autoclass/pptx/EffectStyleLst@PPTX.tsf deleted file mode 100644 index 7adf248..0000000 --- a/autoclass/pptx/EffectStyleLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type EffectStyleLst = 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; - function AddEffectStyle(); - function AppendEffectStyle(); - - property EffectStyles read ReadEffectStyles; - function ReadEffectStyles(_index); - -public - // Attributes - - // Children - -end; - -function EffectStyleLst.Create();overload; -begin - self.Create(nil, "a", "effectStyleLst"); -end; - -function EffectStyleLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function EffectStyleLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectStyleLst.Init();override; -begin - -end; - -function EffectStyleLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function EffectStyleLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function EffectStyleLst.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; - 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 + "effectStyle": obj := self.AppendEffectStyle(); - 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 EffectStyleLst.Copy(_obj);override; -begin - -end; - -function EffectStyleLst.AddEffectStyle(); -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 = "effectStyle" then break; - end - obj := new EffectStyle(self, self.Prefix, "effectStyle"); - self.InsertChild(obj, i+1); - return obj; -end; - -function EffectStyleLst.AppendEffectStyle(); -begin - obj := new EffectStyle(self, self.Prefix, "effectStyle"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function EffectStyleLst.ReadEffectStyles(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "effectStyle" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/Ext@PPTX.tsf b/autoclass/pptx/Ext@PPTX.tsf deleted file mode 100644 index dacf107..0000000 --- a/autoclass/pptx/Ext@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type Ext = 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 Uri read ReadXmlAttrUri write WriteXmlAttrUri; - function ReadXmlAttrUri(); - function WriteXmlAttrUri(_value); - -public - // Attributes - XmlAttrUri; - - // Children - P14CreationId; - P16CreationId; - P14DiscardImageEditData; - P14DefaultImageDpi; - P15ChartTrackingRefBased; - -end; - -function Ext.Create();overload; -begin - self.Create(nil, "p", "ext"); -end; - -function Ext.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Ext.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ext.Init();override; -begin - self.XmlAttrUri := new OpenXmlAttribute(nil, "uri", nil); - self.P14CreationId := new ExtChild(self, "p14", "creationId"); - self.P16CreationId := new ExtChild(self, "p16", "creationId"); - self.P14DiscardImageEditData := new ExtChild(self, "p14", "discardImageEditData"); - self.P14DefaultImageDpi := new ExtChild(self, "p14", "defaultImageDpi"); - self.P15ChartTrackingRefBased := new ExtChild(self, "p15", "chartTrackingRefBased"); -end; - -function Ext.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrUri, - ); -end; - -function Ext.InitChildren();override; -begin - child_elements_ := array( - 0: self.P14CreationId, - 1: self.P16CreationId, - 2: self.P14DiscardImageEditData, - 3: self.P14DefaultImageDpi, - 4: self.P15ChartTrackingRefBased, - ); - sorted_child_ := array( - "": -1, - self.P14CreationId.ElementName: 0, - self.P16CreationId.ElementName: 1, - self.P14DiscardImageEditData.ElementName: 2, - self.P14DefaultImageDpi.ElementName: 3, - self.P15ChartTrackingRefBased.ElementName: 4, - ); -end; - -function Ext.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; - 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 Ext.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrUri.Value) then - self.XmlAttrUri.Value := _obj.XmlAttrUri.Value; - self.P14CreationId.Copy(_obj.P14CreationId); - self.P16CreationId.Copy(_obj.P16CreationId); - self.P14DiscardImageEditData.Copy(_obj.P14DiscardImageEditData); - self.P14DefaultImageDpi.Copy(_obj.P14DefaultImageDpi); - self.P15ChartTrackingRefBased.Copy(_obj.P15ChartTrackingRefBased); -end; - -function Ext.ReadXmlAttrUri(); -begin - return self.XmlAttrUri.Value; -end; - -function Ext.WriteXmlAttrUri(_value); -begin - self.XmlAttrUri.Value := _value; -end; diff --git a/autoclass/pptx/ExtChild@PPTX.tsf b/autoclass/pptx/ExtChild@PPTX.tsf deleted file mode 100644 index 2a397da..0000000 --- a/autoclass/pptx/ExtChild@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type ExtChild = 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 Xmlns read ReadXmlAttrXmlns write WriteXmlAttrXmlns; - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrXmlns(); - function WriteXmlAttrXmlns(_value); - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrXmlns; - XmlAttrVal; - - // Children - -end; - -function ExtChild.Create();overload; -begin - self.Create(nil, nil, ""); -end; - -function ExtChild.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ExtChild.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ExtChild.Init();override; -begin - self.XmlAttrXmlns := new OpenXmlAttribute(nil, "xmlns", "http://schemas.microsoft.com/office/powerpoint/2010/main"); - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); -end; - -function ExtChild.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlns, - self.XmlAttrVal, - ); -end; - -function ExtChild.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function ExtChild.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 ExtChild.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlns.Value) then - self.XmlAttrXmlns.Value := _obj.XmlAttrXmlns.Value; - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; -end; - -function ExtChild.ReadXmlAttrXmlns(); -begin - return self.XmlAttrXmlns.Value; -end; - -function ExtChild.WriteXmlAttrXmlns(_value); -begin - self.XmlAttrXmlns.Value := _value; -end; - -function ExtChild.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function ExtChild.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; diff --git a/autoclass/pptx/ExtLst@PPTX.tsf b/autoclass/pptx/ExtLst@PPTX.tsf deleted file mode 100644 index 9b4b3f3..0000000 --- a/autoclass/pptx/ExtLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type ExtLst = 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; - function AddExt(); - function AppendExt(); - - property Exts read ReadExts; - function ReadExts(_index); - -public - // Attributes - - // Children - -end; - -function ExtLst.Create();overload; -begin - self.Create(nil, "p", "extLst"); -end; - -function ExtLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ExtLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ExtLst.Init();override; -begin - -end; - -function ExtLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function ExtLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function ExtLst.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; - 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 + "ext": obj := self.AppendExt(); - 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 ExtLst.Copy(_obj);override; -begin - -end; - -function ExtLst.AddExt(); -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 = "ext" then break; - end - obj := new Ext(self, self.Prefix, "ext"); - self.InsertChild(obj, i+1); - return obj; -end; - -function ExtLst.AppendExt(); -begin - obj := new Ext(self, self.Prefix, "ext"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function ExtLst.ReadExts(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "ext" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/FillStyleLst@PPTX.tsf b/autoclass/pptx/FillStyleLst@PPTX.tsf deleted file mode 100644 index f64219c..0000000 --- a/autoclass/pptx/FillStyleLst@PPTX.tsf +++ /dev/null @@ -1,178 +0,0 @@ -type FillStyleLst = 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; - function AddSolidFill(); - function AddGradFill(); - function AppendSolidFill(); - function AppendGradFill(); - - property SolidFills read ReadSolidFills; - property GradFills read ReadGradFills; - function ReadSolidFills(_index); - function ReadGradFills(_index); - -public - // Attributes - - // Children - -end; - -function FillStyleLst.Create();overload; -begin - self.Create(nil, "a", "fillStyleLst"); -end; - -function FillStyleLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function FillStyleLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FillStyleLst.Init();override; -begin - -end; - -function FillStyleLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function FillStyleLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function FillStyleLst.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; - 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 + "solidFill": obj := self.AppendSolidFill(); - pre + "gradFill": obj := self.AppendGradFill(); - 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 FillStyleLst.Copy(_obj);override; -begin - -end; - -function FillStyleLst.AddSolidFill(); -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 = "solidFill" then break; - end - obj := new SolidFill(self, self.Prefix, "solidFill"); - self.InsertChild(obj, i+1); - return obj; -end; - -function FillStyleLst.AddGradFill(); -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 = "gradFill" then break; - end - obj := new GradFill(self, self.Prefix, "gradFill"); - self.InsertChild(obj, i+1); - return obj; -end; - -function FillStyleLst.AppendSolidFill(); -begin - obj := new SolidFill(self, self.Prefix, "solidFill"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function FillStyleLst.AppendGradFill(); -begin - obj := new GradFill(self, self.Prefix, "gradFill"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function FillStyleLst.ReadSolidFills(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "solidFill" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; - -function FillStyleLst.ReadGradFills(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "gradFill" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/Fld@PPTX.tsf b/autoclass/pptx/Fld@PPTX.tsf deleted file mode 100644 index 9cba57c..0000000 --- a/autoclass/pptx/Fld@PPTX.tsf +++ /dev/null @@ -1,140 +0,0 @@ -type Fld = 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 Id read ReadXmlAttrId write WriteXmlAttrId; - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrId; - XmlAttrType; - - // Children - RPr; - T; - -end; - -function Fld.Create();overload; -begin - self.Create(nil, "a", "fld"); -end; - -function Fld.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Fld.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Fld.Init();override; -begin - self.XmlAttrId := new OpenXmlAttribute(nil, "id", nil); - self.XmlAttrType := new OpenXmlAttribute(nil, "type", nil); - self.RPr := new RPr(self, self.Prefix, "rPr"); - self.T := new OpenXmlPcdata(self, self.Prefix, "t"); -end; - -function Fld.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrId, - self.XmlAttrType, - ); -end; - -function Fld.InitChildren();override; -begin - child_elements_ := array( - 0: self.RPr, - 1: self.T, - ); - sorted_child_ := array( - "": -1, - self.RPr.ElementName: 0, - self.T.ElementName: 1, - ); -end; - -function Fld.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; - 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 Fld.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrId.Value) then - self.XmlAttrId.Value := _obj.XmlAttrId.Value; - if not ifnil(_obj.XmlAttrType.Value) then - self.XmlAttrType.Value := _obj.XmlAttrType.Value; - self.RPr.Copy(_obj.RPr); - self.T.Copy(_obj.T); -end; - -function Fld.ReadXmlAttrId(); -begin - return self.XmlAttrId.Value; -end; - -function Fld.WriteXmlAttrId(_value); -begin - self.XmlAttrId.Value := _value; -end; - -function Fld.ReadXmlAttrType(); -begin - return self.XmlAttrType.Value; -end; - -function Fld.WriteXmlAttrType(_value); -begin - self.XmlAttrType.Value := _value; -end; diff --git a/autoclass/pptx/FmtScheme@PPTX.tsf b/autoclass/pptx/FmtScheme@PPTX.tsf deleted file mode 100644 index 8a9bd6b..0000000 --- a/autoclass/pptx/FmtScheme@PPTX.tsf +++ /dev/null @@ -1,132 +0,0 @@ -type FmtScheme = 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 Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrName; - - // Children - FillStyleLst; - LnStyleLst; - EffectStyleLst; - BgFillStyleLst; - -end; - -function FmtScheme.Create();overload; -begin - self.Create(nil, "a", "fmtScheme"); -end; - -function FmtScheme.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function FmtScheme.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FmtScheme.Init();override; -begin - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.FillStyleLst := new FillStyleLst(self, self.Prefix, "fillStyleLst"); - self.LnStyleLst := new LnStyleLst(self, self.Prefix, "lnStyleLst"); - self.EffectStyleLst := new EffectStyleLst(self, self.Prefix, "effectStyleLst"); - self.BgFillStyleLst := new FillStyleLst(self, self.Prefix, "bgFillStyleLst"); -end; - -function FmtScheme.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrName, - ); -end; - -function FmtScheme.InitChildren();override; -begin - child_elements_ := array( - 0: self.FillStyleLst, - 1: self.LnStyleLst, - 2: self.EffectStyleLst, - 3: self.BgFillStyleLst, - ); - sorted_child_ := array( - "": -1, - self.FillStyleLst.ElementName: 0, - self.LnStyleLst.ElementName: 1, - self.EffectStyleLst.ElementName: 2, - self.BgFillStyleLst.ElementName: 3, - ); -end; - -function FmtScheme.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; - 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 FmtScheme.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.FillStyleLst.Copy(_obj.FillStyleLst); - self.LnStyleLst.Copy(_obj.LnStyleLst); - self.EffectStyleLst.Copy(_obj.EffectStyleLst); - self.BgFillStyleLst.Copy(_obj.BgFillStyleLst); -end; - -function FmtScheme.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function FmtScheme.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/FontScheme@PPTX.tsf b/autoclass/pptx/FontScheme@PPTX.tsf deleted file mode 100644 index d301040..0000000 --- a/autoclass/pptx/FontScheme@PPTX.tsf +++ /dev/null @@ -1,122 +0,0 @@ -type FontScheme = 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 Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrName; - - // Children - Majorfont; - Minorfont; - -end; - -function FontScheme.Create();overload; -begin - self.Create(nil, "a", "fontScheme"); -end; - -function FontScheme.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function FontScheme.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FontScheme.Init();override; -begin - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.Majorfont := new Mfont(self, self.Prefix, "majorFont"); - self.Minorfont := new Mfont(self, self.Prefix, "minorFont"); -end; - -function FontScheme.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrName, - ); -end; - -function FontScheme.InitChildren();override; -begin - child_elements_ := array( - 0: self.Majorfont, - 1: self.Minorfont, - ); - sorted_child_ := array( - "": -1, - self.Majorfont.ElementName: 0, - self.Minorfont.ElementName: 1, - ); -end; - -function FontScheme.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; - 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 FontScheme.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.Majorfont.Copy(_obj.Majorfont); - self.Minorfont.Copy(_obj.Minorfont); -end; - -function FontScheme.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function FontScheme.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/GradFill@PPTX.tsf b/autoclass/pptx/GradFill@PPTX.tsf deleted file mode 100644 index e79a833..0000000 --- a/autoclass/pptx/GradFill@PPTX.tsf +++ /dev/null @@ -1,122 +0,0 @@ -type GradFill = 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 RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; - function ReadXmlAttrRotWithShape(); - function WriteXmlAttrRotWithShape(_value); - -public - // Attributes - XmlAttrRotWithShape; - - // Children - GsLst; - Lin; - -end; - -function GradFill.Create();overload; -begin - self.Create(nil, "a", "gradFill"); -end; - -function GradFill.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function GradFill.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GradFill.Init();override; -begin - self.XmlAttrRotWithShape := new OpenXmlAttribute(nil, "rotWithShape", nil); - self.GsLst := new GsLst(self, self.Prefix, "gsLst"); - self.Lin := new Lin(self, self.Prefix, "lin"); -end; - -function GradFill.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrRotWithShape, - ); -end; - -function GradFill.InitChildren();override; -begin - child_elements_ := array( - 0: self.GsLst, - 1: self.Lin, - ); - sorted_child_ := array( - "": -1, - self.GsLst.ElementName: 0, - self.Lin.ElementName: 1, - ); -end; - -function GradFill.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; - 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 GradFill.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrRotWithShape.Value) then - self.XmlAttrRotWithShape.Value := _obj.XmlAttrRotWithShape.Value; - self.GsLst.Copy(_obj.GsLst); - self.Lin.Copy(_obj.Lin); -end; - -function GradFill.ReadXmlAttrRotWithShape(); -begin - return self.XmlAttrRotWithShape.Value; -end; - -function GradFill.WriteXmlAttrRotWithShape(_value); -begin - self.XmlAttrRotWithShape.Value := _value; -end; diff --git a/autoclass/pptx/GrpSpPr@PPTX.tsf b/autoclass/pptx/GrpSpPr@PPTX.tsf deleted file mode 100644 index bf8e956..0000000 --- a/autoclass/pptx/GrpSpPr@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type GrpSpPr = 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; - -public - // Attributes - - // Children - Xfrm; - -end; - -function GrpSpPr.Create();overload; -begin - self.Create(nil, "p", "grpSpPr"); -end; - -function GrpSpPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function GrpSpPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GrpSpPr.Init();override; -begin - self.Xfrm := new Xfrm(self, "a", "xfrm"); -end; - -function GrpSpPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function GrpSpPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.Xfrm, - ); - sorted_child_ := array( - "": -1, - self.Xfrm.ElementName: 0, - ); -end; - -function GrpSpPr.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; - 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 GrpSpPr.Copy(_obj);override; -begin - self.Xfrm.Copy(_obj.Xfrm); -end; diff --git a/autoclass/pptx/Gs@PPTX.tsf b/autoclass/pptx/Gs@PPTX.tsf deleted file mode 100644 index 37afed8..0000000 --- a/autoclass/pptx/Gs@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type Gs = 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 Pos read ReadXmlAttrPos write WriteXmlAttrPos; - function ReadXmlAttrPos(); - function WriteXmlAttrPos(_value); - -public - // Attributes - XmlAttrPos; - - // Children - SchemeClr; - -end; - -function Gs.Create();overload; -begin - self.Create(nil, "a", "gs"); -end; - -function Gs.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Gs.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Gs.Init();override; -begin - self.XmlAttrPos := new OpenXmlAttribute(nil, "pos", nil); - self.SchemeClr := new SchemeClr(self, self.Prefix, "schemeClr"); -end; - -function Gs.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrPos, - ); -end; - -function Gs.InitChildren();override; -begin - child_elements_ := array( - 0: self.SchemeClr, - ); - sorted_child_ := array( - "": -1, - self.SchemeClr.ElementName: 0, - ); -end; - -function Gs.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; - 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 Gs.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrPos.Value) then - self.XmlAttrPos.Value := _obj.XmlAttrPos.Value; - self.SchemeClr.Copy(_obj.SchemeClr); -end; - -function Gs.ReadXmlAttrPos(); -begin - return self.XmlAttrPos.Value; -end; - -function Gs.WriteXmlAttrPos(_value); -begin - self.XmlAttrPos.Value := _value; -end; diff --git a/autoclass/pptx/GsLst@PPTX.tsf b/autoclass/pptx/GsLst@PPTX.tsf deleted file mode 100644 index c437305..0000000 --- a/autoclass/pptx/GsLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type GsLst = 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; - function AddGs(); - function AppendGs(); - - property Gses read ReadGses; - function ReadGses(_index); - -public - // Attributes - - // Children - -end; - -function GsLst.Create();overload; -begin - self.Create(nil, "a", "gsLst"); -end; - -function GsLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function GsLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GsLst.Init();override; -begin - -end; - -function GsLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function GsLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function GsLst.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; - 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 + "gs": obj := self.AppendGs(); - 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 GsLst.Copy(_obj);override; -begin - -end; - -function GsLst.AddGs(); -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 = "gs" then break; - end - obj := new Gs(self, self.Prefix, "gs"); - self.InsertChild(obj, i+1); - return obj; -end; - -function GsLst.AppendGs(); -begin - obj := new Gs(self, self.Prefix, "gs"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function GsLst.ReadGses(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "gs" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/HeadingPairs@PPTX.tsf b/autoclass/pptx/HeadingPairs@PPTX.tsf deleted file mode 100644 index fd29b9d..0000000 --- a/autoclass/pptx/HeadingPairs@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type HeadingPairs = 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; - -public - // Attributes - - // Children - Vector; - -end; - -function HeadingPairs.Create();overload; -begin - self.Create(nil, nil, "HeadingPairs"); -end; - -function HeadingPairs.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function HeadingPairs.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function HeadingPairs.Init();override; -begin - self.Vector := new Vector(self, "vt", "vector"); -end; - -function HeadingPairs.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function HeadingPairs.InitChildren();override; -begin - child_elements_ := array( - 0: self.Vector, - ); - sorted_child_ := array( - "": -1, - self.Vector.ElementName: 0, - ); -end; - -function HeadingPairs.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; - 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 HeadingPairs.Copy(_obj);override; -begin - self.Vector.Copy(_obj.Vector); -end; diff --git a/autoclass/pptx/IdLst@PPTX.tsf b/autoclass/pptx/IdLst@PPTX.tsf deleted file mode 100644 index 4ba8957..0000000 --- a/autoclass/pptx/IdLst@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type IdLst = 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 Id read ReadXmlAttrId write WriteXmlAttrId; - property RId read ReadXmlAttrRId write WriteXmlAttrRId; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrRId(); - function WriteXmlAttrRId(_value); - -public - // Attributes - XmlAttrId; - XmlAttrRId; - - // Children - -end; - -function IdLst.Create();overload; -begin - self.Create(nil, "p", "idLst"); -end; - -function IdLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function IdLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function IdLst.Init();override; -begin - self.XmlAttrId := new OpenXmlAttribute(nil, "id", nil); - self.XmlAttrRId := new OpenXmlAttribute("r", "id", nil); -end; - -function IdLst.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrId, - self.XmlAttrRId, - ); -end; - -function IdLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function IdLst.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 IdLst.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrId.Value) then - self.XmlAttrId.Value := _obj.XmlAttrId.Value; - if not ifnil(_obj.XmlAttrRId.Value) then - self.XmlAttrRId.Value := _obj.XmlAttrRId.Value; -end; - -function IdLst.ReadXmlAttrId(); -begin - return self.XmlAttrId.Value; -end; - -function IdLst.WriteXmlAttrId(_value); -begin - self.XmlAttrId.Value := _value; -end; - -function IdLst.ReadXmlAttrRId(); -begin - return self.XmlAttrRId.Value; -end; - -function IdLst.WriteXmlAttrRId(_value); -begin - self.XmlAttrRId.Value := _value; -end; diff --git a/autoclass/pptx/Latin@PPTX.tsf b/autoclass/pptx/Latin@PPTX.tsf deleted file mode 100644 index 54dca07..0000000 --- a/autoclass/pptx/Latin@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type Latin = 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 Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; - property Panose read ReadXmlAttrPanose write WriteXmlAttrPanose; - function ReadXmlAttrTypeface(); - function WriteXmlAttrTypeface(_value); - function ReadXmlAttrPanose(); - function WriteXmlAttrPanose(_value); - -public - // Attributes - XmlAttrTypeface; - XmlAttrPanose; - - // Children - -end; - -function Latin.Create();overload; -begin - self.Create(nil, "a", "latin"); -end; - -function Latin.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Latin.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Latin.Init();override; -begin - self.XmlAttrTypeface := new OpenXmlAttribute(nil, "typeface", nil); - self.XmlAttrPanose := new OpenXmlAttribute(nil, "panose", nil); -end; - -function Latin.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrTypeface, - self.XmlAttrPanose, - ); -end; - -function Latin.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Latin.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 Latin.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrTypeface.Value) then - self.XmlAttrTypeface.Value := _obj.XmlAttrTypeface.Value; - if not ifnil(_obj.XmlAttrPanose.Value) then - self.XmlAttrPanose.Value := _obj.XmlAttrPanose.Value; -end; - -function Latin.ReadXmlAttrTypeface(); -begin - return self.XmlAttrTypeface.Value; -end; - -function Latin.WriteXmlAttrTypeface(_value); -begin - self.XmlAttrTypeface.Value := _value; -end; - -function Latin.ReadXmlAttrPanose(); -begin - return self.XmlAttrPanose.Value; -end; - -function Latin.WriteXmlAttrPanose(_value); -begin - self.XmlAttrPanose.Value := _value; -end; diff --git a/autoclass/pptx/Lin@PPTX.tsf b/autoclass/pptx/Lin@PPTX.tsf deleted file mode 100644 index bbc6106..0000000 --- a/autoclass/pptx/Lin@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type Lin = 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 Ang read ReadXmlAttrAng write WriteXmlAttrAng; - property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled; - function ReadXmlAttrAng(); - function WriteXmlAttrAng(_value); - function ReadXmlAttrScaled(); - function WriteXmlAttrScaled(_value); - -public - // Attributes - XmlAttrAng; - XmlAttrScaled; - - // Children - -end; - -function Lin.Create();overload; -begin - self.Create(nil, "a", "lin"); -end; - -function Lin.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Lin.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Lin.Init();override; -begin - self.XmlAttrAng := new OpenXmlAttribute(nil, "ang", nil); - self.XmlAttrScaled := new OpenXmlAttribute(nil, "scaled", nil); -end; - -function Lin.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrAng, - self.XmlAttrScaled, - ); -end; - -function Lin.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Lin.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 Lin.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrAng.Value) then - self.XmlAttrAng.Value := _obj.XmlAttrAng.Value; - if not ifnil(_obj.XmlAttrScaled.Value) then - self.XmlAttrScaled.Value := _obj.XmlAttrScaled.Value; -end; - -function Lin.ReadXmlAttrAng(); -begin - return self.XmlAttrAng.Value; -end; - -function Lin.WriteXmlAttrAng(_value); -begin - self.XmlAttrAng.Value := _value; -end; - -function Lin.ReadXmlAttrScaled(); -begin - return self.XmlAttrScaled.Value; -end; - -function Lin.WriteXmlAttrScaled(_value); -begin - self.XmlAttrScaled.Value := _value; -end; diff --git a/autoclass/pptx/Ln@PPTX.tsf b/autoclass/pptx/Ln@PPTX.tsf deleted file mode 100644 index 619ee16..0000000 --- a/autoclass/pptx/Ln@PPTX.tsf +++ /dev/null @@ -1,181 +0,0 @@ -type Ln = 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 W read ReadXmlAttrW write WriteXmlAttrW; - property Cap read ReadXmlAttrCap write WriteXmlAttrCap; - property Cmpd read ReadXmlAttrCmpd write WriteXmlAttrCmpd; - property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrCap(); - function WriteXmlAttrCap(_value); - function ReadXmlAttrCmpd(); - function WriteXmlAttrCmpd(_value); - function ReadXmlAttrAlgn(); - function WriteXmlAttrAlgn(_value); - -public - // Attributes - XmlAttrW; - XmlAttrCap; - XmlAttrCmpd; - XmlAttrAlgn; - - // Children - SolidFill; - PrstDash; - Miter; - -end; - -function Ln.Create();overload; -begin - self.Create(nil, "a", "ln"); -end; - -function Ln.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Ln.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ln.Init();override; -begin - self.XmlAttrW := new OpenXmlAttribute(nil, "w", nil); - self.XmlAttrCap := new OpenXmlAttribute(nil, "cap", nil); - self.XmlAttrCmpd := new OpenXmlAttribute(nil, "cmpd", nil); - self.XmlAttrAlgn := new OpenXmlAttribute(nil, "algn", nil); - self.SolidFill := new SolidFill(self, self.Prefix, "solidFill"); - self.PrstDash := new PureVal(self, self.Prefix, "prstDash"); - self.Miter := new Miter(self, self.Prefix, "miter"); -end; - -function Ln.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrW, - self.XmlAttrCap, - self.XmlAttrCmpd, - self.XmlAttrAlgn, - ); -end; - -function Ln.InitChildren();override; -begin - child_elements_ := array( - 0: self.SolidFill, - 1: self.PrstDash, - 2: self.Miter, - ); - sorted_child_ := array( - "": -1, - self.SolidFill.ElementName: 0, - self.PrstDash.ElementName: 1, - self.Miter.ElementName: 2, - ); -end; - -function Ln.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; - 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 Ln.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrW.Value) then - self.XmlAttrW.Value := _obj.XmlAttrW.Value; - if not ifnil(_obj.XmlAttrCap.Value) then - self.XmlAttrCap.Value := _obj.XmlAttrCap.Value; - if not ifnil(_obj.XmlAttrCmpd.Value) then - self.XmlAttrCmpd.Value := _obj.XmlAttrCmpd.Value; - if not ifnil(_obj.XmlAttrAlgn.Value) then - self.XmlAttrAlgn.Value := _obj.XmlAttrAlgn.Value; - self.SolidFill.Copy(_obj.SolidFill); - self.PrstDash.Copy(_obj.PrstDash); - self.Miter.Copy(_obj.Miter); -end; - -function Ln.ReadXmlAttrW(); -begin - return self.XmlAttrW.Value; -end; - -function Ln.WriteXmlAttrW(_value); -begin - self.XmlAttrW.Value := _value; -end; - -function Ln.ReadXmlAttrCap(); -begin - return self.XmlAttrCap.Value; -end; - -function Ln.WriteXmlAttrCap(_value); -begin - self.XmlAttrCap.Value := _value; -end; - -function Ln.ReadXmlAttrCmpd(); -begin - return self.XmlAttrCmpd.Value; -end; - -function Ln.WriteXmlAttrCmpd(_value); -begin - self.XmlAttrCmpd.Value := _value; -end; - -function Ln.ReadXmlAttrAlgn(); -begin - return self.XmlAttrAlgn.Value; -end; - -function Ln.WriteXmlAttrAlgn(_value); -begin - self.XmlAttrAlgn.Value := _value; -end; diff --git a/autoclass/pptx/LnSpc@PPTX.tsf b/autoclass/pptx/LnSpc@PPTX.tsf deleted file mode 100644 index be8dac3..0000000 --- a/autoclass/pptx/LnSpc@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type LnSpc = 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; - -public - // Attributes - - // Children - SpcPct; - -end; - -function LnSpc.Create();overload; -begin - self.Create(nil, "a", "lnSpc"); -end; - -function LnSpc.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function LnSpc.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LnSpc.Init();override; -begin - self.SpcPct := new SpcPct(self, self.Prefix, "spcPct"); -end; - -function LnSpc.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function LnSpc.InitChildren();override; -begin - child_elements_ := array( - 0: self.SpcPct, - ); - sorted_child_ := array( - "": -1, - self.SpcPct.ElementName: 0, - ); -end; - -function LnSpc.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; - 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 LnSpc.Copy(_obj);override; -begin - self.SpcPct.Copy(_obj.SpcPct); -end; diff --git a/autoclass/pptx/LnStyleLst@PPTX.tsf b/autoclass/pptx/LnStyleLst@PPTX.tsf deleted file mode 100644 index 92d12de..0000000 --- a/autoclass/pptx/LnStyleLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type LnStyleLst = 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; - function AddLn(); - function AppendLn(); - - property Lns read ReadLns; - function ReadLns(_index); - -public - // Attributes - - // Children - -end; - -function LnStyleLst.Create();overload; -begin - self.Create(nil, "a", "lnStyleLst"); -end; - -function LnStyleLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function LnStyleLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LnStyleLst.Init();override; -begin - -end; - -function LnStyleLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function LnStyleLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function LnStyleLst.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; - 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 + "ln": obj := self.AppendLn(); - 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 LnStyleLst.Copy(_obj);override; -begin - -end; - -function LnStyleLst.AddLn(); -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 = "ln" then break; - end - obj := new Ln(self, self.Prefix, "ln"); - self.InsertChild(obj, i+1); - return obj; -end; - -function LnStyleLst.AppendLn(); -begin - obj := new Ln(self, self.Prefix, "ln"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function LnStyleLst.ReadLns(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "ln" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/LstStyle@PPTX.tsf b/autoclass/pptx/LstStyle@PPTX.tsf deleted file mode 100644 index ef06fbf..0000000 --- a/autoclass/pptx/LstStyle@PPTX.tsf +++ /dev/null @@ -1,143 +0,0 @@ -type LstStyle = 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; - -public - // Attributes - - // Children - DefPPr; - Lvl1PPr; - Lvl2PPr; - Lvl3PPr; - Lvl4PPr; - Lvl5PPr; - Lvl6PPr; - Lvl7PPr; - Lvl8PPr; - Lvl9PPr; - -end; - -function LstStyle.Create();overload; -begin - self.Create(nil, "a", "lstStyle"); -end; - -function LstStyle.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function LstStyle.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LstStyle.Init();override; -begin - self.DefPPr := new DefPPr(self, self.Prefix, "defPPr"); - self.Lvl1PPr := new LvlPPr(self, self.Prefix, "lvl1pPr"); - self.Lvl2PPr := new LvlPPr(self, self.Prefix, "lvl2pPr"); - self.Lvl3PPr := new LvlPPr(self, self.Prefix, "lvl3pPr"); - self.Lvl4PPr := new LvlPPr(self, self.Prefix, "lvl4pPr"); - self.Lvl5PPr := new LvlPPr(self, self.Prefix, "lvl5pPr"); - self.Lvl6PPr := new LvlPPr(self, self.Prefix, "lvl6pPr"); - self.Lvl7PPr := new LvlPPr(self, self.Prefix, "lvl7pPr"); - self.Lvl8PPr := new LvlPPr(self, self.Prefix, "lvl8pPr"); - self.Lvl9PPr := new LvlPPr(self, self.Prefix, "lvl9pPr"); -end; - -function LstStyle.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function LstStyle.InitChildren();override; -begin - child_elements_ := array( - 0: self.DefPPr, - 1: self.Lvl1PPr, - 2: self.Lvl2PPr, - 3: self.Lvl3PPr, - 4: self.Lvl4PPr, - 5: self.Lvl5PPr, - 6: self.Lvl6PPr, - 7: self.Lvl7PPr, - 8: self.Lvl8PPr, - 9: self.Lvl9PPr, - ); - sorted_child_ := array( - "": -1, - self.DefPPr.ElementName: 0, - self.Lvl1PPr.ElementName: 1, - self.Lvl2PPr.ElementName: 2, - self.Lvl3PPr.ElementName: 3, - self.Lvl4PPr.ElementName: 4, - self.Lvl5PPr.ElementName: 5, - self.Lvl6PPr.ElementName: 6, - self.Lvl7PPr.ElementName: 7, - self.Lvl8PPr.ElementName: 8, - self.Lvl9PPr.ElementName: 9, - ); -end; - -function LstStyle.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; - 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 LstStyle.Copy(_obj);override; -begin - self.DefPPr.Copy(_obj.DefPPr); - self.Lvl1PPr.Copy(_obj.Lvl1PPr); - self.Lvl2PPr.Copy(_obj.Lvl2PPr); - self.Lvl3PPr.Copy(_obj.Lvl3PPr); - self.Lvl4PPr.Copy(_obj.Lvl4PPr); - self.Lvl5PPr.Copy(_obj.Lvl5PPr); - self.Lvl6PPr.Copy(_obj.Lvl6PPr); - self.Lvl7PPr.Copy(_obj.Lvl7PPr); - self.Lvl8PPr.Copy(_obj.Lvl8PPr); - self.Lvl9PPr.Copy(_obj.Lvl9PPr); -end; diff --git a/autoclass/pptx/LvlPPr@PPTX.tsf b/autoclass/pptx/LvlPPr@PPTX.tsf deleted file mode 100644 index 638cc76..0000000 --- a/autoclass/pptx/LvlPPr@PPTX.tsf +++ /dev/null @@ -1,321 +0,0 @@ -type LvlPPr = 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 MarL read ReadXmlAttrMarL write WriteXmlAttrMarL; - property Indent read ReadXmlAttrIndent write WriteXmlAttrIndent; - property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; - property DefTabSz read ReadXmlAttrDefTabSz write WriteXmlAttrDefTabSz; - property Rtl read ReadXmlAttrRtl write WriteXmlAttrRtl; - property EaLnBr read ReadXmlAttrEaLnBr write WriteXmlAttrEaLnBr; - property LatinLnBrk read ReadXmlAttrLatinLnBrk write WriteXmlAttrLatinLnBrk; - property HangingPunct read ReadXmlAttrHangingPunct write WriteXmlAttrHangingPunct; - function ReadXmlAttrMarL(); - function WriteXmlAttrMarL(_value); - function ReadXmlAttrIndent(); - function WriteXmlAttrIndent(_value); - function ReadXmlAttrAlgn(); - function WriteXmlAttrAlgn(_value); - function ReadXmlAttrDefTabSz(); - function WriteXmlAttrDefTabSz(_value); - function ReadXmlAttrRtl(); - function WriteXmlAttrRtl(_value); - function ReadXmlAttrEaLnBr(); - function WriteXmlAttrEaLnBr(_value); - function ReadXmlAttrLatinLnBrk(); - function WriteXmlAttrLatinLnBrk(_value); - function ReadXmlAttrHangingPunct(); - function WriteXmlAttrHangingPunct(_value); - - property SpcBef read ReadXmlChildSpcBef write WriteXmlChildSpcBef; - property BuNone read ReadXmlChildBuNone write WriteXmlChildBuNone; - property BuFont read ReadXmlChildBuFont write WriteXmlChildBuFont; - property BuChar read ReadXmlChildBuChar write WriteXmlChildBuChar; - function ReadXmlChildSpcBef(); - function WriteXmlChildSpcBef(_value); - function ReadXmlChildBuNone(); - function WriteXmlChildBuNone(_value); - function ReadXmlChildBuFont(); - function WriteXmlChildBuFont(_value); - function ReadXmlChildBuChar(); - function WriteXmlChildBuChar(_value); - -public - // Attributes - XmlAttrMarL; - XmlAttrIndent; - XmlAttrAlgn; - XmlAttrDefTabSz; - XmlAttrRtl; - XmlAttrEaLnBr; - XmlAttrLatinLnBrk; - XmlAttrHangingPunct; - - // Children - LnSpc; - XmlChildSpcBef; - XmlChildBuNone; - XmlChildBuFont; - XmlChildBuChar; - DefRPr; - -end; - -function LvlPPr.Create();overload; -begin - self.Create(nil, "a", "lvldpPr"); -end; - -function LvlPPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function LvlPPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LvlPPr.Init();override; -begin - self.XmlAttrMarL := new OpenXmlAttribute(nil, "marl", nil); - self.XmlAttrIndent := new OpenXmlAttribute(nil, "indent", nil); - self.XmlAttrAlgn := new OpenXmlAttribute(nil, "algn", nil); - self.XmlAttrDefTabSz := new OpenXmlAttribute(nil, "defTabSz", nil); - self.XmlAttrRtl := new OpenXmlAttribute(nil, "rtl", nil); - self.XmlAttrEaLnBr := new OpenXmlAttribute(nil, "eaLnBrk", nil); - self.XmlAttrLatinLnBrk := new OpenXmlAttribute(nil, "latinLnBrk", nil); - self.XmlAttrHangingPunct := new OpenXmlAttribute(nil, "hangingPunct", nil); - self.LnSpc := new LnSpc(self, self.Prefix, "lnSpc"); - self.XmlChildSpcBef := new SpcBef(self, self.Prefix, "spcBef"); - self.XmlChildBuNone := new OpenXmlEmpty(self, self.Prefix, "buNone"); - self.XmlChildBuFont := new BuFont(self, self.Prefix, "buFont"); - self.XmlChildBuChar := new BuChar(self, self.Prefix, "buChar"); - self.DefRPr := new DefRPr(self, self.Prefix, "defRPr"); -end; - -function LvlPPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrMarL, - self.XmlAttrIndent, - self.XmlAttrAlgn, - self.XmlAttrDefTabSz, - self.XmlAttrRtl, - self.XmlAttrEaLnBr, - self.XmlAttrLatinLnBrk, - self.XmlAttrHangingPunct, - ); -end; - -function LvlPPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.LnSpc, - 1: self.XmlChildSpcBef, - 2: self.XmlChildBuNone, - 3: self.XmlChildBuFont, - 4: self.XmlChildBuChar, - 5: self.DefRPr, - ); - sorted_child_ := array( - "": -1, - self.LnSpc.ElementName: 0, - self.XmlChildSpcBef.ElementName: 1, - self.XmlChildBuNone.ElementName: 2, - self.XmlChildBuFont.ElementName: 3, - self.XmlChildBuChar.ElementName: 4, - self.DefRPr.ElementName: 5, - ); -end; - -function LvlPPr.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; - 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 LvlPPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrMarL.Value) then - self.XmlAttrMarL.Value := _obj.XmlAttrMarL.Value; - if not ifnil(_obj.XmlAttrIndent.Value) then - self.XmlAttrIndent.Value := _obj.XmlAttrIndent.Value; - if not ifnil(_obj.XmlAttrAlgn.Value) then - self.XmlAttrAlgn.Value := _obj.XmlAttrAlgn.Value; - if not ifnil(_obj.XmlAttrDefTabSz.Value) then - self.XmlAttrDefTabSz.Value := _obj.XmlAttrDefTabSz.Value; - if not ifnil(_obj.XmlAttrRtl.Value) then - self.XmlAttrRtl.Value := _obj.XmlAttrRtl.Value; - if not ifnil(_obj.XmlAttrEaLnBr.Value) then - self.XmlAttrEaLnBr.Value := _obj.XmlAttrEaLnBr.Value; - if not ifnil(_obj.XmlAttrLatinLnBrk.Value) then - self.XmlAttrLatinLnBrk.Value := _obj.XmlAttrLatinLnBrk.Value; - if not ifnil(_obj.XmlAttrHangingPunct.Value) then - self.XmlAttrHangingPunct.Value := _obj.XmlAttrHangingPunct.Value; - self.LnSpc.Copy(_obj.LnSpc); - self.XmlChildSpcBef.Copy(_obj.XmlChildSpcBef); - self.XmlChildBuNone.Copy(_obj.XmlChildBuNone); - self.XmlChildBuFont.Copy(_obj.XmlChildBuFont); - self.XmlChildBuChar.Copy(_obj.XmlChildBuChar); - self.DefRPr.Copy(_obj.DefRPr); -end; - -function LvlPPr.ReadXmlAttrMarL(); -begin - return self.XmlAttrMarL.Value; -end; - -function LvlPPr.WriteXmlAttrMarL(_value); -begin - self.XmlAttrMarL.Value := _value; -end; - -function LvlPPr.ReadXmlAttrIndent(); -begin - return self.XmlAttrIndent.Value; -end; - -function LvlPPr.WriteXmlAttrIndent(_value); -begin - self.XmlAttrIndent.Value := _value; -end; - -function LvlPPr.ReadXmlAttrAlgn(); -begin - return self.XmlAttrAlgn.Value; -end; - -function LvlPPr.WriteXmlAttrAlgn(_value); -begin - self.XmlAttrAlgn.Value := _value; -end; - -function LvlPPr.ReadXmlAttrDefTabSz(); -begin - return self.XmlAttrDefTabSz.Value; -end; - -function LvlPPr.WriteXmlAttrDefTabSz(_value); -begin - self.XmlAttrDefTabSz.Value := _value; -end; - -function LvlPPr.ReadXmlAttrRtl(); -begin - return self.XmlAttrRtl.Value; -end; - -function LvlPPr.WriteXmlAttrRtl(_value); -begin - self.XmlAttrRtl.Value := _value; -end; - -function LvlPPr.ReadXmlAttrEaLnBr(); -begin - return self.XmlAttrEaLnBr.Value; -end; - -function LvlPPr.WriteXmlAttrEaLnBr(_value); -begin - self.XmlAttrEaLnBr.Value := _value; -end; - -function LvlPPr.ReadXmlAttrLatinLnBrk(); -begin - return self.XmlAttrLatinLnBrk.Value; -end; - -function LvlPPr.WriteXmlAttrLatinLnBrk(_value); -begin - self.XmlAttrLatinLnBrk.Value := _value; -end; - -function LvlPPr.ReadXmlAttrHangingPunct(); -begin - return self.XmlAttrHangingPunct.Value; -end; - -function LvlPPr.WriteXmlAttrHangingPunct(_value); -begin - self.XmlAttrHangingPunct.Value := _value; -end; - -function LvlPPr.ReadXmlChildSpcBef(); -begin - return ifnil(self.XmlChildSpcBef.Value) ? false : true; -end; - -function LvlPPr.WriteXmlChildSpcBef(_value); -begin - self.XmlChildSpcBef.Value := _value; -end; - -function LvlPPr.ReadXmlChildBuNone(); -begin - return ifnil(self.XmlChildBuNone.Value) ? false : true; -end; - -function LvlPPr.WriteXmlChildBuNone(_value); -begin - self.XmlChildBuNone.Value := _value; -end; - -function LvlPPr.ReadXmlChildBuFont(); -begin - return ifnil(self.XmlChildBuFont.Value) ? false : true; -end; - -function LvlPPr.WriteXmlChildBuFont(_value); -begin - self.XmlChildBuFont.Value := _value; -end; - -function LvlPPr.ReadXmlChildBuChar(); -begin - return ifnil(self.XmlChildBuChar.Value) ? false : true; -end; - -function LvlPPr.WriteXmlChildBuChar(_value); -begin - self.XmlChildBuChar.Value := _value; -end; diff --git a/autoclass/pptx/MFont@PPTX.tsf b/autoclass/pptx/MFont@PPTX.tsf deleted file mode 100644 index f150fda..0000000 --- a/autoclass/pptx/MFont@PPTX.tsf +++ /dev/null @@ -1,150 +0,0 @@ -type MFont = 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; - function AddFont(); - function AppendFont(); - - property Fonts read ReadFonts; - function ReadFonts(_index); - -public - // Attributes - - // Children - Latin; - Ea; - Cs; - -end; - -function MFont.Create();overload; -begin - self.Create(nil, "a", ""); -end; - -function MFont.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function MFont.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function MFont.Init();override; -begin - self.Latin := new Latin(self, self.Prefix, "latin"); - self.Ea := new Latin(self, self.Prefix, "ea"); - self.Cs := new Latin(self, self.Prefix, "cs"); -end; - -function MFont.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function MFont.InitChildren();override; -begin - child_elements_ := array( - 0: self.Latin, - 1: self.Ea, - 2: self.Cs, - ); - sorted_child_ := array( - "": -1, - self.Latin.ElementName: 0, - self.Ea.ElementName: 1, - self.Cs.ElementName: 2, - ); -end; - -function MFont.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; - 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 + "font": obj := self.AppendFont(); - 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 MFont.Copy(_obj);override; -begin - self.Latin.Copy(_obj.Latin); - self.Ea.Copy(_obj.Ea); - self.Cs.Copy(_obj.Cs); -end; - -function MFont.AddFont(); -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 = "font" then break; - end - obj := new MFontFont(self, self.Prefix, "font"); - self.InsertChild(obj, i+1); - return obj; -end; - -function MFont.AppendFont(); -begin - obj := new MFontFont(self, self.Prefix, "font"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function MFont.ReadFonts(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "font" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/MFontFont@PPTX.tsf b/autoclass/pptx/MFontFont@PPTX.tsf deleted file mode 100644 index 1cad144..0000000 --- a/autoclass/pptx/MFontFont@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type MFontFont = 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 Script read ReadXmlAttrScript write WriteXmlAttrScript; - property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; - function ReadXmlAttrScript(); - function WriteXmlAttrScript(_value); - function ReadXmlAttrTypeface(); - function WriteXmlAttrTypeface(_value); - -public - // Attributes - XmlAttrScript; - XmlAttrTypeface; - - // Children - -end; - -function MFontFont.Create();overload; -begin - self.Create(nil, "a", "defRPr"); -end; - -function MFontFont.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function MFontFont.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function MFontFont.Init();override; -begin - self.XmlAttrScript := new OpenXmlAttribute(nil, "script", nil); - self.XmlAttrTypeface := new OpenXmlAttribute(nil, "typeface", nil); -end; - -function MFontFont.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrScript, - self.XmlAttrTypeface, - ); -end; - -function MFontFont.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function MFontFont.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 MFontFont.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrScript.Value) then - self.XmlAttrScript.Value := _obj.XmlAttrScript.Value; - if not ifnil(_obj.XmlAttrTypeface.Value) then - self.XmlAttrTypeface.Value := _obj.XmlAttrTypeface.Value; -end; - -function MFontFont.ReadXmlAttrScript(); -begin - return self.XmlAttrScript.Value; -end; - -function MFontFont.WriteXmlAttrScript(_value); -begin - self.XmlAttrScript.Value := _value; -end; - -function MFontFont.ReadXmlAttrTypeface(); -begin - return self.XmlAttrTypeface.Value; -end; - -function MFontFont.WriteXmlAttrTypeface(_value); -begin - self.XmlAttrTypeface.Value := _value; -end; diff --git a/autoclass/pptx/Miter@PPTX.tsf b/autoclass/pptx/Miter@PPTX.tsf deleted file mode 100644 index 02e63eb..0000000 --- a/autoclass/pptx/Miter@PPTX.tsf +++ /dev/null @@ -1,81 +0,0 @@ -type Miter = 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 Lim read ReadXmlAttrLim write WriteXmlAttrLim; - function ReadXmlAttrLim(); - function WriteXmlAttrLim(_value); - -public - // Attributes - XmlAttrLim; - - // Children - -end; - -function Miter.Create();overload; -begin - self.Create(nil, "a", "miter"); -end; - -function Miter.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Miter.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Miter.Init();override; -begin - self.XmlAttrLim := new OpenXmlAttribute(nil, "lim", nil); -end; - -function Miter.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrLim, - ); -end; - -function Miter.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Miter.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 Miter.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrLim.Value) then - self.XmlAttrLim.Value := _obj.XmlAttrLim.Value; -end; - -function Miter.ReadXmlAttrLim(); -begin - return self.XmlAttrLim.Value; -end; - -function Miter.WriteXmlAttrLim(_value); -begin - self.XmlAttrLim.Value := _value; -end; diff --git a/autoclass/pptx/Modified@PPTX.tsf b/autoclass/pptx/Modified@PPTX.tsf deleted file mode 100644 index 50b1d1f..0000000 --- a/autoclass/pptx/Modified@PPTX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type Modified = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node);overload; - function Create(_parent, _prefix, _local_name);overload; - function Init();override; - function InitAttributes();override; - function InitNode(_node);override; - function Copy(_obj);override; - - property XsiType read ReadXmlAttrXsiType write WriteXmlAttrXsiType; - function ReadXmlAttrXsiType(); - function WriteXmlAttrXsiType(_value); - -public - // Attributes - XmlAttrXsiType; - - // Children - -end; - -function Modified.Create();overload; -begin - self.Create(nil, "dcterms", "modified"); -end; - -function Modified.Create(_node);overload; -begin - class(OpenXmlPcdata).Create(_node); -end; - -function Modified.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function Modified.Init();override; -begin - self.XmlAttrXsiType := new OpenXmlAttribute("xsi", "type", nil); -end; - -function Modified.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXsiType, - ); -end; - -function Modified.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 Modified.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXsiType.Value) then - self.XmlAttrXsiType.Value := _obj.XmlAttrXsiType.Value; -end; - -function Modified.ReadXmlAttrXsiType(); -begin - return self.XmlAttrXsiType.Value; -end; - -function Modified.WriteXmlAttrXsiType(_value); -begin - self.XmlAttrXsiType.Value := _value; -end; diff --git a/autoclass/pptx/ND@PPTX.tsf b/autoclass/pptx/ND@PPTX.tsf deleted file mode 100644 index 4aa985b..0000000 --- a/autoclass/pptx/ND@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type ND = 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 N read ReadXmlAttrN write WriteXmlAttrN; - property D read ReadXmlAttrD write WriteXmlAttrD; - function ReadXmlAttrN(); - function WriteXmlAttrN(_value); - function ReadXmlAttrD(); - function WriteXmlAttrD(_value); - -public - // Attributes - XmlAttrN; - XmlAttrD; - - // Children - -end; - -function ND.Create();overload; -begin - self.Create(nil, nil, ""); -end; - -function ND.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ND.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ND.Init();override; -begin - self.XmlAttrN := new OpenXmlAttribute(nil, "n", nil); - self.XmlAttrD := new OpenXmlAttribute(nil, "d", nil); -end; - -function ND.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrN, - self.XmlAttrD, - ); -end; - -function ND.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function ND.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 ND.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrN.Value) then - self.XmlAttrN.Value := _obj.XmlAttrN.Value; - if not ifnil(_obj.XmlAttrD.Value) then - self.XmlAttrD.Value := _obj.XmlAttrD.Value; -end; - -function ND.ReadXmlAttrN(); -begin - return self.XmlAttrN.Value; -end; - -function ND.WriteXmlAttrN(_value); -begin - self.XmlAttrN.Value := _value; -end; - -function ND.ReadXmlAttrD(); -begin - return self.XmlAttrD.Value; -end; - -function ND.WriteXmlAttrD(_value); -begin - self.XmlAttrD.Value := _value; -end; diff --git a/autoclass/pptx/NormalViewPr@PPTX.tsf b/autoclass/pptx/NormalViewPr@PPTX.tsf deleted file mode 100644 index 0a1510a..0000000 --- a/autoclass/pptx/NormalViewPr@PPTX.tsf +++ /dev/null @@ -1,122 +0,0 @@ -type NormalViewPr = 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 HorzBarState read ReadXmlAttrHorzBarState write WriteXmlAttrHorzBarState; - function ReadXmlAttrHorzBarState(); - function WriteXmlAttrHorzBarState(_value); - -public - // Attributes - XmlAttrHorzBarState; - - // Children - RestoredLeft; - RestoredTop; - -end; - -function NormalViewPr.Create();overload; -begin - self.Create(nil, "p", "normalViewPr"); -end; - -function NormalViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function NormalViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NormalViewPr.Init();override; -begin - self.XmlAttrHorzBarState := new OpenXmlAttribute(nil, "horzBarState", nil); - self.RestoredLeft := new Restored(self, self.Prefix, "restoredLeft"); - self.RestoredTop := new Restored(self, self.Prefix, "restoredTop"); -end; - -function NormalViewPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrHorzBarState, - ); -end; - -function NormalViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.RestoredLeft, - 1: self.RestoredTop, - ); - sorted_child_ := array( - "": -1, - self.RestoredLeft.ElementName: 0, - self.RestoredTop.ElementName: 1, - ); -end; - -function NormalViewPr.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; - 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 NormalViewPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrHorzBarState.Value) then - self.XmlAttrHorzBarState.Value := _obj.XmlAttrHorzBarState.Value; - self.RestoredLeft.Copy(_obj.RestoredLeft); - self.RestoredTop.Copy(_obj.RestoredTop); -end; - -function NormalViewPr.ReadXmlAttrHorzBarState(); -begin - return self.XmlAttrHorzBarState.Value; -end; - -function NormalViewPr.WriteXmlAttrHorzBarState(_value); -begin - self.XmlAttrHorzBarState.Value := _value; -end; diff --git a/autoclass/pptx/NotesTextViewPr@PPTX.tsf b/autoclass/pptx/NotesTextViewPr@PPTX.tsf deleted file mode 100644 index d9f6330..0000000 --- a/autoclass/pptx/NotesTextViewPr@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type NotesTextViewPr = 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; - -public - // Attributes - - // Children - CViewPr; - -end; - -function NotesTextViewPr.Create();overload; -begin - self.Create(nil, "p", "notesTextViewPr"); -end; - -function NotesTextViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function NotesTextViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NotesTextViewPr.Init();override; -begin - self.CViewPr := new CViewPr(self, self.Prefix, "cViewPr"); -end; - -function NotesTextViewPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function NotesTextViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.CViewPr, - ); - sorted_child_ := array( - "": -1, - self.CViewPr.ElementName: 0, - ); -end; - -function NotesTextViewPr.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; - 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 NotesTextViewPr.Copy(_obj);override; -begin - self.CViewPr.Copy(_obj.CViewPr); -end; diff --git a/autoclass/pptx/NvGrpSpPr@PPTX.tsf b/autoclass/pptx/NvGrpSpPr@PPTX.tsf deleted file mode 100644 index 48b924c..0000000 --- a/autoclass/pptx/NvGrpSpPr@PPTX.tsf +++ /dev/null @@ -1,135 +0,0 @@ -type NvGrpSpPr = 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 CNvGrpSpPr read ReadXmlChildCNvGrpSpPr write WriteXmlChildCNvGrpSpPr; - property NvPr read ReadXmlChildNvPr write WriteXmlChildNvPr; - function ReadXmlChildCNvGrpSpPr(); - function WriteXmlChildCNvGrpSpPr(_value); - function ReadXmlChildNvPr(); - function WriteXmlChildNvPr(_value); - -public - // Attributes - - // Children - CNvPr; - XmlChildCNvGrpSpPr; - XmlChildNvPr; - -end; - -function NvGrpSpPr.Create();overload; -begin - self.Create(nil, "p", "nvGrpSpPr"); -end; - -function NvGrpSpPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function NvGrpSpPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NvGrpSpPr.Init();override; -begin - self.CNvPr := new CNvPr(self, self.Prefix, "cNvPr"); - self.XmlChildCNvGrpSpPr := new OpenXmlEmpty(self, self.Prefix, "cNvGrpSpPr"); - self.XmlChildNvPr := new OpenXmlEmpty(self, self.Prefix, "nvPr"); -end; - -function NvGrpSpPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function NvGrpSpPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.CNvPr, - 1: self.XmlChildCNvGrpSpPr, - 2: self.XmlChildNvPr, - ); - sorted_child_ := array( - "": -1, - self.CNvPr.ElementName: 0, - self.XmlChildCNvGrpSpPr.ElementName: 1, - self.XmlChildNvPr.ElementName: 2, - ); -end; - -function NvGrpSpPr.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; - 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 NvGrpSpPr.Copy(_obj);override; -begin - self.CNvPr.Copy(_obj.CNvPr); - self.XmlChildCNvGrpSpPr.Copy(_obj.XmlChildCNvGrpSpPr); - self.XmlChildNvPr.Copy(_obj.XmlChildNvPr); -end; - -function NvGrpSpPr.ReadXmlChildCNvGrpSpPr(); -begin - return ifnil(self.XmlChildCNvGrpSpPr.Value) ? false : true; -end; - -function NvGrpSpPr.WriteXmlChildCNvGrpSpPr(_value); -begin - self.XmlChildCNvGrpSpPr.Value := _value; -end; - -function NvGrpSpPr.ReadXmlChildNvPr(); -begin - return ifnil(self.XmlChildNvPr.Value) ? false : true; -end; - -function NvGrpSpPr.WriteXmlChildNvPr(_value); -begin - self.XmlChildNvPr.Value := _value; -end; diff --git a/autoclass/pptx/NvPr@PPTX.tsf b/autoclass/pptx/NvPr@PPTX.tsf deleted file mode 100644 index 0e2d22e..0000000 --- a/autoclass/pptx/NvPr@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type NvPr = 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; - -public - // Attributes - - // Children - Ph; - -end; - -function NvPr.Create();overload; -begin - self.Create(nil, "p", "nvPr"); -end; - -function NvPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function NvPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NvPr.Init();override; -begin - self.Ph := new Ph(self, self.Prefix, "ph"); -end; - -function NvPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function NvPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.Ph, - ); - sorted_child_ := array( - "": -1, - self.Ph.ElementName: 0, - ); -end; - -function NvPr.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; - 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 NvPr.Copy(_obj);override; -begin - self.Ph.Copy(_obj.Ph); -end; diff --git a/autoclass/pptx/NvSpPr@PPTX.tsf b/autoclass/pptx/NvSpPr@PPTX.tsf deleted file mode 100644 index b177294..0000000 --- a/autoclass/pptx/NvSpPr@PPTX.tsf +++ /dev/null @@ -1,108 +0,0 @@ -type NvSpPr = 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; - -public - // Attributes - - // Children - CNvPr; - CNvSpPr; - NvPr; - -end; - -function NvSpPr.Create();overload; -begin - self.Create(nil, "p", "nvSpPr"); -end; - -function NvSpPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function NvSpPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NvSpPr.Init();override; -begin - self.CNvPr := new CNvPr(self, self.Prefix, "cNvPr"); - self.CNvSpPr := new CNvSpPr(self, self.Prefix, "cNvSpPr"); - self.NvPr := new NvPr(self, self.Prefix, "nvPr"); -end; - -function NvSpPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function NvSpPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.CNvPr, - 1: self.CNvSpPr, - 2: self.NvPr, - ); - sorted_child_ := array( - "": -1, - self.CNvPr.ElementName: 0, - self.CNvSpPr.ElementName: 1, - self.NvPr.ElementName: 2, - ); -end; - -function NvSpPr.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; - 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 NvSpPr.Copy(_obj);override; -begin - self.CNvPr.Copy(_obj.CNvPr); - self.CNvSpPr.Copy(_obj.CNvSpPr); - self.NvPr.Copy(_obj.NvPr); -end; diff --git a/autoclass/pptx/OuterShdw@PPTX.tsf b/autoclass/pptx/OuterShdw@PPTX.tsf deleted file mode 100644 index 8ef30e5..0000000 --- a/autoclass/pptx/OuterShdw@PPTX.tsf +++ /dev/null @@ -1,189 +0,0 @@ -type OuterShdw = 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 BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad; - property Dist read ReadXmlAttrDist write WriteXmlAttrDist; - property Dir read ReadXmlAttrDir write WriteXmlAttrDir; - property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; - property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; - function ReadXmlAttrBlurRad(); - function WriteXmlAttrBlurRad(_value); - function ReadXmlAttrDist(); - function WriteXmlAttrDist(_value); - function ReadXmlAttrDir(); - function WriteXmlAttrDir(_value); - function ReadXmlAttrAlgn(); - function WriteXmlAttrAlgn(_value); - function ReadXmlAttrRotWithShape(); - function WriteXmlAttrRotWithShape(_value); - -public - // Attributes - XmlAttrBlurRad; - XmlAttrDist; - XmlAttrDir; - XmlAttrAlgn; - XmlAttrRotWithShape; - - // Children - SrgbClr; - -end; - -function OuterShdw.Create();overload; -begin - self.Create(nil, "a", "outerShdw"); -end; - -function OuterShdw.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function OuterShdw.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function OuterShdw.Init();override; -begin - self.XmlAttrBlurRad := new OpenXmlAttribute(nil, "blurRad", nil); - self.XmlAttrDist := new OpenXmlAttribute(nil, "dist", nil); - self.XmlAttrDir := new OpenXmlAttribute(nil, "dir", nil); - self.XmlAttrAlgn := new OpenXmlAttribute(nil, "algn", nil); - self.XmlAttrRotWithShape := new OpenXmlAttribute(nil, "rotWithShape", nil); - self.SrgbClr := new SrgbClr(self, self.Prefix, "srgbClr"); -end; - -function OuterShdw.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrBlurRad, - self.XmlAttrDist, - self.XmlAttrDir, - self.XmlAttrAlgn, - self.XmlAttrRotWithShape, - ); -end; - -function OuterShdw.InitChildren();override; -begin - child_elements_ := array( - 0: self.SrgbClr, - ); - sorted_child_ := array( - "": -1, - self.SrgbClr.ElementName: 0, - ); -end; - -function OuterShdw.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; - 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 OuterShdw.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrBlurRad.Value) then - self.XmlAttrBlurRad.Value := _obj.XmlAttrBlurRad.Value; - if not ifnil(_obj.XmlAttrDist.Value) then - self.XmlAttrDist.Value := _obj.XmlAttrDist.Value; - if not ifnil(_obj.XmlAttrDir.Value) then - self.XmlAttrDir.Value := _obj.XmlAttrDir.Value; - if not ifnil(_obj.XmlAttrAlgn.Value) then - self.XmlAttrAlgn.Value := _obj.XmlAttrAlgn.Value; - if not ifnil(_obj.XmlAttrRotWithShape.Value) then - self.XmlAttrRotWithShape.Value := _obj.XmlAttrRotWithShape.Value; - self.SrgbClr.Copy(_obj.SrgbClr); -end; - -function OuterShdw.ReadXmlAttrBlurRad(); -begin - return self.XmlAttrBlurRad.Value; -end; - -function OuterShdw.WriteXmlAttrBlurRad(_value); -begin - self.XmlAttrBlurRad.Value := _value; -end; - -function OuterShdw.ReadXmlAttrDist(); -begin - return self.XmlAttrDist.Value; -end; - -function OuterShdw.WriteXmlAttrDist(_value); -begin - self.XmlAttrDist.Value := _value; -end; - -function OuterShdw.ReadXmlAttrDir(); -begin - return self.XmlAttrDir.Value; -end; - -function OuterShdw.WriteXmlAttrDir(_value); -begin - self.XmlAttrDir.Value := _value; -end; - -function OuterShdw.ReadXmlAttrAlgn(); -begin - return self.XmlAttrAlgn.Value; -end; - -function OuterShdw.WriteXmlAttrAlgn(_value); -begin - self.XmlAttrAlgn.Value := _value; -end; - -function OuterShdw.ReadXmlAttrRotWithShape(); -begin - return self.XmlAttrRotWithShape.Value; -end; - -function OuterShdw.WriteXmlAttrRotWithShape(_value); -begin - self.XmlAttrRotWithShape.Value := _value; -end; diff --git a/autoclass/pptx/P@PPTX.tsf b/autoclass/pptx/P@PPTX.tsf deleted file mode 100644 index 5e71e16..0000000 --- a/autoclass/pptx/P@PPTX.tsf +++ /dev/null @@ -1,150 +0,0 @@ -type P = 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; - function AddR(); - function AppendR(); - - property Rs read ReadRs; - function ReadRs(_index); - -public - // Attributes - - // Children - PPr; - Fld; - EndParaRPr; - -end; - -function P.Create();overload; -begin - self.Create(nil, "a", "p"); -end; - -function P.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function P.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function P.Init();override; -begin - self.PPr := new RPr(self, self.Prefix, "pPr"); - self.Fld := new Fld(self, self.Prefix, "fld"); - self.EndParaRPr := new RPr(self, self.Prefix, "endParaRPr"); -end; - -function P.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function P.InitChildren();override; -begin - child_elements_ := array( - 0: self.PPr, - 1: self.Fld, - 2: self.EndParaRPr, - ); - sorted_child_ := array( - "": -1, - self.PPr.ElementName: 0, - self.Fld.ElementName: 1, - self.EndParaRPr.ElementName: 2, - ); -end; - -function P.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; - 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 + "r": obj := self.AppendR(); - 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 P.Copy(_obj);override; -begin - self.PPr.Copy(_obj.PPr); - self.Fld.Copy(_obj.Fld); - self.EndParaRPr.Copy(_obj.EndParaRPr); -end; - -function P.AddR(); -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 = "r" then break; - end - obj := new R(self, self.Prefix, "r"); - self.InsertChild(obj, i+1); - return obj; -end; - -function P.AppendR(); -begin - obj := new R(self, self.Prefix, "r"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function P.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "r" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/Ph@PPTX.tsf b/autoclass/pptx/Ph@PPTX.tsf deleted file mode 100644 index 09e9c4d..0000000 --- a/autoclass/pptx/Ph@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type Ph = 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 Type read ReadXmlAttrType write WriteXmlAttrType; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - function ReadXmlAttrIdx(); - function WriteXmlAttrIdx(_value); - -public - // Attributes - XmlAttrType; - XmlAttrSz; - XmlAttrIdx; - - // Children - -end; - -function Ph.Create();overload; -begin - self.Create(nil, "p", "ph"); -end; - -function Ph.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Ph.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ph.Init();override; -begin - self.XmlAttrType := new OpenXmlAttribute(nil, "type", nil); - self.XmlAttrSz := new OpenXmlAttribute(nil, "sz", nil); - self.XmlAttrIdx := new OpenXmlAttribute(nil, "idx", nil); -end; - -function Ph.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrType, - self.XmlAttrSz, - self.XmlAttrIdx, - ); -end; - -function Ph.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Ph.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 Ph.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrType.Value) then - self.XmlAttrType.Value := _obj.XmlAttrType.Value; - if not ifnil(_obj.XmlAttrSz.Value) then - self.XmlAttrSz.Value := _obj.XmlAttrSz.Value; - if not ifnil(_obj.XmlAttrIdx.Value) then - self.XmlAttrIdx.Value := _obj.XmlAttrIdx.Value; -end; - -function Ph.ReadXmlAttrType(); -begin - return self.XmlAttrType.Value; -end; - -function Ph.WriteXmlAttrType(_value); -begin - self.XmlAttrType.Value := _value; -end; - -function Ph.ReadXmlAttrSz(); -begin - return self.XmlAttrSz.Value; -end; - -function Ph.WriteXmlAttrSz(_value); -begin - self.XmlAttrSz.Value := _value; -end; - -function Ph.ReadXmlAttrIdx(); -begin - return self.XmlAttrIdx.Value; -end; - -function Ph.WriteXmlAttrIdx(_value); -begin - self.XmlAttrIdx.Value := _value; -end; diff --git a/autoclass/pptx/Presentation@PPTX.tsf b/autoclass/pptx/Presentation@PPTX.tsf deleted file mode 100644 index 00ba009..0000000 --- a/autoclass/pptx/Presentation@PPTX.tsf +++ /dev/null @@ -1,191 +0,0 @@ -type Presentation = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - property SaveSubsetFonts read ReadXmlAttrSaveSubsetFonts write WriteXmlAttrSaveSubsetFonts; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - function ReadXmlAttrSaveSubsetFonts(); - function WriteXmlAttrSaveSubsetFonts(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - XmlAttrSaveSubsetFonts; - - // Children - SldMasterIdLst; - SldIdLst; - SldSz; - NotesSz; - DefaultTextStyle; - -end; - -function Presentation.Create();overload; -begin - self.Create(nil, "p", "presentation"); -end; - -function Presentation.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Presentation.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Presentation.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.XmlAttrSaveSubsetFonts := new OpenXmlAttribute(nil, "saveSubsetFonts", nil); - self.SldMasterIdLst := new SldMasterIdLst(self, self.Prefix, "sldMasterIdLst"); - self.SldIdLst := new SldIdLst(self, self.Prefix, "sldIdLst"); - self.SldSz := new CXY(self, self.Prefix, "sldSz"); - self.NotesSz := new CXY(self, self.Prefix, "notesSz"); - self.DefaultTextStyle := new DefaultTextStyle(self, self.Prefix, "defaultTextStyle"); -end; - -function Presentation.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - self.XmlAttrSaveSubsetFonts, - ); -end; - -function Presentation.InitChildren();override; -begin - child_elements_ := array( - 0: self.SldMasterIdLst, - 1: self.SldIdLst, - 2: self.SldSz, - 3: self.NotesSz, - 4: self.DefaultTextStyle, - ); - sorted_child_ := array( - "": -1, - self.SldMasterIdLst.ElementName: 0, - self.SldIdLst.ElementName: 1, - self.SldSz.ElementName: 2, - self.NotesSz.ElementName: 3, - self.DefaultTextStyle.ElementName: 4, - ); -end; - -function Presentation.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; - 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 Presentation.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - if not ifnil(_obj.XmlAttrSaveSubsetFonts.Value) then - self.XmlAttrSaveSubsetFonts.Value := _obj.XmlAttrSaveSubsetFonts.Value; - self.SldMasterIdLst.Copy(_obj.SldMasterIdLst); - self.SldIdLst.Copy(_obj.SldIdLst); - self.SldSz.Copy(_obj.SldSz); - self.NotesSz.Copy(_obj.NotesSz); - self.DefaultTextStyle.Copy(_obj.DefaultTextStyle); -end; - -function Presentation.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function Presentation.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function Presentation.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function Presentation.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function Presentation.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function Presentation.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; - -function Presentation.ReadXmlAttrSaveSubsetFonts(); -begin - return self.XmlAttrSaveSubsetFonts.Value; -end; - -function Presentation.WriteXmlAttrSaveSubsetFonts(_value); -begin - self.XmlAttrSaveSubsetFonts.Value := _value; -end; diff --git a/autoclass/pptx/PresnetationPr@PPTX.tsf b/autoclass/pptx/PresnetationPr@PPTX.tsf deleted file mode 100644 index 44846cf..0000000 --- a/autoclass/pptx/PresnetationPr@PPTX.tsf +++ /dev/null @@ -1,153 +0,0 @@ -type PresnetationPr = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - - // Children - ExtLst; - -end; - -function PresnetationPr.Create();overload; -begin - self.Create(nil, "p", "presentationPr"); -end; - -function PresnetationPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function PresnetationPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PresnetationPr.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.ExtLst := new ExtLst(self, self.Prefix, "extLst"); -end; - -function PresnetationPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - ); -end; - -function PresnetationPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.ExtLst, - ); - sorted_child_ := array( - "": -1, - self.ExtLst.ElementName: 0, - ); -end; - -function PresnetationPr.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; - 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 PresnetationPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - self.ExtLst.Copy(_obj.ExtLst); -end; - -function PresnetationPr.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function PresnetationPr.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function PresnetationPr.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function PresnetationPr.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function PresnetationPr.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function PresnetationPr.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; diff --git a/autoclass/pptx/Properties@PPTX.tsf b/autoclass/pptx/Properties@PPTX.tsf deleted file mode 100644 index 7873097..0000000 --- a/autoclass/pptx/Properties@PPTX.tsf +++ /dev/null @@ -1,215 +0,0 @@ -type Properties = 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 Xmlns read ReadXmlAttrXmlns write WriteXmlAttrXmlns; - property XmlnsVt read ReadXmlAttrXmlnsVt write WriteXmlAttrXmlnsVt; - function ReadXmlAttrXmlns(); - function WriteXmlAttrXmlns(_value); - function ReadXmlAttrXmlnsVt(); - function WriteXmlAttrXmlnsVt(_value); - -public - // Attributes - XmlAttrXmlns; - XmlAttrXmlnsVt; - - // Children - TotalTime; - Words; - Application; - PresentationFormat; - Paragraphs; - Slides; - Notes; - HiddenSlides; - MMClips; - ScaleCrop; - HeadingPairs; - TitlesOfParts; - Company; - LinksUpToDate; - SharedDoc; - HyperlinksChanged; - AppVersion; - -end; - -function Properties.Create();overload; -begin - self.Create(nil, nil, "Properties"); -end; - -function Properties.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Properties.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Properties.Init();override; -begin - self.XmlAttrXmlns := new OpenXmlAttribute(nil, "xmlns", "http://schemas.openxmlformats.org/officeDocument/2006/extended-properties"); - self.XmlAttrXmlnsVt := new OpenXmlAttribute("xmlns", "vt", "http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"); - self.TotalTime := new OpenXmlPcdata(self, nil, "TotalTime"); - self.Words := new OpenXmlPcdata(self, nil, "Words"); - self.Application := new OpenXmlPcdata(self, nil, "Application"); - self.PresentationFormat := new OpenXmlPcdata(self, nil, "PresentationFormat"); - self.Paragraphs := new OpenXmlPcdata(self, nil, "Paragraphs"); - self.Slides := new OpenXmlPcdata(self, nil, "Slides"); - self.Notes := new OpenXmlPcdata(self, nil, "Notes"); - self.HiddenSlides := new OpenXmlPcdata(self, nil, "HiddenSlides"); - self.MMClips := new OpenXmlPcdata(self, nil, "MMClips"); - self.ScaleCrop := new OpenXmlPcdata(self, nil, "ScaleCrop"); - self.HeadingPairs := new HeadingPairs(self, nil, "HeadingPairs"); - self.TitlesOfParts := new TitlesOfParts(self, nil, "TitlesOfParts"); - self.Company := new OpenXmlPcdata(self, nil, "Company"); - self.LinksUpToDate := new OpenXmlPcdata(self, nil, "LinksUpToDate"); - self.SharedDoc := new OpenXmlPcdata(self, nil, "SharedDoc"); - self.HyperlinksChanged := new OpenXmlPcdata(self, nil, "HyperlinksChanged"); - self.AppVersion := new OpenXmlPcdata(self, nil, "AppVersion"); -end; - -function Properties.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlns, - self.XmlAttrXmlnsVt, - ); -end; - -function Properties.InitChildren();override; -begin - child_elements_ := array( - 0: self.TotalTime, - 1: self.Words, - 2: self.Application, - 3: self.PresentationFormat, - 4: self.Paragraphs, - 5: self.Slides, - 6: self.Notes, - 7: self.HiddenSlides, - 8: self.MMClips, - 9: self.ScaleCrop, - 10: self.HeadingPairs, - 11: self.TitlesOfParts, - 12: self.Company, - 13: self.LinksUpToDate, - 14: self.SharedDoc, - 15: self.HyperlinksChanged, - 16: self.AppVersion, - ); - sorted_child_ := array( - "": -1, - self.TotalTime.ElementName: 0, - self.Words.ElementName: 1, - self.Application.ElementName: 2, - self.PresentationFormat.ElementName: 3, - self.Paragraphs.ElementName: 4, - self.Slides.ElementName: 5, - self.Notes.ElementName: 6, - self.HiddenSlides.ElementName: 7, - self.MMClips.ElementName: 8, - self.ScaleCrop.ElementName: 9, - self.HeadingPairs.ElementName: 10, - self.TitlesOfParts.ElementName: 11, - self.Company.ElementName: 12, - self.LinksUpToDate.ElementName: 13, - self.SharedDoc.ElementName: 14, - self.HyperlinksChanged.ElementName: 15, - self.AppVersion.ElementName: 16, - ); -end; - -function Properties.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; - 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 Properties.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlns.Value) then - self.XmlAttrXmlns.Value := _obj.XmlAttrXmlns.Value; - if not ifnil(_obj.XmlAttrXmlnsVt.Value) then - self.XmlAttrXmlnsVt.Value := _obj.XmlAttrXmlnsVt.Value; - self.TotalTime.Copy(_obj.TotalTime); - self.Words.Copy(_obj.Words); - self.Application.Copy(_obj.Application); - self.PresentationFormat.Copy(_obj.PresentationFormat); - self.Paragraphs.Copy(_obj.Paragraphs); - self.Slides.Copy(_obj.Slides); - self.Notes.Copy(_obj.Notes); - self.HiddenSlides.Copy(_obj.HiddenSlides); - self.MMClips.Copy(_obj.MMClips); - self.ScaleCrop.Copy(_obj.ScaleCrop); - self.HeadingPairs.Copy(_obj.HeadingPairs); - self.TitlesOfParts.Copy(_obj.TitlesOfParts); - self.Company.Copy(_obj.Company); - self.LinksUpToDate.Copy(_obj.LinksUpToDate); - self.SharedDoc.Copy(_obj.SharedDoc); - self.HyperlinksChanged.Copy(_obj.HyperlinksChanged); - self.AppVersion.Copy(_obj.AppVersion); -end; - -function Properties.ReadXmlAttrXmlns(); -begin - return self.XmlAttrXmlns.Value; -end; - -function Properties.WriteXmlAttrXmlns(_value); -begin - self.XmlAttrXmlns.Value := _value; -end; - -function Properties.ReadXmlAttrXmlnsVt(); -begin - return self.XmlAttrXmlnsVt.Value; -end; - -function Properties.WriteXmlAttrXmlnsVt(_value); -begin - self.XmlAttrXmlnsVt.Value := _value; -end; diff --git a/autoclass/pptx/PrstGeom@PPTX.tsf b/autoclass/pptx/PrstGeom@PPTX.tsf deleted file mode 100644 index 77dd706..0000000 --- a/autoclass/pptx/PrstGeom@PPTX.tsf +++ /dev/null @@ -1,131 +0,0 @@ -type PrstGeom = 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 Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; - function ReadXmlAttrPrst(); - function WriteXmlAttrPrst(_value); - - property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; - function ReadXmlChildAvLst(); - function WriteXmlChildAvLst(_value); - -public - // Attributes - XmlAttrPrst; - - // Children - XmlChildAvLst; - -end; - -function PrstGeom.Create();overload; -begin - self.Create(nil, "a", "prstGeom"); -end; - -function PrstGeom.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function PrstGeom.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PrstGeom.Init();override; -begin - self.XmlAttrPrst := new OpenXmlAttribute(nil, "prst", nil); - self.XmlChildAvLst := new OpenXmlEmpty(self, self.Prefix, "avLst"); -end; - -function PrstGeom.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrPrst, - ); -end; - -function PrstGeom.InitChildren();override; -begin - child_elements_ := array( - 0: self.XmlChildAvLst, - ); - sorted_child_ := array( - "": -1, - self.XmlChildAvLst.ElementName: 0, - ); -end; - -function PrstGeom.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; - 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 PrstGeom.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrPrst.Value) then - self.XmlAttrPrst.Value := _obj.XmlAttrPrst.Value; - self.XmlChildAvLst.Copy(_obj.XmlChildAvLst); -end; - -function PrstGeom.ReadXmlAttrPrst(); -begin - return self.XmlAttrPrst.Value; -end; - -function PrstGeom.WriteXmlAttrPrst(_value); -begin - self.XmlAttrPrst.Value := _value; -end; - -function PrstGeom.ReadXmlChildAvLst(); -begin - return ifnil(self.XmlChildAvLst.Value) ? false : true; -end; - -function PrstGeom.WriteXmlChildAvLst(_value); -begin - self.XmlChildAvLst.Value := _value; -end; diff --git a/autoclass/pptx/PureVal@PPTX.tsf b/autoclass/pptx/PureVal@PPTX.tsf deleted file mode 100644 index a4bfcc2..0000000 --- a/autoclass/pptx/PureVal@PPTX.tsf +++ /dev/null @@ -1,81 +0,0 @@ -type PureVal = 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 Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal; - - // Children - -end; - -function PureVal.Create();overload; -begin - self.Create(nil, nil, ""); -end; - -function PureVal.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function PureVal.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PureVal.Init();override; -begin - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); -end; - -function PureVal.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVal, - ); -end; - -function PureVal.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function PureVal.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 PureVal.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; -end; - -function PureVal.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function PureVal.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; diff --git a/autoclass/pptx/R@PPTX.tsf b/autoclass/pptx/R@PPTX.tsf deleted file mode 100644 index c535169..0000000 --- a/autoclass/pptx/R@PPTX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type R = 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; - -public - // Attributes - - // Children - RPr; - T; - -end; - -function R.Create();overload; -begin - self.Create(nil, nil, "r"); -end; - -function R.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function R.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function R.Init();override; -begin - self.RPr := new RPr(self, self.Prefix, "rPr"); - self.T := new OpenXmlPcdata(self, self.Prefix, "t"); -end; - -function R.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function R.InitChildren();override; -begin - child_elements_ := array( - 0: self.RPr, - 1: self.T, - ); - sorted_child_ := array( - "": -1, - self.RPr.ElementName: 0, - self.T.ElementName: 1, - ); -end; - -function R.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; - 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 R.Copy(_obj);override; -begin - self.RPr.Copy(_obj.RPr); - self.T.Copy(_obj.T); -end; diff --git a/autoclass/pptx/RPr@PPTX.tsf b/autoclass/pptx/RPr@PPTX.tsf deleted file mode 100644 index 09938bb..0000000 --- a/autoclass/pptx/RPr@PPTX.tsf +++ /dev/null @@ -1,153 +0,0 @@ -type RPr = 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 Lvl read ReadXmlAttrLvl write WriteXmlAttrLvl; - property Lang read ReadXmlAttrLang write WriteXmlAttrLang; - property AltLang read ReadXmlAttrAltLang write WriteXmlAttrAltLang; - property Dirty read ReadXmlAttrDirty write WriteXmlAttrDirty; - property SmtClean read ReadXmlAttrSmtClean write WriteXmlAttrSmtClean; - function ReadXmlAttrLvl(); - function WriteXmlAttrLvl(_value); - function ReadXmlAttrLang(); - function WriteXmlAttrLang(_value); - function ReadXmlAttrAltLang(); - function WriteXmlAttrAltLang(_value); - function ReadXmlAttrDirty(); - function WriteXmlAttrDirty(_value); - function ReadXmlAttrSmtClean(); - function WriteXmlAttrSmtClean(_value); - -public - // Attributes - XmlAttrLvl; - XmlAttrLang; - XmlAttrAltLang; - XmlAttrDirty; - XmlAttrSmtClean; - - // Children - -end; - -function RPr.Create();overload; -begin - self.Create(nil, "a", "rPr"); -end; - -function RPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function RPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function RPr.Init();override; -begin - self.XmlAttrLvl := new OpenXmlAttribute(nil, "lvl", nil); - self.XmlAttrLang := new OpenXmlAttribute(nil, "lang", nil); - self.XmlAttrAltLang := new OpenXmlAttribute(nil, "altLang", nil); - self.XmlAttrDirty := new OpenXmlAttribute(nil, "dirty", nil); - self.XmlAttrSmtClean := new OpenXmlAttribute(nil, "smtClean", nil); -end; - -function RPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrLvl, - self.XmlAttrLang, - self.XmlAttrAltLang, - self.XmlAttrDirty, - self.XmlAttrSmtClean, - ); -end; - -function RPr.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function RPr.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 RPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrLvl.Value) then - self.XmlAttrLvl.Value := _obj.XmlAttrLvl.Value; - if not ifnil(_obj.XmlAttrLang.Value) then - self.XmlAttrLang.Value := _obj.XmlAttrLang.Value; - if not ifnil(_obj.XmlAttrAltLang.Value) then - self.XmlAttrAltLang.Value := _obj.XmlAttrAltLang.Value; - if not ifnil(_obj.XmlAttrDirty.Value) then - self.XmlAttrDirty.Value := _obj.XmlAttrDirty.Value; - if not ifnil(_obj.XmlAttrSmtClean.Value) then - self.XmlAttrSmtClean.Value := _obj.XmlAttrSmtClean.Value; -end; - -function RPr.ReadXmlAttrLvl(); -begin - return self.XmlAttrLvl.Value; -end; - -function RPr.WriteXmlAttrLvl(_value); -begin - self.XmlAttrLvl.Value := _value; -end; - -function RPr.ReadXmlAttrLang(); -begin - return self.XmlAttrLang.Value; -end; - -function RPr.WriteXmlAttrLang(_value); -begin - self.XmlAttrLang.Value := _value; -end; - -function RPr.ReadXmlAttrAltLang(); -begin - return self.XmlAttrAltLang.Value; -end; - -function RPr.WriteXmlAttrAltLang(_value); -begin - self.XmlAttrAltLang.Value := _value; -end; - -function RPr.ReadXmlAttrDirty(); -begin - return self.XmlAttrDirty.Value; -end; - -function RPr.WriteXmlAttrDirty(_value); -begin - self.XmlAttrDirty.Value := _value; -end; - -function RPr.ReadXmlAttrSmtClean(); -begin - return self.XmlAttrSmtClean.Value; -end; - -function RPr.WriteXmlAttrSmtClean(_value); -begin - self.XmlAttrSmtClean.Value := _value; -end; diff --git a/autoclass/pptx/Relationship@PPTX.tsf b/autoclass/pptx/Relationship@PPTX.tsf deleted file mode 100644 index 01408bc..0000000 --- a/autoclass/pptx/Relationship@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type Relationship = 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 Id read ReadXmlAttrId write WriteXmlAttrId; - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Target read ReadXmlAttrTarget write WriteXmlAttrTarget; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrTarget(); - function WriteXmlAttrTarget(_value); - -public - // Attributes - XmlAttrId; - XmlAttrType; - XmlAttrTarget; - - // Children - -end; - -function Relationship.Create();overload; -begin - self.Create(nil, nil, "Relationship"); -end; - -function Relationship.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Relationship.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Relationship.Init();override; -begin - self.XmlAttrId := new OpenXmlAttribute(nil, "Id", nil); - self.XmlAttrType := new OpenXmlAttribute(nil, "Type", nil); - self.XmlAttrTarget := new OpenXmlAttribute(nil, "Target", nil); -end; - -function Relationship.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrId, - self.XmlAttrType, - self.XmlAttrTarget, - ); -end; - -function Relationship.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Relationship.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 Relationship.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrId.Value) then - self.XmlAttrId.Value := _obj.XmlAttrId.Value; - if not ifnil(_obj.XmlAttrType.Value) then - self.XmlAttrType.Value := _obj.XmlAttrType.Value; - if not ifnil(_obj.XmlAttrTarget.Value) then - self.XmlAttrTarget.Value := _obj.XmlAttrTarget.Value; -end; - -function Relationship.ReadXmlAttrId(); -begin - return self.XmlAttrId.Value; -end; - -function Relationship.WriteXmlAttrId(_value); -begin - self.XmlAttrId.Value := _value; -end; - -function Relationship.ReadXmlAttrType(); -begin - return self.XmlAttrType.Value; -end; - -function Relationship.WriteXmlAttrType(_value); -begin - self.XmlAttrType.Value := _value; -end; - -function Relationship.ReadXmlAttrTarget(); -begin - return self.XmlAttrTarget.Value; -end; - -function Relationship.WriteXmlAttrTarget(_value); -begin - self.XmlAttrTarget.Value := _value; -end; diff --git a/autoclass/pptx/Relationships@PPTX.tsf b/autoclass/pptx/Relationships@PPTX.tsf deleted file mode 100644 index 892b07f..0000000 --- a/autoclass/pptx/Relationships@PPTX.tsf +++ /dev/null @@ -1,154 +0,0 @@ -type Relationships = 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; - function AddRelationship(); - function AppendRelationship(); - - property Relationships read ReadRelationships; - function ReadRelationships(_index); - - property xmlns read ReadXmlAttrxmlns write WriteXmlAttrxmlns; - function ReadXmlAttrxmlns(); - function WriteXmlAttrxmlns(_value); - -public - // Attributes - XmlAttrxmlns; - - // Children - -end; - -function Relationships.Create();overload; -begin - self.Create(nil, nil, "Relationships"); -end; - -function Relationships.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Relationships.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Relationships.Init();override; -begin - self.XmlAttrxmlns := new OpenXmlAttribute(nil, "xmlns", "http://schemas.openxmlformats.org/package/2006/relationships"); -end; - -function Relationships.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrxmlns, - ); -end; - -function Relationships.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Relationships.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; - 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 - "Relationship": obj := self.AppendRelationship(); - 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 Relationships.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrxmlns.Value) then - self.XmlAttrxmlns.Value := _obj.XmlAttrxmlns.Value; -end; - -function Relationships.AddRelationship(); -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 = "Relationship" then break; - end - obj := new Relationship(self, nil, "Relationship"); - self.InsertChild(obj, i+1); - return obj; -end; - -function Relationships.AppendRelationship(); -begin - obj := new Relationship(self, nil, "Relationship"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function Relationships.ReadRelationships(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "Relationship" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; - -function Relationships.ReadXmlAttrxmlns(); -begin - return self.XmlAttrxmlns.Value; -end; - -function Relationships.WriteXmlAttrxmlns(_value); -begin - self.XmlAttrxmlns.Value := _value; -end; diff --git a/autoclass/pptx/Restored@PPTX.tsf b/autoclass/pptx/Restored@PPTX.tsf deleted file mode 100644 index 0700475..0000000 --- a/autoclass/pptx/Restored@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type Restored = 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 Sz read ReadXmlAttrSz write WriteXmlAttrSz; - property AutoAdjust read ReadXmlAttrAutoAdjust write WriteXmlAttrAutoAdjust; - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - function ReadXmlAttrAutoAdjust(); - function WriteXmlAttrAutoAdjust(_value); - -public - // Attributes - XmlAttrSz; - XmlAttrAutoAdjust; - - // Children - -end; - -function Restored.Create();overload; -begin - self.Create(nil, "p", ""); -end; - -function Restored.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Restored.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Restored.Init();override; -begin - self.XmlAttrSz := new OpenXmlAttribute(nil, "sz", nil); - self.XmlAttrAutoAdjust := new OpenXmlAttribute(nil, "autoAdjust", nil); -end; - -function Restored.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrSz, - self.XmlAttrAutoAdjust, - ); -end; - -function Restored.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Restored.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 Restored.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrSz.Value) then - self.XmlAttrSz.Value := _obj.XmlAttrSz.Value; - if not ifnil(_obj.XmlAttrAutoAdjust.Value) then - self.XmlAttrAutoAdjust.Value := _obj.XmlAttrAutoAdjust.Value; -end; - -function Restored.ReadXmlAttrSz(); -begin - return self.XmlAttrSz.Value; -end; - -function Restored.WriteXmlAttrSz(_value); -begin - self.XmlAttrSz.Value := _value; -end; - -function Restored.ReadXmlAttrAutoAdjust(); -begin - return self.XmlAttrAutoAdjust.Value; -end; - -function Restored.WriteXmlAttrAutoAdjust(_value); -begin - self.XmlAttrAutoAdjust.Value := _value; -end; diff --git a/autoclass/pptx/Scale@PPTX.tsf b/autoclass/pptx/Scale@PPTX.tsf deleted file mode 100644 index a7707f8..0000000 --- a/autoclass/pptx/Scale@PPTX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type Scale = 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; - -public - // Attributes - - // Children - SX; - SY; - -end; - -function Scale.Create();overload; -begin - self.Create(nil, "p", "scale"); -end; - -function Scale.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Scale.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Scale.Init();override; -begin - self.SX := new ND(self, "a", "sx"); - self.SY := new ND(self, "a", "sy"); -end; - -function Scale.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Scale.InitChildren();override; -begin - child_elements_ := array( - 0: self.SX, - 1: self.SY, - ); - sorted_child_ := array( - "": -1, - self.SX.ElementName: 0, - self.SY.ElementName: 1, - ); -end; - -function Scale.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; - 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 Scale.Copy(_obj);override; -begin - self.SX.Copy(_obj.SX); - self.SY.Copy(_obj.SY); -end; diff --git a/autoclass/pptx/SchemeClr@PPTX.tsf b/autoclass/pptx/SchemeClr@PPTX.tsf deleted file mode 100644 index 7af8881..0000000 --- a/autoclass/pptx/SchemeClr@PPTX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type SchemeClr = 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 Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal; - - // Children - LumMod; - SatMod; - Tint; - -end; - -function SchemeClr.Create();overload; -begin - self.Create(nil, "a", "schemeClr"); -end; - -function SchemeClr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SchemeClr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SchemeClr.Init();override; -begin - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); - self.LumMod := new PureVal(self, self.Prefix, "lumMod"); - self.SatMod := new PureVal(self, self.Prefix, "satMod"); - self.Tint := new PureVal(self, self.Prefix, "tint"); -end; - -function SchemeClr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVal, - ); -end; - -function SchemeClr.InitChildren();override; -begin - child_elements_ := array( - 0: self.LumMod, - 1: self.SatMod, - 2: self.Tint, - ); - sorted_child_ := array( - "": -1, - self.LumMod.ElementName: 0, - self.SatMod.ElementName: 1, - self.Tint.ElementName: 2, - ); -end; - -function SchemeClr.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; - 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 SchemeClr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; - self.LumMod.Copy(_obj.LumMod); - self.SatMod.Copy(_obj.SatMod); - self.Tint.Copy(_obj.Tint); -end; - -function SchemeClr.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function SchemeClr.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; diff --git a/autoclass/pptx/Sld@PPTX.tsf b/autoclass/pptx/Sld@PPTX.tsf deleted file mode 100644 index 8e64800..0000000 --- a/autoclass/pptx/Sld@PPTX.tsf +++ /dev/null @@ -1,158 +0,0 @@ -type Sld = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - - // Children - CSld; - ClrMapOvr; - -end; - -function Sld.Create();overload; -begin - self.Create(nil, "p", "sld"); -end; - -function Sld.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Sld.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Sld.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.CSld := new CSld(self, self.Prefix, "cSld"); - self.ClrMapOvr := new ClrMapOvr(self, self.Prefix, "clrMapOvr"); -end; - -function Sld.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - ); -end; - -function Sld.InitChildren();override; -begin - child_elements_ := array( - 0: self.CSld, - 1: self.ClrMapOvr, - ); - sorted_child_ := array( - "": -1, - self.CSld.ElementName: 0, - self.ClrMapOvr.ElementName: 1, - ); -end; - -function Sld.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; - 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 Sld.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - self.CSld.Copy(_obj.CSld); - self.ClrMapOvr.Copy(_obj.ClrMapOvr); -end; - -function Sld.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function Sld.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function Sld.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function Sld.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function Sld.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function Sld.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; diff --git a/autoclass/pptx/SldIdLst@PPTX.tsf b/autoclass/pptx/SldIdLst@PPTX.tsf deleted file mode 100644 index 87e140b..0000000 --- a/autoclass/pptx/SldIdLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type SldIdLst = 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; - function AddSldId(); - function AppendSldId(); - - property SldIds read ReadSldIds; - function ReadSldIds(_index); - -public - // Attributes - - // Children - -end; - -function SldIdLst.Create();overload; -begin - self.Create(nil, "p", "sldIdLst"); -end; - -function SldIdLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldIdLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldIdLst.Init();override; -begin - -end; - -function SldIdLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SldIdLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SldIdLst.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; - 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 + "sldId": obj := self.AppendSldId(); - 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 SldIdLst.Copy(_obj);override; -begin - -end; - -function SldIdLst.AddSldId(); -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 = "sldId" then break; - end - obj := new IdLst(self, self.Prefix, "sldId"); - self.InsertChild(obj, i+1); - return obj; -end; - -function SldIdLst.AppendSldId(); -begin - obj := new IdLst(self, self.Prefix, "sldId"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function SldIdLst.ReadSldIds(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "sldId" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/SldLayout@PPTX.tsf b/autoclass/pptx/SldLayout@PPTX.tsf deleted file mode 100644 index 907da80..0000000 --- a/autoclass/pptx/SldLayout@PPTX.tsf +++ /dev/null @@ -1,194 +0,0 @@ -type SldLayout = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Preserve read ReadXmlAttrPreserve write WriteXmlAttrPreserve; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrPreserve(); - function WriteXmlAttrPreserve(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - XmlAttrType; - XmlAttrPreserve; - - // Children - CSld; - ClrMapOvr; - -end; - -function SldLayout.Create();overload; -begin - self.Create(nil, "p", "sldLayout"); -end; - -function SldLayout.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldLayout.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldLayout.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.XmlAttrType := new OpenXmlAttribute(nil, "type", nil); - self.XmlAttrPreserve := new OpenXmlAttribute(nil, "preserve", nil); - self.CSld := new CSld(self, self.Prefix, "cSld"); - self.ClrMapOvr := new ClrMapOvr(self, self.Prefix, "clrMapOvr"); -end; - -function SldLayout.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - self.XmlAttrType, - self.XmlAttrPreserve, - ); -end; - -function SldLayout.InitChildren();override; -begin - child_elements_ := array( - 0: self.CSld, - 1: self.ClrMapOvr, - ); - sorted_child_ := array( - "": -1, - self.CSld.ElementName: 0, - self.ClrMapOvr.ElementName: 1, - ); -end; - -function SldLayout.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; - 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 SldLayout.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - if not ifnil(_obj.XmlAttrType.Value) then - self.XmlAttrType.Value := _obj.XmlAttrType.Value; - if not ifnil(_obj.XmlAttrPreserve.Value) then - self.XmlAttrPreserve.Value := _obj.XmlAttrPreserve.Value; - self.CSld.Copy(_obj.CSld); - self.ClrMapOvr.Copy(_obj.ClrMapOvr); -end; - -function SldLayout.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function SldLayout.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function SldLayout.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function SldLayout.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function SldLayout.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function SldLayout.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; - -function SldLayout.ReadXmlAttrType(); -begin - return self.XmlAttrType.Value; -end; - -function SldLayout.WriteXmlAttrType(_value); -begin - self.XmlAttrType.Value := _value; -end; - -function SldLayout.ReadXmlAttrPreserve(); -begin - return self.XmlAttrPreserve.Value; -end; - -function SldLayout.WriteXmlAttrPreserve(_value); -begin - self.XmlAttrPreserve.Value := _value; -end; diff --git a/autoclass/pptx/SldLayoutId@PPTX.tsf b/autoclass/pptx/SldLayoutId@PPTX.tsf deleted file mode 100644 index 4061a60..0000000 --- a/autoclass/pptx/SldLayoutId@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type SldLayoutId = 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 Id read ReadXmlAttrId write WriteXmlAttrId; - property RId read ReadXmlAttrRId write WriteXmlAttrRId; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrRId(); - function WriteXmlAttrRId(_value); - -public - // Attributes - XmlAttrId; - XmlAttrRId; - - // Children - -end; - -function SldLayoutId.Create();overload; -begin - self.Create(nil, "p", "sldLayoutId"); -end; - -function SldLayoutId.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldLayoutId.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldLayoutId.Init();override; -begin - self.XmlAttrId := new OpenXmlAttribute(nil, "id", nil); - self.XmlAttrRId := new OpenXmlAttribute("id", "r", nil); -end; - -function SldLayoutId.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrId, - self.XmlAttrRId, - ); -end; - -function SldLayoutId.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SldLayoutId.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 SldLayoutId.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrId.Value) then - self.XmlAttrId.Value := _obj.XmlAttrId.Value; - if not ifnil(_obj.XmlAttrRId.Value) then - self.XmlAttrRId.Value := _obj.XmlAttrRId.Value; -end; - -function SldLayoutId.ReadXmlAttrId(); -begin - return self.XmlAttrId.Value; -end; - -function SldLayoutId.WriteXmlAttrId(_value); -begin - self.XmlAttrId.Value := _value; -end; - -function SldLayoutId.ReadXmlAttrRId(); -begin - return self.XmlAttrRId.Value; -end; - -function SldLayoutId.WriteXmlAttrRId(_value); -begin - self.XmlAttrRId.Value := _value; -end; diff --git a/autoclass/pptx/SldLayoutIdLst@PPTX.tsf b/autoclass/pptx/SldLayoutIdLst@PPTX.tsf deleted file mode 100644 index 75e2859..0000000 --- a/autoclass/pptx/SldLayoutIdLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type SldLayoutIdLst = 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; - function AddSldLayoutId(); - function AppendSldLayoutId(); - - property SldLayoutIds read ReadSldLayoutIds; - function ReadSldLayoutIds(_index); - -public - // Attributes - - // Children - -end; - -function SldLayoutIdLst.Create();overload; -begin - self.Create(nil, "p", "sldLayoutIdLst"); -end; - -function SldLayoutIdLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldLayoutIdLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldLayoutIdLst.Init();override; -begin - -end; - -function SldLayoutIdLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SldLayoutIdLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SldLayoutIdLst.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; - 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 + "sldLayoutId": obj := self.AppendSldLayoutId(); - 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 SldLayoutIdLst.Copy(_obj);override; -begin - -end; - -function SldLayoutIdLst.AddSldLayoutId(); -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 = "sldLayoutId" then break; - end - obj := new SldLayoutId(self, self.Prefix, "sldLayoutId"); - self.InsertChild(obj, i+1); - return obj; -end; - -function SldLayoutIdLst.AppendSldLayoutId(); -begin - obj := new SldLayoutId(self, self.Prefix, "sldLayoutId"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function SldLayoutIdLst.ReadSldLayoutIds(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "sldLayoutId" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/SldMaster@PPTX.tsf b/autoclass/pptx/SldMaster@PPTX.tsf deleted file mode 100644 index a46ec12..0000000 --- a/autoclass/pptx/SldMaster@PPTX.tsf +++ /dev/null @@ -1,168 +0,0 @@ -type SldMaster = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - - // Children - CSld; - ClrMap; - SldLayoutIdLst; - TxStyles; - -end; - -function SldMaster.Create();overload; -begin - self.Create(nil, "p", "sldMaster"); -end; - -function SldMaster.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldMaster.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldMaster.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.CSld := new CSld(self, self.Prefix, "cSld"); - self.ClrMap := new ClrMap(self, self.Prefix, "clrMap"); - self.SldLayoutIdLst := new SldLayoutIdLst(self, self.Prefix, "sldLayoutIdLst"); - self.TxStyles := new TxStyles(self, self.Prefix, "txStyles"); -end; - -function SldMaster.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - ); -end; - -function SldMaster.InitChildren();override; -begin - child_elements_ := array( - 0: self.CSld, - 1: self.ClrMap, - 2: self.SldLayoutIdLst, - 3: self.TxStyles, - ); - sorted_child_ := array( - "": -1, - self.CSld.ElementName: 0, - self.ClrMap.ElementName: 1, - self.SldLayoutIdLst.ElementName: 2, - self.TxStyles.ElementName: 3, - ); -end; - -function SldMaster.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; - 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 SldMaster.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - self.CSld.Copy(_obj.CSld); - self.ClrMap.Copy(_obj.ClrMap); - self.SldLayoutIdLst.Copy(_obj.SldLayoutIdLst); - self.TxStyles.Copy(_obj.TxStyles); -end; - -function SldMaster.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function SldMaster.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function SldMaster.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function SldMaster.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function SldMaster.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function SldMaster.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; diff --git a/autoclass/pptx/SldMasterIdLst@PPTX.tsf b/autoclass/pptx/SldMasterIdLst@PPTX.tsf deleted file mode 100644 index 408ffab..0000000 --- a/autoclass/pptx/SldMasterIdLst@PPTX.tsf +++ /dev/null @@ -1,137 +0,0 @@ -type SldMasterIdLst = 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; - function AddSldMasterId(); - function AppendSldMasterId(); - - property SldMasterIds read ReadSldMasterIds; - function ReadSldMasterIds(_index); - -public - // Attributes - - // Children - -end; - -function SldMasterIdLst.Create();overload; -begin - self.Create(nil, "p", "sldMasterIdLst"); -end; - -function SldMasterIdLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SldMasterIdLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SldMasterIdLst.Init();override; -begin - -end; - -function SldMasterIdLst.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SldMasterIdLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SldMasterIdLst.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; - 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 + "sldMasterId": obj := self.AppendSldMasterId(); - 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 SldMasterIdLst.Copy(_obj);override; -begin - -end; - -function SldMasterIdLst.AddSldMasterId(); -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 = "sldMasterId" then break; - end - obj := new IdLst(self, self.Prefix, "sldMasterId"); - self.InsertChild(obj, i+1); - return obj; -end; - -function SldMasterIdLst.AppendSldMasterId(); -begin - obj := new IdLst(self, self.Prefix, "sldMasterId"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function SldMasterIdLst.ReadSldMasterIds(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "sldMasterId" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/SlideViewPr@PPTX.tsf b/autoclass/pptx/SlideViewPr@PPTX.tsf deleted file mode 100644 index 5c24fa8..0000000 --- a/autoclass/pptx/SlideViewPr@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type SlideViewPr = 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; - -public - // Attributes - - // Children - CSldViewPr; - -end; - -function SlideViewPr.Create();overload; -begin - self.Create(nil, "p", "slideViewPr"); -end; - -function SlideViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SlideViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SlideViewPr.Init();override; -begin - self.CSldViewPr := new CSldViewPr(self, self.Prefix, "cSldViewPr"); -end; - -function SlideViewPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SlideViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.CSldViewPr, - ); - sorted_child_ := array( - "": -1, - self.CSldViewPr.ElementName: 0, - ); -end; - -function SlideViewPr.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; - 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 SlideViewPr.Copy(_obj);override; -begin - self.CSldViewPr.Copy(_obj.CSldViewPr); -end; diff --git a/autoclass/pptx/SolidFill@PPTX.tsf b/autoclass/pptx/SolidFill@PPTX.tsf deleted file mode 100644 index f612953..0000000 --- a/autoclass/pptx/SolidFill@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type SolidFill = 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; - -public - // Attributes - - // Children - SchemeClr; - -end; - -function SolidFill.Create();overload; -begin - self.Create(nil, "a", "solidFill"); -end; - -function SolidFill.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SolidFill.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SolidFill.Init();override; -begin - self.SchemeClr := new SchemeClr(self, self.Prefix, "schemeClr"); -end; - -function SolidFill.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SolidFill.InitChildren();override; -begin - child_elements_ := array( - 0: self.SchemeClr, - ); - sorted_child_ := array( - "": -1, - self.SchemeClr.ElementName: 0, - ); -end; - -function SolidFill.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; - 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 SolidFill.Copy(_obj);override; -begin - self.SchemeClr.Copy(_obj.SchemeClr); -end; diff --git a/autoclass/pptx/Sp@PPTX.tsf b/autoclass/pptx/Sp@PPTX.tsf deleted file mode 100644 index 0dd3e3d..0000000 --- a/autoclass/pptx/Sp@PPTX.tsf +++ /dev/null @@ -1,108 +0,0 @@ -type Sp = 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; - -public - // Attributes - - // Children - NvSpPr; - SpPr; - TxBody; - -end; - -function Sp.Create();overload; -begin - self.Create(nil, "p", "sp"); -end; - -function Sp.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Sp.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Sp.Init();override; -begin - self.NvSpPr := new NvSpPr(self, self.Prefix, "nvSpPr"); - self.SpPr := new SpPr(self, self.Prefix, "spPr"); - self.TxBody := new TxBody(self, self.Prefix, "txBody"); -end; - -function Sp.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Sp.InitChildren();override; -begin - child_elements_ := array( - 0: self.NvSpPr, - 1: self.SpPr, - 2: self.TxBody, - ); - sorted_child_ := array( - "": -1, - self.NvSpPr.ElementName: 0, - self.SpPr.ElementName: 1, - self.TxBody.ElementName: 2, - ); -end; - -function Sp.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; - 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 Sp.Copy(_obj);override; -begin - self.NvSpPr.Copy(_obj.NvSpPr); - self.SpPr.Copy(_obj.SpPr); - self.TxBody.Copy(_obj.TxBody); -end; diff --git a/autoclass/pptx/SpLocks@PPTX.tsf b/autoclass/pptx/SpLocks@PPTX.tsf deleted file mode 100644 index a3b367c..0000000 --- a/autoclass/pptx/SpLocks@PPTX.tsf +++ /dev/null @@ -1,81 +0,0 @@ -type SpLocks = 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 NoGrp read ReadXmlAttrNoGrp write WriteXmlAttrNoGrp; - function ReadXmlAttrNoGrp(); - function WriteXmlAttrNoGrp(_value); - -public - // Attributes - XmlAttrNoGrp; - - // Children - -end; - -function SpLocks.Create();overload; -begin - self.Create(nil, "a", "spLocks"); -end; - -function SpLocks.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SpLocks.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpLocks.Init();override; -begin - self.XmlAttrNoGrp := new OpenXmlAttribute(nil, "noGrp", nil); -end; - -function SpLocks.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrNoGrp, - ); -end; - -function SpLocks.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SpLocks.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 SpLocks.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrNoGrp.Value) then - self.XmlAttrNoGrp.Value := _obj.XmlAttrNoGrp.Value; -end; - -function SpLocks.ReadXmlAttrNoGrp(); -begin - return self.XmlAttrNoGrp.Value; -end; - -function SpLocks.WriteXmlAttrNoGrp(_value); -begin - self.XmlAttrNoGrp.Value := _value; -end; diff --git a/autoclass/pptx/SpPr@PPTX.tsf b/autoclass/pptx/SpPr@PPTX.tsf deleted file mode 100644 index 0453986..0000000 --- a/autoclass/pptx/SpPr@PPTX.tsf +++ /dev/null @@ -1,122 +0,0 @@ -type SpPr = 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 NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; - function ReadXmlChildNoFill(); - function WriteXmlChildNoFill(_value); - -public - // Attributes - - // Children - Xfrm; - PrstGeom; - XmlChildNoFill; - -end; - -function SpPr.Create();overload; -begin - self.Create(nil, "p", "spPr"); -end; - -function SpPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SpPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpPr.Init();override; -begin - self.Xfrm := new Xfrm(self, "a", "xfrm"); - self.PrstGeom := new PrstGeom(self, "a", "prstGeom"); - self.XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); -end; - -function SpPr.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SpPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.Xfrm, - 1: self.PrstGeom, - 2: self.XmlChildNoFill, - ); - sorted_child_ := array( - "": -1, - self.Xfrm.ElementName: 0, - self.PrstGeom.ElementName: 1, - self.XmlChildNoFill.ElementName: 2, - ); -end; - -function SpPr.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; - 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 SpPr.Copy(_obj);override; -begin - self.Xfrm.Copy(_obj.Xfrm); - self.PrstGeom.Copy(_obj.PrstGeom); - self.XmlChildNoFill.Copy(_obj.XmlChildNoFill); -end; - -function SpPr.ReadXmlChildNoFill(); -begin - return ifnil(self.XmlChildNoFill.Value) ? false : true; -end; - -function SpPr.WriteXmlChildNoFill(_value); -begin - self.XmlChildNoFill.Value := _value; -end; diff --git a/autoclass/pptx/SpTree@PPTX.tsf b/autoclass/pptx/SpTree@PPTX.tsf deleted file mode 100644 index 2e84327..0000000 --- a/autoclass/pptx/SpTree@PPTX.tsf +++ /dev/null @@ -1,145 +0,0 @@ -type SpTree = 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; - function AddSp(); - function AppendSp(); - - property Sps read ReadSps; - function ReadSps(_index); - -public - // Attributes - - // Children - NvGrpSpPr; - GrpSpPr; - -end; - -function SpTree.Create();overload; -begin - self.Create(nil, "p", "spTree"); -end; - -function SpTree.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SpTree.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpTree.Init();override; -begin - self.NvGrpSpPr := new NvGrpSpPr(self, self.Prefix, "nvGrpSpPr"); - self.GrpSpPr := new GrpSpPr(self, self.Prefix, "grpSpPr"); -end; - -function SpTree.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SpTree.InitChildren();override; -begin - child_elements_ := array( - 0: self.NvGrpSpPr, - 1: self.GrpSpPr, - ); - sorted_child_ := array( - "": -1, - self.NvGrpSpPr.ElementName: 0, - self.GrpSpPr.ElementName: 1, - ); -end; - -function SpTree.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; - 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 + "sp": obj := self.AppendSp(); - 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 SpTree.Copy(_obj);override; -begin - self.NvGrpSpPr.Copy(_obj.NvGrpSpPr); - self.GrpSpPr.Copy(_obj.GrpSpPr); -end; - -function SpTree.AddSp(); -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 = "sp" then break; - end - obj := new Sp(self, self.Prefix, "sp"); - self.InsertChild(obj, i+1); - return obj; -end; - -function SpTree.AppendSp(); -begin - obj := new Sp(self, self.Prefix, "sp"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function SpTree.ReadSps(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "sp" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/SpcBef@PPTX.tsf b/autoclass/pptx/SpcBef@PPTX.tsf deleted file mode 100644 index 5caffb3..0000000 --- a/autoclass/pptx/SpcBef@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type SpcBef = 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; - -public - // Attributes - - // Children - SpcPct; - -end; - -function SpcBef.Create();overload; -begin - self.Create(nil, "a", "SpcBef"); -end; - -function SpcBef.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SpcBef.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpcBef.Init();override; -begin - self.SpcPct := new SpcPct(self, self.Prefix, "spcPct"); -end; - -function SpcBef.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function SpcBef.InitChildren();override; -begin - child_elements_ := array( - 0: self.SpcPct, - ); - sorted_child_ := array( - "": -1, - self.SpcPct.ElementName: 0, - ); -end; - -function SpcBef.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; - 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 SpcBef.Copy(_obj);override; -begin - self.SpcPct.Copy(_obj.SpcPct); -end; diff --git a/autoclass/pptx/SpcPct@PPTX.tsf b/autoclass/pptx/SpcPct@PPTX.tsf deleted file mode 100644 index 0de4586..0000000 --- a/autoclass/pptx/SpcPct@PPTX.tsf +++ /dev/null @@ -1,81 +0,0 @@ -type SpcPct = 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 Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal; - - // Children - -end; - -function SpcPct.Create();overload; -begin - self.Create(nil, "a", "spcPct"); -end; - -function SpcPct.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SpcPct.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpcPct.Init();override; -begin - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); -end; - -function SpcPct.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVal, - ); -end; - -function SpcPct.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SpcPct.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 SpcPct.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; -end; - -function SpcPct.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function SpcPct.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; diff --git a/autoclass/pptx/SrgbClr@PPTX.tsf b/autoclass/pptx/SrgbClr@PPTX.tsf deleted file mode 100644 index d008e9b..0000000 --- a/autoclass/pptx/SrgbClr@PPTX.tsf +++ /dev/null @@ -1,117 +0,0 @@ -type SrgbClr = 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 Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal; - - // Children - Alpha; - -end; - -function SrgbClr.Create();overload; -begin - self.Create(nil, "a", "srgbClr"); -end; - -function SrgbClr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SrgbClr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SrgbClr.Init();override; -begin - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); - self.Alpha := new PureVal(self, self.Prefix, "aplha"); -end; - -function SrgbClr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVal, - ); -end; - -function SrgbClr.InitChildren();override; -begin - child_elements_ := array( - 0: self.Alpha, - ); - sorted_child_ := array( - "": -1, - self.Alpha.ElementName: 0, - ); -end; - -function SrgbClr.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; - 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 SrgbClr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; - self.Alpha.Copy(_obj.Alpha); -end; - -function SrgbClr.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function SrgbClr.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; diff --git a/autoclass/pptx/SysClr@PPTX.tsf b/autoclass/pptx/SysClr@PPTX.tsf deleted file mode 100644 index 9f96ca2..0000000 --- a/autoclass/pptx/SysClr@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type SysClr = 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 Val read ReadXmlAttrVal write WriteXmlAttrVal; - property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrLastClr(); - function WriteXmlAttrLastClr(_value); - -public - // Attributes - XmlAttrVal; - XmlAttrLastClr; - - // Children - -end; - -function SysClr.Create();overload; -begin - self.Create(nil, "a", "sysClr"); -end; - -function SysClr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function SysClr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SysClr.Init();override; -begin - self.XmlAttrVal := new OpenXmlAttribute(nil, "val", nil); - self.XmlAttrLastClr := new OpenXmlAttribute(nil, "LastClr", nil); -end; - -function SysClr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrVal, - self.XmlAttrLastClr, - ); -end; - -function SysClr.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function SysClr.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 SysClr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrVal.Value) then - self.XmlAttrVal.Value := _obj.XmlAttrVal.Value; - if not ifnil(_obj.XmlAttrLastClr.Value) then - self.XmlAttrLastClr.Value := _obj.XmlAttrLastClr.Value; -end; - -function SysClr.ReadXmlAttrVal(); -begin - return self.XmlAttrVal.Value; -end; - -function SysClr.WriteXmlAttrVal(_value); -begin - self.XmlAttrVal.Value := _value; -end; - -function SysClr.ReadXmlAttrLastClr(); -begin - return self.XmlAttrLastClr.Value; -end; - -function SysClr.WriteXmlAttrLastClr(_value); -begin - self.XmlAttrLastClr.Value := _value; -end; diff --git a/autoclass/pptx/TblStyleLst@PPTX.tsf b/autoclass/pptx/TblStyleLst@PPTX.tsf deleted file mode 100644 index 617e812..0000000 --- a/autoclass/pptx/TblStyleLst@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type TblStyleLst = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property Def read ReadXmlAttrDef write WriteXmlAttrDef; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrDef(); - function WriteXmlAttrDef(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrDef; - - // Children - -end; - -function TblStyleLst.Create();overload; -begin - self.Create(nil, "a", "tblStyleLst"); -end; - -function TblStyleLst.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function TblStyleLst.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblStyleLst.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrDef := new OpenXmlAttribute(nil, "def", nil); -end; - -function TblStyleLst.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrDef, - ); -end; - -function TblStyleLst.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function TblStyleLst.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 TblStyleLst.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrDef.Value) then - self.XmlAttrDef.Value := _obj.XmlAttrDef.Value; -end; - -function TblStyleLst.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function TblStyleLst.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function TblStyleLst.ReadXmlAttrDef(); -begin - return self.XmlAttrDef.Value; -end; - -function TblStyleLst.WriteXmlAttrDef(_value); -begin - self.XmlAttrDef.Value := _value; -end; diff --git a/autoclass/pptx/Theme@PPTX.tsf b/autoclass/pptx/Theme@PPTX.tsf deleted file mode 100644 index 7f42cc0..0000000 --- a/autoclass/pptx/Theme@PPTX.tsf +++ /dev/null @@ -1,177 +0,0 @@ -type Theme = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults; - property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst; - function ReadXmlChildObjectDefaults(); - function WriteXmlChildObjectDefaults(_value); - function ReadXmlChildExtraClrSchemeLst(); - function WriteXmlChildExtraClrSchemeLst(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrName; - - // Children - ThemeElements; - XmlChildObjectDefaults; - XmlChildExtraClrSchemeLst; - ExtLst; - -end; - -function Theme.Create();overload; -begin - self.Create(nil, "a", "theme"); -end; - -function Theme.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Theme.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Theme.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrName := new OpenXmlAttribute(nil, "name", "Offic 主题"); - self.ThemeElements := new ThemeElements(self, self.Prefix, "themeElements"); - self.XmlChildObjectDefaults := new OpenXmlEmpty(self, self.Prefix, "objectDefaults"); - self.XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, self.Prefix, "extraClrSchemeLst"); - self.ExtLst := new ExtLst(self, self.Prefix, "extLst"); -end; - -function Theme.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrName, - ); -end; - -function Theme.InitChildren();override; -begin - child_elements_ := array( - 0: self.ThemeElements, - 1: self.XmlChildObjectDefaults, - 2: self.XmlChildExtraClrSchemeLst, - 3: self.ExtLst, - ); - sorted_child_ := array( - "": -1, - self.ThemeElements.ElementName: 0, - self.XmlChildObjectDefaults.ElementName: 1, - self.XmlChildExtraClrSchemeLst.ElementName: 2, - self.ExtLst.ElementName: 3, - ); -end; - -function Theme.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; - 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 Theme.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.ThemeElements.Copy(_obj.ThemeElements); - self.XmlChildObjectDefaults.Copy(_obj.XmlChildObjectDefaults); - self.XmlChildExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst); - self.ExtLst.Copy(_obj.ExtLst); -end; - -function Theme.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function Theme.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function Theme.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function Theme.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; - -function Theme.ReadXmlChildObjectDefaults(); -begin - return ifnil(self.XmlChildObjectDefaults.Value) ? false : true; -end; - -function Theme.WriteXmlChildObjectDefaults(_value); -begin - self.XmlChildObjectDefaults.Value := _value; -end; - -function Theme.ReadXmlChildExtraClrSchemeLst(); -begin - return ifnil(self.XmlChildExtraClrSchemeLst.Value) ? false : true; -end; - -function Theme.WriteXmlChildExtraClrSchemeLst(_value); -begin - self.XmlChildExtraClrSchemeLst.Value := _value; -end; diff --git a/autoclass/pptx/ThemeElements@PPTX.tsf b/autoclass/pptx/ThemeElements@PPTX.tsf deleted file mode 100644 index 72d5454..0000000 --- a/autoclass/pptx/ThemeElements@PPTX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type ThemeElements = 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 Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - -public - // Attributes - XmlAttrName; - - // Children - ClrScheme; - FontScheme; - FmtScheme; - -end; - -function ThemeElements.Create();overload; -begin - self.Create(nil, "a", "themeElements"); -end; - -function ThemeElements.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ThemeElements.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ThemeElements.Init();override; -begin - self.XmlAttrName := new OpenXmlAttribute(nil, "name", nil); - self.ClrScheme := new ClrScheme(self, self.Prefix, "clrScheme"); - self.FontScheme := new FontScheme(self, self.Prefix, "fontScheme"); - self.FmtScheme := new FmtScheme(self, self.Prefix, "fmtScheme"); -end; - -function ThemeElements.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrName, - ); -end; - -function ThemeElements.InitChildren();override; -begin - child_elements_ := array( - 0: self.ClrScheme, - 1: self.FontScheme, - 2: self.FmtScheme, - ); - sorted_child_ := array( - "": -1, - self.ClrScheme.ElementName: 0, - self.FontScheme.ElementName: 1, - self.FmtScheme.ElementName: 2, - ); -end; - -function ThemeElements.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; - 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 ThemeElements.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrName.Value) then - self.XmlAttrName.Value := _obj.XmlAttrName.Value; - self.ClrScheme.Copy(_obj.ClrScheme); - self.FontScheme.Copy(_obj.FontScheme); - self.FmtScheme.Copy(_obj.FmtScheme); -end; - -function ThemeElements.ReadXmlAttrName(); -begin - return self.XmlAttrName.Value; -end; - -function ThemeElements.WriteXmlAttrName(_value); -begin - self.XmlAttrName.Value := _value; -end; diff --git a/autoclass/pptx/TitleStyle@PPTX.tsf b/autoclass/pptx/TitleStyle@PPTX.tsf deleted file mode 100644 index b4e6163..0000000 --- a/autoclass/pptx/TitleStyle@PPTX.tsf +++ /dev/null @@ -1,143 +0,0 @@ -type TitleStyle = 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; - -public - // Attributes - - // Children - DefPPr; - Lvl1PPr; - Lvl2PPr; - Lvl3PPr; - Lvl4PPr; - Lvl5PPr; - Lvl6PPr; - Lvl7PPr; - Lvl8PPr; - Lvl9PPr; - -end; - -function TitleStyle.Create();overload; -begin - self.Create(nil, "p", "titleStyle"); -end; - -function TitleStyle.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function TitleStyle.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TitleStyle.Init();override; -begin - self.DefPPr := new DefPPr(self, "a", "defPPr"); - self.Lvl1PPr := new LvlPPr(self, "a", "lvl1pPr"); - self.Lvl2PPr := new LvlPPr(self, "a", "lvl2pPr"); - self.Lvl3PPr := new LvlPPr(self, "a", "lvl3pPr"); - self.Lvl4PPr := new LvlPPr(self, "a", "lvl4pPr"); - self.Lvl5PPr := new LvlPPr(self, "a", "lvl5pPr"); - self.Lvl6PPr := new LvlPPr(self, "a", "lvl6pPr"); - self.Lvl7PPr := new LvlPPr(self, "a", "lvl7pPr"); - self.Lvl8PPr := new LvlPPr(self, "a", "lvl8pPr"); - self.Lvl9PPr := new LvlPPr(self, "a", "lvl9pPr"); -end; - -function TitleStyle.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function TitleStyle.InitChildren();override; -begin - child_elements_ := array( - 0: self.DefPPr, - 1: self.Lvl1PPr, - 2: self.Lvl2PPr, - 3: self.Lvl3PPr, - 4: self.Lvl4PPr, - 5: self.Lvl5PPr, - 6: self.Lvl6PPr, - 7: self.Lvl7PPr, - 8: self.Lvl8PPr, - 9: self.Lvl9PPr, - ); - sorted_child_ := array( - "": -1, - self.DefPPr.ElementName: 0, - self.Lvl1PPr.ElementName: 1, - self.Lvl2PPr.ElementName: 2, - self.Lvl3PPr.ElementName: 3, - self.Lvl4PPr.ElementName: 4, - self.Lvl5PPr.ElementName: 5, - self.Lvl6PPr.ElementName: 6, - self.Lvl7PPr.ElementName: 7, - self.Lvl8PPr.ElementName: 8, - self.Lvl9PPr.ElementName: 9, - ); -end; - -function TitleStyle.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; - 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 TitleStyle.Copy(_obj);override; -begin - self.DefPPr.Copy(_obj.DefPPr); - self.Lvl1PPr.Copy(_obj.Lvl1PPr); - self.Lvl2PPr.Copy(_obj.Lvl2PPr); - self.Lvl3PPr.Copy(_obj.Lvl3PPr); - self.Lvl4PPr.Copy(_obj.Lvl4PPr); - self.Lvl5PPr.Copy(_obj.Lvl5PPr); - self.Lvl6PPr.Copy(_obj.Lvl6PPr); - self.Lvl7PPr.Copy(_obj.Lvl7PPr); - self.Lvl8PPr.Copy(_obj.Lvl8PPr); - self.Lvl9PPr.Copy(_obj.Lvl9PPr); -end; diff --git a/autoclass/pptx/TitlesOfParts@PPTX.tsf b/autoclass/pptx/TitlesOfParts@PPTX.tsf deleted file mode 100644 index 9274b5f..0000000 --- a/autoclass/pptx/TitlesOfParts@PPTX.tsf +++ /dev/null @@ -1,98 +0,0 @@ -type TitlesOfParts = 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; - -public - // Attributes - - // Children - Vector; - -end; - -function TitlesOfParts.Create();overload; -begin - self.Create(nil, nil, "TitlesOfParts"); -end; - -function TitlesOfParts.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function TitlesOfParts.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TitlesOfParts.Init();override; -begin - self.Vector := new Vector(self, "vt", "vector"); -end; - -function TitlesOfParts.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function TitlesOfParts.InitChildren();override; -begin - child_elements_ := array( - 0: self.Vector, - ); - sorted_child_ := array( - "": -1, - self.Vector.ElementName: 0, - ); -end; - -function TitlesOfParts.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; - 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 TitlesOfParts.Copy(_obj);override; -begin - self.Vector.Copy(_obj.Vector); -end; diff --git a/autoclass/pptx/TxBody@PPTX.tsf b/autoclass/pptx/TxBody@PPTX.tsf deleted file mode 100644 index f9b8b2c..0000000 --- a/autoclass/pptx/TxBody@PPTX.tsf +++ /dev/null @@ -1,145 +0,0 @@ -type TxBody = 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; - function AddP(); - function AppendP(); - - property Ps read ReadPs; - function ReadPs(_index); - -public - // Attributes - - // Children - BodyPr; - LstStyle; - -end; - -function TxBody.Create();overload; -begin - self.Create(nil, "p", "txBody"); -end; - -function TxBody.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function TxBody.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TxBody.Init();override; -begin - self.BodyPr := new BodyPr(self, "a", "bodyPr"); - self.LstStyle := new LstStyle(self, "a", "lstStyle"); -end; - -function TxBody.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function TxBody.InitChildren();override; -begin - child_elements_ := array( - 0: self.BodyPr, - 1: self.LstStyle, - ); - sorted_child_ := array( - "": -1, - self.BodyPr.ElementName: 0, - self.LstStyle.ElementName: 1, - ); -end; - -function TxBody.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; - 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 - "a:p": obj := self.AppendP(); - 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 TxBody.Copy(_obj);override; -begin - self.BodyPr.Copy(_obj.BodyPr); - self.LstStyle.Copy(_obj.LstStyle); -end; - -function TxBody.AddP(); -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 = "p" then break; - end - obj := new P(self, "a", "p"); - self.InsertChild(obj, i+1); - return obj; -end; - -function TxBody.AppendP(); -begin - obj := new P(self, "a", "p"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function TxBody.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "p" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/TxStyles@PPTX.tsf b/autoclass/pptx/TxStyles@PPTX.tsf deleted file mode 100644 index 25bdf4f..0000000 --- a/autoclass/pptx/TxStyles@PPTX.tsf +++ /dev/null @@ -1,108 +0,0 @@ -type TxStyles = 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; - -public - // Attributes - - // Children - TitleStyle; - BodyStyle; - OtherStyle; - -end; - -function TxStyles.Create();overload; -begin - self.Create(nil, "p", "txStyles"); -end; - -function TxStyles.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function TxStyles.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TxStyles.Init();override; -begin - self.TitleStyle := new TitleStyle(self, self.Prefix, "titleStyle"); - self.BodyStyle := new TitleStyle(self, self.Prefix, "bodyStyle"); - self.OtherStyle := new TitleStyle(self, self.Prefix, "otherStyle"); -end; - -function TxStyles.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function TxStyles.InitChildren();override; -begin - child_elements_ := array( - 0: self.TitleStyle, - 1: self.BodyStyle, - 2: self.OtherStyle, - ); - sorted_child_ := array( - "": -1, - self.TitleStyle.ElementName: 0, - self.BodyStyle.ElementName: 1, - self.OtherStyle.ElementName: 2, - ); -end; - -function TxStyles.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; - 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 TxStyles.Copy(_obj);override; -begin - self.TitleStyle.Copy(_obj.TitleStyle); - self.BodyStyle.Copy(_obj.BodyStyle); - self.OtherStyle.Copy(_obj.OtherStyle); -end; diff --git a/autoclass/pptx/Types@PPTX.tsf b/autoclass/pptx/Types@PPTX.tsf deleted file mode 100644 index 8b3741d..0000000 --- a/autoclass/pptx/Types@PPTX.tsf +++ /dev/null @@ -1,178 +0,0 @@ -type Types = 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; - function AddDefault(); - function AddOverride(); - function AppendDefault(); - function AppendOverride(); - - property Defaults read ReadDefaults; - property Overrides read ReadOverrides; - function ReadDefaults(_index); - function ReadOverrides(_index); - -public - // Attributes - - // Children - -end; - -function Types.Create();overload; -begin - self.Create(nil, nil, "Types"); -end; - -function Types.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Types.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Types.Init();override; -begin - -end; - -function Types.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Types.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Types.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; - 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 - "Default": obj := self.AppendDefault(); - "Override": obj := self.AppendOverride(); - 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 Types.Copy(_obj);override; -begin - -end; - -function Types.AddDefault(); -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 = "Default" then break; - end - obj := new Default(self, nil, "Default"); - self.InsertChild(obj, i+1); - return obj; -end; - -function Types.AddOverride(); -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 = "Override" then break; - end - obj := new _Override(self, nil, "Override"); - self.InsertChild(obj, i+1); - return obj; -end; - -function Types.AppendDefault(); -begin - obj := new Default(self, nil, "Default"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function Types.AppendOverride(); -begin - obj := new _Override(self, nil, "Override"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function Types.ReadDefaults(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "Default" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; - -function Types.ReadOverrides(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "Override" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; diff --git a/autoclass/pptx/Variant@PPTX.tsf b/autoclass/pptx/Variant@PPTX.tsf deleted file mode 100644 index bf2b7e0..0000000 --- a/autoclass/pptx/Variant@PPTX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type Variant = 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; - -public - // Attributes - - // Children - Lpstr; - I4; - -end; - -function Variant.Create();overload; -begin - self.Create(nil, "vt", "variant"); -end; - -function Variant.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Variant.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Variant.Init();override; -begin - self.Lpstr := new OpenXmlPcdata(self, self.Prefix, "lpstr"); - self.I4 := new OpenXmlPcdata(self, self.Prefix, "i4"); -end; - -function Variant.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Variant.InitChildren();override; -begin - child_elements_ := array( - 0: self.Lpstr, - 1: self.I4, - ); - sorted_child_ := array( - "": -1, - self.Lpstr.ElementName: 0, - self.I4.ElementName: 1, - ); -end; - -function Variant.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; - 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 Variant.Copy(_obj);override; -begin - self.Lpstr.Copy(_obj.Lpstr); - self.I4.Copy(_obj.I4); -end; diff --git a/autoclass/pptx/Vector@PPTX.tsf b/autoclass/pptx/Vector@PPTX.tsf deleted file mode 100644 index d40429e..0000000 --- a/autoclass/pptx/Vector@PPTX.tsf +++ /dev/null @@ -1,213 +0,0 @@ -type Vector = 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; - function AddVariant(); - function AddLpstr(); - function AppendVariant(); - function AppendLpstr(); - - property Variants read ReadVariants; - property Lpstrs read ReadLpstrs; - function ReadVariants(_index); - function ReadLpstrs(_index); - - property Size read ReadXmlAttrSize write WriteXmlAttrSize; - property BaseType read ReadXmlAttrBaseType write WriteXmlAttrBaseType; - function ReadXmlAttrSize(); - function WriteXmlAttrSize(_value); - function ReadXmlAttrBaseType(); - function WriteXmlAttrBaseType(_value); - -public - // Attributes - XmlAttrSize; - XmlAttrBaseType; - - // Children - -end; - -function Vector.Create();overload; -begin - self.Create(nil, "vt", "vt:vector"); -end; - -function Vector.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Vector.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Vector.Init();override; -begin - self.XmlAttrSize := new OpenXmlAttribute(nil, "size", nil); - self.XmlAttrBaseType := new OpenXmlAttribute(nil, "baseType", nil); -end; - -function Vector.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrSize, - self.XmlAttrBaseType, - ); -end; - -function Vector.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function Vector.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; - 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 + "variant": obj := self.AppendVariant(); - pre + "lpstr": obj := self.AppendLpstr(); - 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 Vector.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrSize.Value) then - self.XmlAttrSize.Value := _obj.XmlAttrSize.Value; - if not ifnil(_obj.XmlAttrBaseType.Value) then - self.XmlAttrBaseType.Value := _obj.XmlAttrBaseType.Value; -end; - -function Vector.AddVariant(); -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 = "variant" then break; - end - obj := new Variant(self, self.Prefix, "variant"); - self.InsertChild(obj, i+1); - return obj; -end; - -function Vector.AddLpstr(); -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 = "lpstr" then break; - end - obj := new OpenXmlPcdata(self, self.Prefix, "lpstr"); - self.InsertChild(obj, i+1); - return obj; -end; - -function Vector.AppendVariant(); -begin - obj := new Variant(self, self.Prefix, "variant"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function Vector.AppendLpstr(); -begin - obj := new OpenXmlPcdata(self, self.Prefix, "lpstr"); - child_elements_[length(child_elements_)] := obj; - return obj; -end; - -function Vector.ReadVariants(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "variant" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; - -function Vector.ReadLpstrs(_index); -begin - ind := ifnil(_index) ? -2 : n; - arr := array(); - for k,v in child_elements_ do - begin - if v.LocalName = "lpstr" then - begin - arr[length(arr)] := v; - ind--; - end; - if ind = -1 then return v; - end; - return arr; -end; - -function Vector.ReadXmlAttrSize(); -begin - return self.XmlAttrSize.Value; -end; - -function Vector.WriteXmlAttrSize(_value); -begin - self.XmlAttrSize.Value := _value; -end; - -function Vector.ReadXmlAttrBaseType(); -begin - return self.XmlAttrBaseType.Value; -end; - -function Vector.WriteXmlAttrBaseType(_value); -begin - self.XmlAttrBaseType.Value := _value; -end; diff --git a/autoclass/pptx/ViewPr@PPTX.tsf b/autoclass/pptx/ViewPr@PPTX.tsf deleted file mode 100644 index 9b71692..0000000 --- a/autoclass/pptx/ViewPr@PPTX.tsf +++ /dev/null @@ -1,168 +0,0 @@ -type ViewPr = 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 XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsP read ReadXmlAttrXmlnsP write WriteXmlAttrXmlnsP; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsP(); - function WriteXmlAttrXmlnsP(_value); - -public - // Attributes - XmlAttrXmlnsA; - XmlAttrXmlnsR; - XmlAttrXmlnsP; - - // Children - NormalViewPr; - SlideViewPr; - NotesTextViewPr; - GridSpacing; - -end; - -function ViewPr.Create();overload; -begin - self.Create(nil, "p", "viewPr"); -end; - -function ViewPr.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function ViewPr.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ViewPr.Init();override; -begin - self.XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", "http://schemas.openxmlformats.org/drawingml/2006/main"); - self.XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", "http://schemas.openxmlformats.org/officeDocument/2006/relationships"); - self.XmlAttrXmlnsP := new OpenXmlAttribute("xmlns", "p", "http://schemas.openxmlformats.org/presentationml/2006/main"); - self.NormalViewPr := new NormalViewPr(self, self.Prefix, "normalViewPr"); - self.SlideViewPr := new SlideViewPr(self, self.Prefix, "slideViewPr"); - self.NotesTextViewPr := new NotesTextViewPr(self, self.Prefix, "notesTextViewPr"); - self.GridSpacing := new CXY(self, self.Prefix, "gridSpacing"); -end; - -function ViewPr.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrXmlnsA, - self.XmlAttrXmlnsR, - self.XmlAttrXmlnsP, - ); -end; - -function ViewPr.InitChildren();override; -begin - child_elements_ := array( - 0: self.NormalViewPr, - 1: self.SlideViewPr, - 2: self.NotesTextViewPr, - 3: self.GridSpacing, - ); - sorted_child_ := array( - "": -1, - self.NormalViewPr.ElementName: 0, - self.SlideViewPr.ElementName: 1, - self.NotesTextViewPr.ElementName: 2, - self.GridSpacing.ElementName: 3, - ); -end; - -function ViewPr.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; - 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 ViewPr.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrXmlnsA.Value) then - self.XmlAttrXmlnsA.Value := _obj.XmlAttrXmlnsA.Value; - if not ifnil(_obj.XmlAttrXmlnsR.Value) then - self.XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; - if not ifnil(_obj.XmlAttrXmlnsP.Value) then - self.XmlAttrXmlnsP.Value := _obj.XmlAttrXmlnsP.Value; - self.NormalViewPr.Copy(_obj.NormalViewPr); - self.SlideViewPr.Copy(_obj.SlideViewPr); - self.NotesTextViewPr.Copy(_obj.NotesTextViewPr); - self.GridSpacing.Copy(_obj.GridSpacing); -end; - -function ViewPr.ReadXmlAttrXmlnsA(); -begin - return self.XmlAttrXmlnsA.Value; -end; - -function ViewPr.WriteXmlAttrXmlnsA(_value); -begin - self.XmlAttrXmlnsA.Value := _value; -end; - -function ViewPr.ReadXmlAttrXmlnsR(); -begin - return self.XmlAttrXmlnsR.Value; -end; - -function ViewPr.WriteXmlAttrXmlnsR(_value); -begin - self.XmlAttrXmlnsR.Value := _value; -end; - -function ViewPr.ReadXmlAttrXmlnsP(); -begin - return self.XmlAttrXmlnsP.Value; -end; - -function ViewPr.WriteXmlAttrXmlnsP(_value); -begin - self.XmlAttrXmlnsP.Value := _value; -end; diff --git a/autoclass/pptx/XY@PPTX.tsf b/autoclass/pptx/XY@PPTX.tsf deleted file mode 100644 index c7c2a49..0000000 --- a/autoclass/pptx/XY@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type XY = 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 X read ReadXmlAttrX write WriteXmlAttrX; - property Y read ReadXmlAttrY write WriteXmlAttrY; - function ReadXmlAttrX(); - function WriteXmlAttrX(_value); - function ReadXmlAttrY(); - function WriteXmlAttrY(_value); - -public - // Attributes - XmlAttrX; - XmlAttrY; - - // Children - -end; - -function XY.Create();overload; -begin - self.Create(nil, nil, "off"); -end; - -function XY.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function XY.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function XY.Init();override; -begin - self.XmlAttrX := new OpenXmlAttribute(nil, "x", nil); - self.XmlAttrY := new OpenXmlAttribute(nil, "y", nil); -end; - -function XY.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrX, - self.XmlAttrY, - ); -end; - -function XY.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function XY.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 XY.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrX.Value) then - self.XmlAttrX.Value := _obj.XmlAttrX.Value; - if not ifnil(_obj.XmlAttrY.Value) then - self.XmlAttrY.Value := _obj.XmlAttrY.Value; -end; - -function XY.ReadXmlAttrX(); -begin - return self.XmlAttrX.Value; -end; - -function XY.WriteXmlAttrX(_value); -begin - self.XmlAttrX.Value := _value; -end; - -function XY.ReadXmlAttrY(); -begin - return self.XmlAttrY.Value; -end; - -function XY.WriteXmlAttrY(_value); -begin - self.XmlAttrY.Value := _value; -end; diff --git a/autoclass/pptx/Xfrm@PPTX.tsf b/autoclass/pptx/Xfrm@PPTX.tsf deleted file mode 100644 index 5952d19..0000000 --- a/autoclass/pptx/Xfrm@PPTX.tsf +++ /dev/null @@ -1,113 +0,0 @@ -type Xfrm = 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; - -public - // Attributes - - // Children - Off; - Ext; - ChOff; - ChExt; - -end; - -function Xfrm.Create();overload; -begin - self.Create(nil, "a", "xfrm"); -end; - -function Xfrm.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function Xfrm.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Xfrm.Init();override; -begin - self.Off := new XY(self, self.Prefix, "off"); - self.Ext := new CXY(self, self.Prefix, "ext"); - self.ChOff := new XY(self, self.Prefix, "chOff"); - self.ChExt := new CXY(self, self.Prefix, "chExt"); -end; - -function Xfrm.InitAttributes();override; -begin - attributes_ := array( - ); -end; - -function Xfrm.InitChildren();override; -begin - child_elements_ := array( - 0: self.Off, - 1: self.Ext, - 2: self.ChOff, - 3: self.ChExt, - ); - sorted_child_ := array( - "": -1, - self.Off.ElementName: 0, - self.Ext.ElementName: 1, - self.ChOff.ElementName: 2, - self.ChExt.ElementName: 3, - ); -end; - -function Xfrm.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; - 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 Xfrm.Copy(_obj);override; -begin - self.Off.Copy(_obj.Off); - self.Ext.Copy(_obj.Ext); - self.ChOff.Copy(_obj.ChOff); - self.ChExt.Copy(_obj.ChExt); -end; diff --git a/autoclass/pptx/_Override@PPTX.tsf b/autoclass/pptx/_Override@PPTX.tsf deleted file mode 100644 index 898290a..0000000 --- a/autoclass/pptx/_Override@PPTX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type _Override = 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 PartName read ReadXmlAttrPartName write WriteXmlAttrPartName; - property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; - function ReadXmlAttrPartName(); - function WriteXmlAttrPartName(_value); - function ReadXmlAttrContentType(); - function WriteXmlAttrContentType(_value); - -public - // Attributes - XmlAttrPartName; - XmlAttrContentType; - - // Children - -end; - -function _Override.Create();overload; -begin - self.Create(nil, nil, "Override"); -end; - -function _Override.Create(_node);overload; -begin - class(OpenXmlElement).Create(_node); -end; - -function _Override.Create(_parent, _prefix, _local_name);overload; -begin - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function _Override.Init();override; -begin - self.XmlAttrPartName := new OpenXmlAttribute(nil, "PartName", nil); - self.XmlAttrContentType := new OpenXmlAttribute(nil, "ContentType", nil); -end; - -function _Override.InitAttributes();override; -begin - attributes_ := array( - self.XmlAttrPartName, - self.XmlAttrContentType, - ); -end; - -function _Override.InitChildren();override; -begin - child_elements_ := array( - ); - sorted_child_ := array( - "": -1, - ); -end; - -function _Override.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 _Override.Copy(_obj);override; -begin - if not ifnil(_obj.XmlAttrPartName.Value) then - self.XmlAttrPartName.Value := _obj.XmlAttrPartName.Value; - if not ifnil(_obj.XmlAttrContentType.Value) then - self.XmlAttrContentType.Value := _obj.XmlAttrContentType.Value; -end; - -function _Override.ReadXmlAttrPartName(); -begin - return self.XmlAttrPartName.Value; -end; - -function _Override.WriteXmlAttrPartName(_value); -begin - self.XmlAttrPartName.Value := _value; -end; - -function _Override.ReadXmlAttrContentType(); -begin - return self.XmlAttrContentType.Value; -end; - -function _Override.WriteXmlAttrContentType(_value); -begin - self.XmlAttrContentType.Value := _value; -end; diff --git a/docx/Components@DOCX.tsf b/docx/Components@DOCX.tsf index 0a9da34..ebc9eea 100644 --- a/docx/Components@DOCX.tsf +++ b/docx/Components@DOCX.tsf @@ -161,95 +161,95 @@ end; function Components.ReadRels(); begin - return self.GetProp(rels_, "rels"); + return {self.}GetProp(rels_, "rels"); end; function Components.ReadApp(); begin - return self.GetProp(app_, "app"); + return {self.}GetProp(app_, "app"); end; function Components.ReadCore(); begin - return self.GetProp(core_, "core"); + return {self.}GetProp(core_, "core"); end; function Components.ReadDocumentRels(); begin - return self.GetProp(document_rels_, "document_rels"); + return {self.}GetProp(document_rels_, "document_rels"); end; function Components.ReadDocument(); begin - return self.GetProp(document_, "document"); + return {self.}GetProp(document_, "document"); end; function Components.Readendnotes(); begin - return self.GetProp(endnotes_, "endnotes"); + return {self.}GetProp(endnotes_, "endnotes"); end; function Components.ReadFontTable(); begin - return self.GetProp(font_table_, "font_table"); + return {self.}GetProp(font_table_, "font_table"); end; function Components.ReadFootnotes(); begin - return self.GetProp(footnotes_, "footnotes"); + return {self.}GetProp(footnotes_, "footnotes"); end; function Components.ReadSettings(); begin - return self.GetProp(settings_, "settings"); + return {self.}GetProp(settings_, "settings"); end; function Components.ReadStyles(); begin - return self.GetProp(styles_, "styles"); + return {self.}GetProp(styles_, "styles"); end; function Components.ReadWebSettings(); begin - return self.GetProp(web_settings_, "web_settings"); + return {self.}GetProp(web_settings_, "web_settings"); end; function Components.ReadThemes(_index); begin - return self.GetPropArr(theme_array_, "theme", _index); + return {self.}GetPropArr(theme_array_, "theme", _index); end; function Components.ReadContentTypes(); begin - return self.GetProp(content_types_, "content_types"); + return {self.}GetProp(content_types_, "content_types"); end; function Components.ReadChartRels(_index: integer); begin - return self.GetPropArr(chart_rels_array_, "chart_rels", _index); + return {self.}GetPropArr(chart_rels_array_, "chart_rels", _index); end; function Components.ReadCharts(_index: integer); begin - return self.GetPropArr(chart_array_, "chart", _index); + return {self.}GetPropArr(chart_array_, "chart", _index); end; function Components.ReadComments(); begin - return self.GetProp(comments_, "comments"); + return {self.}GetProp(comments_, "comments"); end; function Components.ReadHeaders(_index: integer); begin - return self.GetPropArr(header_array_, "header", _index); + return {self.}GetPropArr(header_array_, "header", _index); end; function Components.ReadFooters(_index: integer); begin - return self.GetPropArr(footer_array_, "footer", _index); + return {self.}GetPropArr(footer_array_, "footer", _index); end; function Components.ReadNumbering(); begin - return self.GetProp(numbering_, "numbering"); + return {self.}GetProp(numbering_, "numbering"); end; diff --git a/pptx/Components@PPTX.tsf b/pptx/Components@PPTX.tsf index 47c67bc..59edd8b 100644 --- a/pptx/Components@PPTX.tsf +++ b/pptx/Components@PPTX.tsf @@ -137,80 +137,80 @@ end; function Components.ReadRels(); begin - return self.SetProp(rels_, "rels"); + return {self.}SetProp(rels_, "rels"); end; function Components.ReadApp(); begin - return self.SetProp(app_, "app"); + return {self.}SetProp(app_, "app"); end; function Components.ReadCore(); begin - return self.SetProp(core_, "core"); + return {self.}SetProp(core_, "core"); end; function Components.ReadPresentationRels(); begin - return self.SetProp(presentation_rels_, "presentation_rels"); + return {self.}SetProp(presentation_rels_, "presentation_rels"); end; function Components.ReadSlideLayouts(_index: integer); begin - return self.SetPropArr(slide_layout_array_, "slide_layout", _index); + return {self.}SetPropArr(slide_layout_array_, "slide_layout", _index); end; function Components.ReadSlideLayoutRels(_index: integer); begin - return self.SetPropArr(slide_layout_rels_array_, "slide_layout_rels", _index); + return {self.}SetPropArr(slide_layout_rels_array_, "slide_layout_rels", _index); end; function Components.ReadSlideMasters(_index: integer); begin - return self.SetPropArr(slide_master_array_, "slide_master", _index); + return {self.}SetPropArr(slide_master_array_, "slide_master", _index); end; function Components.ReadSlideMasterRels(_index: integer); begin - return self.SetPropArr(slide_master_rels_array_, "slide_master_rels", _index); + return {self.}SetPropArr(slide_master_rels_array_, "slide_master_rels", _index); end; function Components.ReadSlides(_index: integer); begin - return self.SetPropArr(slide_array_, "slide", _index); + return {self.}SetPropArr(slide_array_, "slide", _index); end; function Components.ReadSlideRels(_index: integer); begin - return self.SetPropArr(slide_rels_array_, "slide_rels", _index); + return {self.}SetPropArr(slide_rels_array_, "slide_rels", _index); end; function Components.ReadThemes(_index: integer); begin - return self.SetPropArr(theme_array_, "theme", _index); + return {self.}SetPropArr(theme_array_, "theme", _index); end; function Components.ReadPresentation(); begin - return self.SetProp(presentation_, "presentation"); + return {self.}SetProp(presentation_, "presentation"); end; function Components.ReadPresProps(); begin - return self.SetProp(pres_props_, "pres_props"); + return {self.}SetProp(pres_props_, "pres_props"); end; function Components.ReadTableStyles(); begin - return self.SetProp(table_styles_, "table_styles"); + return {self.}SetProp(table_styles_, "table_styles"); end; function Components.ReadViewProps(); begin - return self.SetProp(view_props_, "view_props"); + return {self.}SetProp(view_props_, "view_props"); end; function Components.ReadContentTypes(); begin - return self.SetProp(content_types_, "content_types"); + return {self.}SetProp(content_types_, "content_types"); end; diff --git a/utils/TSComponentsBase.tsf b/utils/TSComponentsBase.tsf index 28982d1..d6be40f 100644 --- a/utils/TSComponentsBase.tsf +++ b/utils/TSComponentsBase.tsf @@ -54,7 +54,7 @@ begin if not ifNumber(_index) then begin ind := 1; - name := Format(conf_[_name][0], ind); + name := format(conf_[_name][0], ind); xml := zipfile_.Get(name); while ifObj(xml) do begin @@ -62,7 +62,7 @@ begin obj := {self.}NewObject(_name); obj.InitNode(node); _variable[length(_variable)] := obj; - name := Format(conf_[_name][0], ++ind); + name := format(conf_[_name][0], ++ind); xml := zipfile_.Get(name); end return _variable; @@ -70,8 +70,15 @@ begin if ifnil(_variable[_index]) then begin obj := nil; - {self.}SetProp(obj, _name, _index + 1); - _variable[_index] := obj; + name := format(conf_[_name][0], _index); + xml := zipfile_.Get(name); + if ifObj(xml) then + begin + node := xml.FirstChild(conf_[_name][1]); + obj := {self.}NewObject(_name); + obj.InitNode(node); + _variable[_index] := obj; + end end return _variable[_index]; end;