界面库

优化树控件

designer/tslvcldesigner.tsf

@@ -1768,6 +1768,7 @@ type TVclDesigner = class(tvcform)
         @explan(说明) 设置当前类使用的函数名称 %%
     **}
         FFunctionSelecter.clean();
+        FFunctionSelecter.additem("(none)");
         for i,vi in v do 
         begin
             if vi in array("create","destroy","recycling","loadfromtfm") then continue;
@@ -7480,7 +7481,14 @@ type TBitmapGrid = class(TGridList)
     end 
 end 
 
+type tnone = class()
+    function create();
+    begin
+        name := "(none)";    
+    end 
+    name;
 
+end 
 type TListVariableFilter = class(TListVariable)
     private
     FVlist;
@@ -7547,7 +7555,7 @@ type TListVariableFilter = class(TListVariable)
                 vs[length(vs)] := vi;
             end 
         end 
-        additems(vs);
+        additems(array(new tnone()) union vs);
     end 
     function create(AOwner);override;
     begin
@@ -7633,7 +7641,7 @@ type TListVariable = class(TGridList)
     begin
         id := e.iitem;
         inherited;
-        if id<0 then 
+        if id<0 or (SelectedValue is class(tnone)) or (SelectedValue = "(none)") then 
         begin
             UnSelected();
         end