编辑器

css支持

funcext/tvclib/utslvclstdctl.tsf

@@ -141,7 +141,7 @@ type TCustomTimer = class(tcomponent)//
     tm.stop();//停止
     **}
     private
-    static _STIMERS; //TIMER对象
+    [weakref] static _STIMERS; //TIMER对象
     static FSIDC; //id 构造器
     class function Sgettimer(id);
     begin

funcext/tvclib/uvclthreadworker.tsf

@@ -99,7 +99,14 @@ type TCustomThreadworker = class()
         for idx,i in mrows(   FThreaders,1) do 
         begin
             o := FThreaders[i]; 
-            if uifeachthreadworkerdata(o.handle,msg,data) then 
+            try
+                oh := o.handle;
+            except
+                echo ">>>>>>>>>>>>>";
+                DeleteWorker(i);
+                uideleteworkerdata(oh); //删除数据
+            end 
+            if uifeachthreadworkerdata(oh,msg,data) then 
             begin
                 case msg of
                     0x30: //构成成功
@@ -112,7 +119,7 @@ type TCustomThreadworker = class()
                     end 
                     0x12: //成功关闭
                     begin
-                        uideleteworkerdata(o.handle); //删除数据
+                        uideleteworkerdata(oh); //删除数据
                         o.ClientReady(0);
                         DeleteWorker(i);
                         o.destroy();
@@ -204,7 +211,7 @@ type TCustomThreadworker = class()
     function SetOnStart(e)begin
         FThreader.OnStart := e ;     
     end 
-    static FThreaders;
+    [weakref]static FThreaders;
     FScript; //脚本
     FThreader;//host对象
 end 
@@ -230,7 +237,7 @@ begin
                     uisetthreadworkerdata(ph,0x12,0); //关闭完成
                     uideleteworkerdata(h); //删除消息
                     return;
-                end  
+                end                  
                 0x20 :  //post
                 begin
                     this.DoOnMessage(d);
@@ -282,10 +289,10 @@ type tworkerHost = class(TArray)
     function close(); //关闭命令 0x10
     begin
         if FConnectHandle then 
-        begin             
+        begin   
             uisetthreadworkerdata(FConnectHandle,0x11,0); 
         end 
-    end 
+    end         
     function ClientReady(h); //任务句柄改变
     begin
         FConnectHandle := h;   
@@ -294,8 +301,7 @@ type tworkerHost = class(TArray)
             if iffuncptr(FOnStart) then 
             begin 
                 try
-                    call(FOnStart,self);                    
-                 
+                    call(FOnStart,self);                                     
                 except
                 
                 end;