编辑器

unit 取消缩进

designer/utslcodeformat.tsf

@@ -683,7 +683,7 @@ type TFormatParser = class
                 ChangeLine();
                 Formataline(bkindex,FTkIndex);
                 ChangeLine();
-                FHier.Push();
+//                FHier.Push();  //20220606 unit     去掉缩进
                 FStates.Push(BT_UNIT);
                 state := BT_UNIT;
                 //return "";         

funcext/tvclib/uvclthreadworker.tsf

@@ -60,7 +60,7 @@ type TCustomThreadworker = class()
         if not ifarray(FThreaders) then FThreaders := array();
         FThreader := new tworkerHost();
         FThreaders[inttostr(FThreader.handle)] := FThreader;
-        if not (checkok(s,libs,declaration)) then raise "工作线程构造失败!";
+        if not (checkok(s,lib,declaration)) then raise "工作线程构造失败!";
         uibeginthreadworker(FScript);
     end  
     function Operator [](idx);