界面库

优化
2022-08-16 17:23:28 +08:00
parent 273cefc5c7
commit 61a705ec45
7 changed files with 64 additions and 35 deletions
@@ -1795,6 +1795,9 @@ type TVclDesigner = class(tvcform)
        
        FProjectsManager.parent  := self;
        FProjectManager := new TProjectView(self);
+        FProjectManager.height := rect[3]-top-height-20;
+        FProjectManager.left := left;
+        FProjectManager.top := top+height;
        ico := new tbitmap();
        ico.Readvcon(HexFormatStrToTsl(GetWindowMgrBmp()));
        FProjectManager.FormICon := ico.ToIcon();
@@ -1958,7 +1961,7 @@ type TVclDesigner = class(tvcform)
        if FObjInspector.Visible then 
        begin 
            FObjInspector.left := width+ Left-FObjInspector.width;
-            FObjInspector.top := top+height+20;
+            FObjInspector.top := top+height;
        end 
        if o then 
        begin