界面库

优化

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);