bjq

编译-加入缓存记录

designer/utslcodeeditor.tsf

@@ -2222,13 +2222,18 @@ type TEditer=class(TCustomcontrol) //
         FEchoWnd.Exec("",s,h);
     end
     compile_config;
+    fpg_config_infos;
     function buildpageitem(it);
     begin
+        if not ifarray(fpg_config_infos) then fpg_config_infos := array();
         if not it then return;
         ShowEchoWnd();
         if FEchoWnd.Exeing()then return FEchoWnd.Endexe();
         r := array();
         f := it.ScriptPath;
+        pginf := fpg_config_infos[f];
+        if not pginf then 
+        begin 
         if 1=parseregexpr("\\.tsf$",f,"i",m,mp,ml) then 
         begin
             r["build"] := "--buildlib";
@@ -2262,7 +2267,12 @@ type TEditer=class(TCustomcontrol) //
         r["libpath"] := ds;
         if ot then r["output"] := ot;
         r["dependsdir"] := replacetext(ds,";",",");
-        build_with_data(nil,r);
+        end else 
+        begin
+            r := pginf;
+        end 
+        nr := build_with_data(nil,r);
+        if nr then fpg_config_infos[f] := nr;
     end 
     function get_local_pos(x,y);
     begin
@@ -5095,7 +5105,10 @@ type TEditerEchoWnd=class(TSynMemoNorm) //
         if d["buildgui"]  then r+= "   -buildgui";   
 {$ifdef linux}
 {$else}
-       r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
+        if fileexists("",(d["buildfile"]+".manifest")) then 
+        begin 
+            r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
+        end 
 {$endif}   
         return r;
     end