tinysoft/OfficeXml
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

1. 升级装饰器和适配器代码

Browse Source 
2. 修复components的bug
This commit is contained in:
csh
2024-08-05 11:37:00 +08:00
parent 978cff648b
commit fedb1cd28a
306 changed files with 1459 additions and 13089 deletions
Download Patch File Download Diff File Expand all files Collapse all files
utils/TSComponentsBase.tsf
+11 -4
View File
@@ -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;