界面库

优化

designer/utslcodeeditor.tsf

@@ -2033,6 +2033,7 @@ type TEditer=class(TCustomcontrol) //
             end else
             if(d["section"]in array("文件查找"))and(d["btn"]="全部替换")then
             begin
+                if messageboxa("即将在目录中替换内容!!","提示",mb_YesNo,self.Handle)<> IDYES then return EndFind();
                 FFindListWnd.Clean();
                 ShowFindWnd();
                 FindInFiles(d,o,true,ct);

funcext/tvclib/utslvcltree.tsf

@@ -1542,10 +1542,10 @@ type TcustomTreeCtl = class(ttreelistwnd)
                     if FonEmptyNodeExapanding then 
                     begin 
                         e := new TTreeSelCHngedEvent(0,0,0,0);
-                        e.item := item;
+                        e.item := pm;
-                        e.ItemNew := item;
+                        e.ItemNew := pm;
-                        e.ItemOld := item;
+                        e.ItemOld := pm;
-                        calldatafunction(FonEmptyNodeExapanding,pm,e);
+                        CallMessgeFunction(FonEmptyNodeExapanding,self(true),e);
                     end 
                 end 
                 return ;