界面库

优化

funcext/tvclib/tcustomsplitter.tsf

@@ -10,6 +10,18 @@ type tcustomsplitter = class(tgraphiccontrol)
         Width := 6;
         Height := 100;
     end 
+    function paint();override;
+    begin
+        inherited;
+        if Border then 
+        begin
+            r := ClientRect;
+            dc := Canvas;
+            dc.pen.color := 0;
+            dc.pen.Width := 2;
+            dc.draw("polygon",array(r[0:1],r[array(2,1)],r[array(2,3)],r[array(0,3)],r[0:1]));
+        end 
+    end 
     function SetAlign(a);override;
     begin
         inherited;

funcext/tvclib/tslvcl.tsf

@@ -2516,7 +2516,7 @@ type tsplitter = class(tcustomsplitter)
     end 
     function publishs();override;
     begin
-        return array("name","enabled","border","left","top","width","height","color","transparent","visible","align");
+        return array("name","enabled","border","left","top","width","height","color","parentcolor","transparent","visible","align");
     end 
 end