diff --git a/designer/utslsynmemo.tsf b/designer/utslsynmemo.tsf
index 494de61..1ae7dbe 100644
--- a/designer/utslsynmemo.tsf
+++ b/designer/utslsynmemo.tsf
@@ -2170,7 +2170,7 @@ type TTsfFileParser = class() //
         if readFile(rwRaw(),"",pfn,0,sz,rdd) then
         begin
             if rdd then 
-            begin 
+            begin                 
                 if errtslcode(rdd) then 
                 begin 
                     r := array();
diff --git a/funcext/tvclib/utslvclbase.tsf b/funcext/tvclib/utslvclbase.tsf
index 0bef6b9..0e92d45 100644
--- a/funcext/tvclib/utslvclbase.tsf
+++ b/funcext/tvclib/utslvclbase.tsf
@@ -184,16 +184,17 @@ type TSLUIBASE=class(TSLUICONST) //图
     @explan(说明)图像库基类,提供基本的底层操作和常量 %%
     **}
     private
-    FReCycleState;
+    
+    static const TSLRCS_NONE = 0;
+    static const TSLRCS_BEGIN = 1;
+    static const TSLRCS_END = 2;
     static FTSLkeyWords;
-    static FTSLkeyWordshash;
-    static TSLRCS_NONE;
-    static TSLRCS_BEGIN;
-    static TSLRCS_END;
+    static FTSLkeyWordshash;    
     static FHAPP;
-    static FEditTypes;
+    //static FEditTypes;
     _hashdata;
     _temppath;
+    FReCycleState;
     function Gethapp();
     begin
         return FHAPP;
@@ -229,9 +230,6 @@ type TSLUIBASE=class(TSLUICONST) //图
         if not FHAPP then
         begin
             FHAPP := _wapi.GetModuleHandleA(0);
-            TSLRCS_NONE := 0;
-            TSLRCS_BEGIN := 1;
-            TSLRCS_END := 2;
         end
     end
     class Function isKeyWords(key);
diff --git a/funcext/tvclib/utslvcltree.tsf b/funcext/tvclib/utslvcltree.tsf
index f73a498..6df510a 100644
--- a/funcext/tvclib/utslvcltree.tsf
+++ b/funcext/tvclib/utslvcltree.tsf
@@ -1369,10 +1369,13 @@ type TcustomTreeCtlNode = class(tsluibase) //
     FHierarchy; //层级
     FCaption; //标题
     FChecked; //选择
+    static fnodehandlebase; //////
     private //普通属性设置
-    function initnodehandle();
+    function initnodehandle();//给当前节点分配一个id
     begin
-        FHandle := inttostr(int64(new THandleClass()));
+        if not(fnodehandlebase>0) then fnodehandlebase:= 0xff;
+        fnodehandlebase := fnodehandlebase+1;
+        FHandle := fnodehandlebase;
     end 
     function SetWidth(w);virtual;
     begin
@@ -1893,10 +1896,7 @@ type TcustomTreeCtl = class(ttreelistwnd)
         end
     end
 end
-
 implementation
-type THandleClass=class()//句柄对象
-end
 
 initialization