设计器

优化

funcext/tvclib/twincontrol.tsf

@@ -1922,23 +1922,28 @@ type TWinControl = class(tcontrol)
             sel := -1;
             selr := 0;
             len := ctls.count-1 ;
+            ct := 0;
             for i:= 0 to len do 
             begin
                 vi := ctls[i];
                 if vi is class(TWinControl) then 
                 begin
-                    if vi.Visible then rcs[i] := vi.BoundsRect;
+                    if vi.WsPopUp then continue;
+                    if not(vi.Visible) then continue;
+                    rcs[i] := vi.BoundsRect;
                     if vi.DesigningSelect() then 
                     begin 
                         sel := i; 
                         selr := rcs[i];
                     end 
+                    ct++;
                 end 
             end 
-            if sel >=0 then 
+            if (sel >=0) and (ct>1) then 
             begin
                 pc := cv.pen.color;
                 pct := cv.pen.style;
+                pcw := cv.pen.width;
                 cv.pen.Style := PS_DOT;
                 cv.pen.color := 0x3f3f3f;
                 for i := 0 to len do 
@@ -1969,6 +1974,7 @@ type TWinControl = class(tcontrol)
                 end 
                 cv.pen.color := pc;
                 cv.pen.style := pct;
+                cv.pen.width := pcw;
             end   
         end 
     end