Update udesignerproject.tsf

优化设计器

designer/udesignerproject.tsf

@@ -2554,7 +2554,7 @@ type tinheritedimput = class(TVCForm)
               top=40
               visible=true
               width=274
-              onselectionchange=listselchanged
+              onselchanged=listselchanged
            end
            object btn1:tbtn
               caption="取消"
@@ -2609,7 +2609,16 @@ type tinheritedimput = class(TVCForm)
         idx := o.getCurrentSelection();  
         if idx>=0 then 
         begin
-            edit1.text := o.getItemText(idx)+"1";
+            
+            s := o.getItemText(idx);
+            n := 1;
+            while true do 
+            begin
+                ns := s+inttostr(n); 
+                if not(fns[ns]) then break;
+                n++;
+            end 
+            edit1.text := ns;
         end   
     end 
     function getinfo();
@@ -2619,6 +2628,7 @@ type tinheritedimput = class(TVCForm)
     function setinfo();
     begin
         ss := array();
+        fns := array();
         if parent then 
         begin
             tr := parent.tree;
@@ -2626,7 +2636,9 @@ type tinheritedimput = class(TVCForm)
             tr.GetNodesBytype(fnds,array("form","panel"));            
             for i,v in fnds do 
             begin
-                ss[i] := v.Fname;
+                s := v.Fname;
+                ss[i] := s;
+                fns[s] := true;
             end             
         end 
         listbox1.Items := ss;
@@ -2634,6 +2646,7 @@ type tinheritedimput = class(TVCForm)
     end
     public //成员变量 
     fnds;
+    fns;
     label3;
     listbox1;
     btn1;