v1.0.0
This commit is contained in:
@@ -0,0 +1,216 @@
|
||||
type Components = class(TSComponentsBase)
|
||||
public
|
||||
function Create();
|
||||
function Init();override;
|
||||
|
||||
property Rels read ReadRels;
|
||||
property App read ReadApp;
|
||||
property Core read ReadCore;
|
||||
property PresentationRels read ReadPresentationRels;
|
||||
property SlideLayouts read ReadSlideLayouts;
|
||||
property SlideLayoutRels read ReadSlideLayoutRels;
|
||||
property SlideMasters read ReadSlideMasters;
|
||||
property SlideMasterRels read ReadSlideMasterRels;
|
||||
property Slides read ReadSlides;
|
||||
property SlideRels read ReadSlideRels;
|
||||
property Themes read ReadThemes;
|
||||
property Presentation read ReadPresentation;
|
||||
property PresProps read ReadPresProps;
|
||||
property TableStyles read ReadTableStyles;
|
||||
property ViewProps read ReadViewProps;
|
||||
property ContentTypes read ReadContentTypes;
|
||||
function ReadRels();
|
||||
function ReadApp();
|
||||
function ReadCore();
|
||||
function ReadPresentationRels();
|
||||
function ReadSlideLayouts(_index: integer);
|
||||
function ReadSlideLayoutRels(_index: integer);
|
||||
function ReadSlideMasters(_index: integer);
|
||||
function ReadSlideMasterRels(_index: integer);
|
||||
function ReadSlides(_index: integer);
|
||||
function ReadSlideRels(_index: integer);
|
||||
function ReadThemes(_index: integer);
|
||||
function ReadPresentation();
|
||||
function ReadPresProps();
|
||||
function ReadTableStyles();
|
||||
function ReadViewProps();
|
||||
function ReadContentTypes();
|
||||
|
||||
protected
|
||||
function NewObject(_name: string): tslobj;override;
|
||||
|
||||
private
|
||||
|
||||
// xml
|
||||
rels_: Relationships;
|
||||
app_: Properties;
|
||||
core_: CoreProperties;
|
||||
presentation_rels_: Relationships;
|
||||
slide_layout_array_: array of SldLayout;
|
||||
slide_layout_rels_array_ array of Relationships;
|
||||
slide_master_array_: array of SldMaster;
|
||||
slide_master_rels_array_: array of Relationships;
|
||||
slide_array_: array of Sld;
|
||||
slide_rels_array_: array of Relationships;
|
||||
theme_array_: array of Theme;
|
||||
presentation_: Presentation;
|
||||
pres_props_: PresnetationPr;
|
||||
table_styles_: TblStyleLst;
|
||||
view_props_: ViewPr;
|
||||
content_types_: Types;
|
||||
|
||||
end;
|
||||
|
||||
function Components.Create();
|
||||
begin
|
||||
Class(TSComponentsBase).Create();
|
||||
end;
|
||||
|
||||
function Components.Init();override;
|
||||
begin
|
||||
conf_ := array
|
||||
(
|
||||
"rels": array("_rels/.rels", "Relationships"),
|
||||
"app": array("docProps/app.xml", "Properties"),
|
||||
"core": array("docProps/core.xml", "cp:coreProperties"),
|
||||
"presentation_rels": array("ppt/_rels/presentation.xml.rels", "Relationships"),
|
||||
"slide_layout": array("ppt/slideLayouts/slideLayout%d.xml", "p:sldLayout"),
|
||||
"slide_layout_rels": array("ppt/slideLayouts/_rels/slideLayout%d.xml.rels", "Relationships"),
|
||||
"slide_master": array("ppt/slideMasters/slideMaster%d.xml", "p:sldMaster"),
|
||||
"slide_master_rels": array("ppt/slideMasters/_rels/slideMaster%d.xml.rels", "Relationships"),
|
||||
"slide": array("ppt/slides/slide%d.xml", "p:sld"),
|
||||
"slide_rels": array("ppt/slides/_rels/slide%d.xml.rels", "Relationships"),
|
||||
"theme": array("ppt/theme/theme%d.xml", "a:theme"),
|
||||
"presentation": array("ppt/presentation.xml", "p:presentation"),
|
||||
"pres_props": array("ppt/presProps.xml", "p:presentationPr"),
|
||||
"table_styles": array("ppt/tableStyles.xml", "a:tblStyleLst"),
|
||||
"view_props": array("ppt/viewProps.xml", "p:viewPr"),
|
||||
"content_types": array("[Content_Types].xml", "Types"),
|
||||
);
|
||||
rels_ := nil;
|
||||
app_ := nil;
|
||||
core_ := nil;
|
||||
presentation_rels_ := nil;
|
||||
slide_layout_array_ := array();
|
||||
slide_layout_rels_array_ := array();
|
||||
slide_master_array_ := array();
|
||||
slide_master_rels_array_ := array();
|
||||
slide_array_ := array();
|
||||
slide_rels_array_ := array();
|
||||
theme_array_ := array();
|
||||
presentation_ := nil;
|
||||
pres_props_ := nil;
|
||||
table_styles_ := nil;
|
||||
view_props_ := nil;
|
||||
content_types_ := nil;
|
||||
end;
|
||||
|
||||
function Components.NewObject(_name: string): tslobj;override;
|
||||
begin
|
||||
case _name of
|
||||
"rels", "presentation_rels", "slide_layout_rels", "slide_master_rels", "slide_rels":
|
||||
return new Relationships();
|
||||
"app":
|
||||
return new Properties();
|
||||
"core":
|
||||
return new CoreProperties();
|
||||
"theme":
|
||||
return new Theme();
|
||||
"content_types":
|
||||
return new Types();
|
||||
"slide":
|
||||
return new Sld();
|
||||
"slide_layout":
|
||||
return new SldLayout();
|
||||
"slide_master":
|
||||
return new SldMaster();
|
||||
"presentation":
|
||||
return new Presentation();
|
||||
"pres_props":
|
||||
return new PresnetationPr();
|
||||
"table_styles":
|
||||
return new TblStyleLst();
|
||||
"view_props":
|
||||
return new ViewPr();
|
||||
end;
|
||||
end;
|
||||
|
||||
function Components.ReadRels();
|
||||
begin
|
||||
return self.SetProp(rels_, "rels");
|
||||
end;
|
||||
|
||||
function Components.ReadApp();
|
||||
begin
|
||||
return self.SetProp(app_, "app");
|
||||
end;
|
||||
|
||||
function Components.ReadCore();
|
||||
begin
|
||||
return self.SetProp(core_, "core");
|
||||
end;
|
||||
|
||||
function Components.ReadPresentationRels();
|
||||
begin
|
||||
return self.SetProp(presentation_rels_, "presentation_rels");
|
||||
end;
|
||||
|
||||
function Components.ReadSlideLayouts(_index: integer);
|
||||
begin
|
||||
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);
|
||||
end;
|
||||
|
||||
function Components.ReadSlideMasters(_index: integer);
|
||||
begin
|
||||
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);
|
||||
end;
|
||||
|
||||
function Components.ReadSlides(_index: integer);
|
||||
begin
|
||||
return self.SetPropArr(slide_array_, "slide", _index);
|
||||
end;
|
||||
|
||||
function Components.ReadSlideRels(_index: integer);
|
||||
begin
|
||||
return self.SetPropArr(slide_rels_array_, "slide_rels", _index);
|
||||
end;
|
||||
|
||||
function Components.ReadThemes(_index: integer);
|
||||
begin
|
||||
return self.SetPropArr(theme_array_, "theme", _index);
|
||||
end;
|
||||
|
||||
function Components.ReadPresentation();
|
||||
begin
|
||||
return self.SetProp(presentation_, "presentation");
|
||||
end;
|
||||
|
||||
function Components.ReadPresProps();
|
||||
begin
|
||||
return self.SetProp(pres_props_, "pres_props");
|
||||
end;
|
||||
|
||||
function Components.ReadTableStyles();
|
||||
begin
|
||||
return self.SetProp(table_styles_, "table_styles");
|
||||
end;
|
||||
|
||||
function Components.ReadViewProps();
|
||||
begin
|
||||
return self.SetProp(view_props_, "view_props");
|
||||
end;
|
||||
|
||||
function Components.ReadContentTypes();
|
||||
begin
|
||||
return self.SetProp(content_types_, "content_types");
|
||||
end;
|
||||
Reference in New Issue
Block a user