重大更新:设计方式由namspace转变成unit

This commit is contained in:
csh
2025-01-02 11:39:09 +08:00
parent 48e4de7b87
commit c77abfc1c8
474 changed files with 88900 additions and 43433 deletions
@@ -1,4 +1,4 @@
type Components = class(TSComponentsBase)
type PptxComponents = class(TSComponentsBase)
public
function Create();
function Init();override;
@@ -58,15 +58,14 @@ private
table_styles_: TblStyleLst;
view_props_: ViewPr;
content_types_: Types;
end;
function Components.Create();
function PptxComponents.Create();
begin
Class(TSComponentsBase).Create();
end;
function Components.Init();override;
function PptxComponents.Init();override;
begin
conf_ := array
(
@@ -105,7 +104,7 @@ begin
content_types_ := nil;
end;
function Components.NewObject(_name: string): tslobj;override;
function PptxComponents.NewObject(_name: string): tslobj;override;
begin
case _name of
"rels", "presentation_rels", "slide_layout_rels", "slide_master_rels", "slide_rels":
@@ -135,82 +134,82 @@ begin
end;
end;
function Components.ReadRels();
function PptxComponents.ReadRels();
begin
return {self.}SetProp(rels_, "rels");
end;
function Components.ReadApp();
function PptxComponents.ReadApp();
begin
return {self.}SetProp(app_, "app");
end;
function Components.ReadCore();
function PptxComponents.ReadCore();
begin
return {self.}SetProp(core_, "core");
end;
function Components.ReadPresentationRels();
function PptxComponents.ReadPresentationRels();
begin
return {self.}SetProp(presentation_rels_, "presentation_rels");
end;
function Components.ReadSlideLayouts(_index: integer);
function PptxComponents.ReadSlideLayouts(_index: integer);
begin
return {self.}SetPropArr(slide_layout_array_, "slide_layout", _index);
end;
function Components.ReadSlideLayoutRels(_index: integer);
function PptxComponents.ReadSlideLayoutRels(_index: integer);
begin
return {self.}SetPropArr(slide_layout_rels_array_, "slide_layout_rels", _index);
end;
function Components.ReadSlideMasters(_index: integer);
function PptxComponents.ReadSlideMasters(_index: integer);
begin
return {self.}SetPropArr(slide_master_array_, "slide_master", _index);
end;
function Components.ReadSlideMasterRels(_index: integer);
function PptxComponents.ReadSlideMasterRels(_index: integer);
begin
return {self.}SetPropArr(slide_master_rels_array_, "slide_master_rels", _index);
end;
function Components.ReadSlides(_index: integer);
function PptxComponents.ReadSlides(_index: integer);
begin
return {self.}SetPropArr(slide_array_, "slide", _index);
end;
function Components.ReadSlideRels(_index: integer);
function PptxComponents.ReadSlideRels(_index: integer);
begin
return {self.}SetPropArr(slide_rels_array_, "slide_rels", _index);
end;
function Components.ReadThemes(_index: integer);
function PptxComponents.ReadThemes(_index: integer);
begin
return {self.}SetPropArr(theme_array_, "theme", _index);
end;
function Components.ReadPresentation();
function PptxComponents.ReadPresentation();
begin
return {self.}SetProp(presentation_, "presentation");
end;
function Components.ReadPresProps();
function PptxComponents.ReadPresProps();
begin
return {self.}SetProp(pres_props_, "pres_props");
end;
function Components.ReadTableStyles();
function PptxComponents.ReadTableStyles();
begin
return {self.}SetProp(table_styles_, "table_styles");
end;
function Components.ReadViewProps();
function PptxComponents.ReadViewProps();
begin
return {self.}SetProp(view_props_, "view_props");
end;
function Components.ReadContentTypes();
function PptxComponents.ReadContentTypes();
begin
return {self.}SetProp(content_types_, "content_types");
end;
File diff suppressed because it is too large Load Diff
+6114
View File
File diff suppressed because it is too large Load Diff