界面库

gtk 窗口大小和windows一致
2022-08-15 16:22:38 +08:00
parent e77ddf4e7a
commit 273cefc5c7
3 changed files with 65 additions and 32 deletions
@@ -885,9 +885,9 @@ type TVclDesigner = class(tvcform)
            end 
            mx := 0;
            for i,v in clc do mx := max(mx,v);
-            height := (integer(mx*32/twidth)+1)*32+60+30+24;
+            height := (integer(mx*32/twidth)+1)*32+60+30+24+5;
        end else 
-            height := 90+32+24;
+            height := 90+32+24+5;
    end 

    function TreeNode2tfmsub(lib,node,itemnames);//tmf文件字符串