gtk

升级

designer/ctl_mgr/resource.tfm/t_compile_config.tfm

@@ -1,6 +1,6 @@
 object ed_script:t_compile_config
    caption="编译选项设置"
-   height=631
+   height=634
    left=618
    minmaxbox=false
    onclose=compile_config_close
@@ -282,6 +282,7 @@ object ed_script:t_compile_config
       end
       object ck_s_rp:tcheckbtn
          caption="资源文件保留相对路径"
+         enabled=false
          height=25
          left=253
          top=25

designer/ctl_mgr/t_compile_config.tsf

@@ -305,6 +305,11 @@ type t_compile_config=class(tdcreateform)
         begin 
             r+= (ph?relative_path(v):v)+",";                  
         end 
+        lr := length(r);
+        if lr>2 and r[lr]="," and (r[lr-1]<>"\\") then 
+        begin 
+            r := r[1:(lr-1)];
+        end 
         return r;
     end 
     function relative_path(d);