设计器

优化体验

designer/udesignerproject.tsf

@@ -2527,7 +2527,7 @@ type tinheritedimput = class(TVCForm)
            object label3:tlabel
               left=6
               top=9
-              caption="만잚눗왯"
+              caption="可继承父类:"
            end
            object listbox1:tlistbox
               caption="listbox1"
@@ -2536,6 +2536,7 @@ type tinheritedimput = class(TVCForm)
               top=40
               visible=true
               width=274
+              onselectionchange=listselchanged
            end
            object btn1:tbtn
               caption="È¡Ïû"
@@ -2554,7 +2555,7 @@ type tinheritedimput = class(TVCForm)
               top=225
               width=53
               height=24
-              caption="츰냔"
+              caption="名称:"
            end
            object edit1:tedit
               caption="edit1"
@@ -2585,23 +2586,30 @@ type tinheritedimput = class(TVCForm)
         e.skip := true;
         o.Endmodal(0);
     end 
+    function listselchanged(o,e);
+    begin
+        idx := o.getCurrentSelection();  
+        if idx>=0 then 
+        begin
+            edit1.text := o.getItemText(idx)+"1";
+        end   
+    end 
     function getinfo();
     begin
         return array(fnds[listbox1.getCurrentSelection()],edit1.text);
     end 
     function setinfo();
     begin
+        ss := array();
         if parent then 
         begin
             tr := parent.tree;
             fnds := array();
             tr.GetNodesBytype(fnds,array("form","panel"));            
-            ss := array();
             for i,v in fnds do 
             begin
                 ss[i] := v.Fname;
             end             
-            
         end 
         listbox1.Items := ss;
         edit1.ExecuteCommand("ecselall");

designer/utslvcldcomponents.tsf

@@ -507,7 +507,14 @@ type TDComponent = class()
             obj.name := v;
             if v=(obj.name)  then 
             begin
-                if TreeNode then TreeNode.caption := v+":"+cn;    
+                if TreeNode then 
+                begin
+                    if inheritedparent then 
+                    begin
+                        pcn := "("+inheritedparent+")";
+                    end else pcn := "";
+                    TreeNode.caption := v+":"+cn+pcn;    
+                end 
                 if ifstring(odn) and v then  
                 begin 
                     ds := FTreeNode.owner.Designer;

funcext/tvclib/tslvcl.tsf

@@ -3327,7 +3327,8 @@ type TPairSplitter=class(tcustomcontrol) //
             for i := -4 to 4 do 
             begin
                 y1 := y+i*4;
-                dc.SetPixel(array(x,y1),0);
+                if y1>rc[1] and y1<rc[3] then 
+                    dc.SetPixel(array(x,y1),0);
             end        
         end else 
         begin
@@ -3336,7 +3337,8 @@ type TPairSplitter=class(tcustomcontrol) //
             for i := -4 to 4 do 
             begin
                 x1 := x+i*4;
-                dc.SetPixel(array(x1,y),0);
+                if x1>rc[0] and x1<rc[2] then 
+                    dc.SetPixel(array(x1,y),0);
             end  
  
         end