界面库

优化

designer/tslvcldesigner.tsf

@@ -2382,7 +2382,7 @@ type TGraphicsplitterWindow = class(TDVirutalWindow)
         width := BindComp.width;
         height := BindComp.Height;
         color := BindComp.color;
-        WindowFileds := array("left","top","width","height","color","visible","enabled","align");
+        WindowFileds := array("left","top","width","height","color","parentcolor","visible","enabled","border","align");
     end 
     
     function DesigningSizer();override;

designer/udesignerproject.tsf

@@ -486,7 +486,8 @@ type TProjectView = class(TVCForm) //
         begin
             n := cn.FPath;
             CreateDirWithFileName(FCProjectPath+n+fio+"1.txt");
-            _wapi.WinExec('cmd.exe /C start "" "'+FCProjectPath+n,1);
+            //_wapi.WinExec('cmd.exe /C start "" "'+FCProjectPath+n,1);
+            _wapi.openresourcemanager(FCProjectPath+n);
         end else
         begin
             OpenFileByName(cn.FName);

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