liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

修正手误
This commit is contained in:
JianjunLiu 2023-07-26 16:04:21 +08:00
parent c4f3f973d1
commit 5324cd4e1e
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
funcext/tvclib/tslvcl.tsf
View File

@ -4749,7 +4749,7 @@ type tworkerctl =class(tcomponent) //
function setOnError(f); function setOnError(f);
begin begin
FOnError := f; FOnError := f;
if fworker then fworker.FOnError := f; if fworker then fworker.OnError := f;
end end
function Setscript(s); function Setscript(s);
begin begin

7
funcext/tvclib/utslvclauxiliary.tsf
View File

@ -1732,16 +1732,18 @@ type TNode = class() //
return FItems.Count; return FItems.Count;
end end
end end
type TTire = class type TTire = class()
{** {**
@explan(˵Ã÷) tireÊ÷ @explan(˵Ã÷) tireÊ÷
**} **}
type TTireNode = class type TTireNode = class()
[weakref] parent;
FChar; FChar;
FSub; FSub;
FEnd; FEnd;
Ficase; Ficase;
_tag; _tag;
_tag2;
function Create(v); function Create(v);
begin begin
FChar := v; FChar := v;
@ -1759,6 +1761,7 @@ type TTire = class
vsub := new TTireNode(v0); vsub := new TTireNode(v0);
vsub.Ficase := Ficase; vsub.Ficase := Ficase;
FSub[v0] := vsub; FSub[v0] := vsub;
vsub.Parent := self;
end end
ls := length(s); ls := length(s);
if ls>1 then if ls>1 then