支持文本框

ware/TSDocxComponentsWare.tsf

@@ -8,6 +8,8 @@ public
     function GetTblStylePrByType(style_id: string; type: string): TblStylePr;
     function GetFtr(target: string): Ftr;
     function GetHdr(target: string): Hdr;
+    function GetFtrRelsAdapter(target: string): RelationShipsAdapter;
+    function GetHdrRelsAdapter(target: string): RelationShipsAdapter;
 
 private
     styles_deserialize_flag_;
@@ -17,6 +19,8 @@ private
     tbl_style_pr_hash_;
     ftr_hash_;
     hdr_hash_;
+    hdr_rel_hash_;
+    ftr_rel_hash_;
 end;
 
 function TSDocxComponentsWare.Create();
@@ -25,6 +29,8 @@ begin
     tbl_style_pr_hash_ := array();
     ftr_hash_ := array();
     hdr_hash_ := array();
+    hdr_rel_hash_ := array();
+    ftr_rel_hash_ := array();
 end;
 
 function TSDocxComponentsWare.GetStyles(): Styles;
@@ -89,3 +95,25 @@ begin
     hdr_hash_[target] := obj;
     return obj;
 end;
+
+function TSDocxComponentsWare.GetHdrRelsAdapter(target: string): RelationShipsAdapter;
+begin
+    if hdr_rel_hash_[target] then return hdr_rel_hash_[target];
+    index := replaceStr(replaceStr(target, "header", ""), ".xml", "");
+    obj := {self.}HeaderRels(strtoint(index));
+    obj.Deserialize();
+    rels_adapter := new RelationShipsAdapter(obj);
+    hdr_rel_hash_[target] := rels_adapter;
+    return rels_adapter;
+end;
+
+function TSDocxComponentsWare.GetFtrRelsAdapter(target: string): RelationShipsAdapter;
+begin
+    if ftr_rel_hash_[target] then return ftr_rel_hash_[target];
+    index := replaceStr(replaceStr(target, "header", ""), ".xml", "");
+    obj := {self.}FooterRels(strtoint(index));
+    obj.Deserialize();
+    rels_adapter := new RelationShipsAdapter(obj);
+    ftr_rel_hash_[target] := rels_adapter;
+    return rels_adapter;
+end;