优化设计器部分窗口

designer/udesignerproject.tsf

@@ -20,11 +20,12 @@ type TProjectManagerForm = class(TVCForm) //
         WsPopUp := true;
         WsSysMenu := true;
         rc := _wapi.GetScreenRect();
-        l :=(rc[2]-rc[0])/2-280;
-        t :=(rc[3]-rc[1])/2-230;
-        SetBoundsRect(array(l,t,480+l,300+t));
+        //l :=(rc[2]-rc[0])/2-280;
+        //t :=(rc[3]-rc[1])/2-230;
+        //SetBoundsRect(array(l,t,480+l,300+t));
+        SetBoundsRect(array(100,100,700,500));
         FList := new TProgValueList(self);
-        FList.Border := false;
+        FList.Border := true;
         d := GetAllProjects();
         p := array();
         for i,v in d do p[i]:= array("caption":v["name"],"value":v["file"]);
@@ -40,10 +41,10 @@ type TProjectManagerForm = class(TVCForm) //
         FList.OnDblClick := thisfunction(OpenSelectedObject);
         FDelBtn := new TBtn(self);
         FOpenBtn := new TBtn(self);
-        FDelBtn.caption := "移除(D)";
+        FDelBtn.caption := "移除";
         FOpenBtn.height := 28;
         FDelBtn.height := 28;
-        FOpenBtn.caption := "打开(O)";
+        FOpenBtn.caption := "打开";
         FDelBtn.parent := self;
         FOpenBtn.parent := self;
         FDelBtn.OnClick := function(o,e)
@@ -341,7 +342,7 @@ type TProjectView = class(TVCForm) //
         rc := _wapi.GetScreenRect();
         left := 20;
         top := 150;
-        width := 300; //350
+        width := 360; //350
         height := max(400,rc[3]-200);
         FInput := new TNameInput(self);
         finheritedinput := new tfm_inheritedwnd(self);

designer/utslvcldesigner.tsf

@@ -57,6 +57,7 @@ type TVclDesigner = class(tvcform)
     function OpenProjectFromtpj(); //工程选择
     begin
         SetWndPostWithMouse(FProjectsManager);
+        //center_popup_wnd(FProjectsManager,true);
         FProjectsManager.Show();
         return ;
     end 
@@ -1493,11 +1494,12 @@ type TVclDesigner = class(tvcform)
             if vi in array("(none)","create","destroy","recycling","loadfromtfm") then continue;
             FFunctionSelecter.additem(vi);
         end 
-    end 
-    
+    end     
     function create(AOwner);
     begin
         inherited; 
+        ParentFont := false;
+        Font := array("width":10,"height":20);
         top := 10;
         left := 10;
         rect := _wapi.GetScreenRect();
@@ -1713,7 +1715,7 @@ type TVclDesigner = class(tvcform)
         project.Onclose := thisfunction(spectorclose);
         project.WsPopUp := true;
         project.Visible := false;
-        project.Width := 300;//
+        project.Width := 345;//
         project.height := 800;
         project.WsCaption := true;
         project.WsSysmenu := true;
@@ -2145,7 +2147,7 @@ type TDesignertoolbars = class(TPageControl)  //
         flg := true;
         for i,sbi in sb do 
         begin 
-            if sbi.ExecuteCommand("getbtncount")<20 then 
+            if sbi.ExecuteCommand("getbtncount")<21 then 
             begin 
                 flg := false;
                 break;