更新动态库

designer/ctl_mgr/resource.tfm/t_bconfig_cmd_shower.tfm

@@ -36,7 +36,7 @@ object bconfig_cmd_shower:t_bconfig_cmd_shower
       align=alclient
       autogutterwidth=true
       caption="memo1"
-      height=166
+      height=211
       left=0
       readonly=true
       top=0

designer/ctl_mgr/resource.tfm/t_compile_config.tfm

@@ -1,19 +1,19 @@
 object ed_script:t_compile_config
    caption="编译选项设置"
-   height=634
+   height=681
    left=618
    minmaxbox=false
    onclose=compile_config_close
    top=180
    width=502
-   wssizebox=false
+   wssizebox=true
    object bt_ok:tbtn
       caption="确定"
       height=31
-      left=408
+      left=405
       onclick=bt_ok_clk
       parentcolor=false
-      top=551
+      top=582
       width=55
    end
    object gp_dir:tgroupbox
@@ -253,17 +253,17 @@ object ed_script:t_compile_config
    object bt_cancel:tbtn
       caption="取消"
       height=31
-      left=335
+      left=332
       onclick=bt_cancel_clk
-      top=551
+      top=582
       width=55
    end
    object gp_other:tgroupbox
       caption="其他"
-      height=100
-      left=28
+      height=129
+      left=27
       parentcolor=true
-      top=442
+      top=440
       width=437
       object ck_gui:tcheckbtn
          caption="gui"
@@ -290,30 +290,44 @@ object ed_script:t_compile_config
       end
       object lb_ico:tlabel
          left=17
-         top=64
-         width=39
+         top=59
+         width=66
          height=25
-         caption="图标"
+         caption=" 图   标:"
       end
       object ed_ico:tedit
          caption="edit3"
          height=25
-         left=63
-         top=64
-         width=249
+         left=94
+         top=58
+         width=277
       end
       object bt_ico:tbtn
          caption="..."
          height=25
-         left=319
+         left=386
          onclick=bt_ico_clk
-         top=64
+         top=58
          width=22
       end
+      object l_namespace:tlabel
+         left=17
+         top=93
+         width=75
+         height=25
+         caption="namespace:"
+      end
+      object e_namespace:tedit
+         caption="edit1"
+         height=25
+         left=94
+         top=93
+         width=278
+      end
    end
    object f_op:topenfileadlg
-      left=68
-      top=553
+      left=15
+      top=575
       height=30
       width=30
       caption="openfileadlg1"
@@ -346,9 +360,9 @@ object ed_script:t_compile_config
    object bt_cmd:tbtn
       caption="命令行"
       height=31
-      left=202
+      left=208
       onclick=bt_cmd_clk
-      top=551
+      top=582
       width=92
    end
 end

designer/ctl_mgr/t_compile_config.tsf

@@ -45,6 +45,8 @@ type t_compile_config=class(tdcreateform)
     ed_tsg:tedit;
     bt_tsgadd:tbtn;
     bt_cmd:tbtn;
+    l_namespace:tlabel;
+    e_namespace:tedit;
     function Create(AOwner);override; //构造
     begin
         f_sep := iofileseparator();
@@ -114,6 +116,7 @@ type t_compile_config=class(tdcreateform)
         ck_gui.Checked := r["buildgui"] ;
         ed_ico.text := r["buildico"];  
         ed_tsg.text := r["pkg"];
+        e_namespace.text := r["nspace"];
         //ck_s_rp.Checked := r["resourcekeepdir"];        
     end 
     function get_config();
@@ -138,7 +141,8 @@ type t_compile_config=class(tdcreateform)
         r["buildgui"] := ck_gui.Checked;
         r["buildico"] := ed_ico.text;  
         r["resourcekeepdir"] := ck_s_rp.Checked;
-        r["pgk"] := ed_tsg.text;
+        r["pgk"] := trim(ed_tsg.text);
+        r["nspace"] := trim(e_namespace.text);
         return r;
     end 
     function clear_config();//清理
@@ -152,10 +156,11 @@ type t_compile_config=class(tdcreateform)
         ed_s_dirs.text := "";
         ed_s_type.text := "";
         ed_include_s.text := "";        
-        ck_strong.Checked := "";
-        ck_gui.Checked := "";
+        ck_strong.Checked := false;
+        ck_gui.Checked := false;
         ed_ico.text := "";  
-        ck_s_rp.Checked := "";
+        ck_s_rp.Checked := false;
+        e_namespace.text := "";
         flibpath := "";
     end 
     function bt_outputname_clk(o;e);virtual;
@@ -395,6 +400,7 @@ type t_compile_config=class(tdcreateform)
     function createoutputname(n);
     begin        
         tp := get_type();
+        sp := iofileseparator();
         for i:= length(n) downto 1 do 
         begin 
             if n[i]="." and i>1 then 
@@ -403,7 +409,7 @@ type t_compile_config=class(tdcreateform)
                 break;  
             end 
         end 
-        if not nv then nv := "."+iofileseparator()+"default";
+        if not nv then nv := "."+sp+"default";
         return nv+tp;
     end 
     function set_base_dir(v);
@@ -442,7 +448,13 @@ type t_compile_config=class(tdcreateform)
         if r[length(r)]="\n" then 
             r +=format('--manifest="%s" ',d["buildfile"]+".manifest");
         else r +=format('\r\n--manifest="%s" ',d["buildfile"]+".manifest");
-{$endif}     
+{$endif}   
+        if d["nspace"] then 
+        begin
+            if r[length(r)]="\n" then r+=format("--setpkg2ns=%s ",d["nspace"]);
+            else 
+                r+=format("\r\n--setpkg2ns=%s ",d["nspace"]);
+        end   
         return r;
     end     
     function f_b_a_param(d,n);