设计器

优化体验
2022-10-20 17:14:17 +08:00
parent c484ac2ea9
commit 3ceedb95cb
3 changed files with 26 additions and 9 deletions
@@ -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