界面库

优化

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 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);

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