tsl

更新底层库

designer/tediterform.tsf

@@ -23,8 +23,18 @@ type TEditerForm = class(TVCform) //
         inherited;
     end 
     function editerinfo();
-    begin
-        return "tsl语言本地编辑器\r\n版本:1.0.0\r\n日期:2022-07-19";
+    begin        
+        s :=  "tsl语言本地编辑器\r\n版本:1.0.0\r\n日期:2022-07-19";
+        f := tslfilename()+".about";
+        if fileexists("",f) then 
+        begin
+            size := filesize("",f);
+            if readFile(rwraw(),"",f,0,size,data) then 
+            begin
+                return data;
+            end 
+        end         
+        return s;
     end 
     function Create(AOwner);override;
     begin
@@ -428,7 +438,7 @@ type TEditerForm = class(TVCform) //
             end 
             "¹ØÓÚ":
             begin
-                return messageboxa(editerinfo(),"说明",0,self.Handle);
+                return messageboxa(static editerinfo(),"关于",0,self.Handle);
             end 
         
         end 

designer/tslediter.tsl.about

@@ -0,0 +1,3 @@
+"tsl语言本地编辑器about
+版本:1.0.0
+日期:2022-07-19"

designer/utslcodeformat.tsf

@@ -943,7 +943,11 @@ type TFormatParser = class
                 begin
                     stype := TK_UNIT;
                 end 
-                "private","public","published","interface","implementation","initialization" : stype := TK_PRIVATE;
+                {$ifdef weakref}
+                "private","public","published","interface","implementation","initialization","weakref","autoref" : stype := TK_PRIVATE;
+                {$else}
+                "private","public","published","interface","implementation","initialization": stype := TK_PRIVATE;
+                {$endif}
                 "function","procedure": stype := TK_FUNCTION;
                 "type": stype := TK_TYPE;
                 "try": stype := TK_TRY;

designer/utslvcldebuger.tsf

@@ -938,7 +938,8 @@ type TTslDebuga=class(TCustomControl)
         //echo "\r\nrectype",format("0x%x",recvtype);
         if 0x0401=recvtype then
         begin
-            owner.echoAppendString(d["errmsg"]);
+            //owner.echoAppendString(d["errmsg"]);
+            ExecuteCommand("showeval",d["errmsg"]);
             return;
         end
         if recvtype <> 0x402 then

funcext/tvclib/utslvclstdctl.tsf

@@ -6692,7 +6692,7 @@ type tcustomprocess = class(tcomponent)  //
         if fprocesshandle then return 0;
         if not parserasexeclevparam(exe,cmd,e,arg,envp) then return 0;                
         Sysexecnewpipe(0);
-        ferrinfo := nil;
+        ferrinfo := nil;        
         hd := sysexec(e,arg,nil,false,code); 
         if hd=0 then 
         begin