界面库

整理代码

designer/udesignerproject.tsf

@@ -1801,10 +1801,6 @@ type TFileTree = class(TTreeCtl)
     end
     fprojectpath;
     fio;
-    function CreateTreeNode();override;
-    begin
-        return New TTNode(self);
-    end
     function GetInfo(dir,files); //获得信息
     begin
         leafs := array();
@@ -1902,10 +1898,12 @@ type TFileTree = class(TTreeCtl)
         fio := ioFileseparator();
         ImageList := CreateaImageList(self,FImageIdName);
         hasline := true;
+        nodecreator := class(TTNode);
         FPNode := CreateTreeNode();
         FPNode.Caption := "当前工程";
         FPNode.FType := "dir";
         FPNode.parent := RootNode;
+        
         //SetSel(FPNode);
     end
     function GetNodesByName(nds,n);

designer/utslvcldcomponents.tsf

@@ -550,6 +550,7 @@ type TDComponent = class()
                     nn := cn+inttostr(i++);
                     if nn in TemporaryNotName then continue;
                     obj.name := nn;
+                    if obj.Name<>nn then continue;
                     SetComponentProperties("caption",nn);
                     oname := nn;//obj.name;
                 end 
@@ -812,10 +813,6 @@ type TComponentTree = class(TTreeView) //
     begin
         if not FLoading then inherited;
     end 
-    function CreateTreeNode();override;   //构造节点
-    begin
-        return new TComponentTreeNode(self(true));
-    end 
     function Recycling();override; //回收
     begin
         FDesigner := nil;
@@ -826,6 +823,7 @@ type TComponentTree = class(TTreeView) //
         inherited;
         asdomain := true;
         FDesigner := AOwner;
+        nodecreator := class(TComponentTreeNode);
     end 
     function GetRootNode();override;   //根节点
     begin