界面库

优化

designer/utslvcldcomponents.tsf

@@ -946,7 +946,7 @@ type TDForm = class(TDComponent)
 
     function WndClass();override;
     begin
-        return class(tvcform);
+        return class(tdcreateform);
         //return class(TDCreateForm);
     end 
     function create(AOwner);override;
@@ -976,7 +976,7 @@ type TDPanelForm = class(TDForm)
 
     function WndClass();override;
     begin
-        return class(TpanelForm);
+        return class(TDCreatePanel);
         //return class(TDCreatePanel);
     end 
     function create(AOwner);override;
@@ -1277,6 +1277,25 @@ type TGraphicsplitterWindow = class(TDVirutalWindow)
         //canvas.Font := font;
         //al := BindComp.TextAlign;
         //BindComp.CanvasDrawAlignText(self.canvas,self.ClientRect,self.caption,al);
+        dc := canvas;
+        r := ClientRect;
+        clr := 0x123232;
+        x := integer(r[0]+(r[2]-r[0])/2);
+        y := integer(r[1]+(r[3]-r[1])/2);
+        sz := 4;
+        sp := 5;
+        for j :=(0 -sz) to sz do 
+        begin 
+            for i:=(0 -sz) to sz do 
+            begin
+                x1 := x+sp*i;
+                y1 := y+sp*j;
+                if x1>r[0] and x1<r[2] and y1>r[1] and y1<r[3] then 
+                begin 
+                    dc.SetPixel(array(x1,y1),clr);
+                end 
+            end 
+        end 
     end 
     function SetPublish(n,v,pp);override;
     begin