编辑器

优化调试逻辑

.gitignore

@@ -1,2 +1,3 @@
 
 FunCache.ini
+Data/PublicFunc4.0.Func

designer/utslvcldebuger.tsf

@@ -640,15 +640,6 @@ type TTslDebuga=class(TCustomControl)
     function debugrunredo();
     begin
         return dbgtooldorun(nil,nil); 
-        if FBtns["终止"].Visible then 
-        begin
-            //Dbgtooldo(new ttempclass("继续"),nil);  
-            dbgtooldorun(nil,nil);  
-        end else 
-        begin
-            //echo "\r\n 执行run";
-            //Dbgtooldo(new ttempclass("暂停"),nil);  
-        end 
     end 
     function Debuglocal(item); //调试脚本
     begin
@@ -658,8 +649,6 @@ type TTslDebuga=class(TCustomControl)
         if not item then return 0;
         if FConnectchannel then 
         begin
-            
-            //return MessageboxA("正在调试中","提示",0,self.Handle);
             return debugrunredo();
         end 
         if FRemoteWait then 
@@ -740,6 +729,7 @@ type TTslDebuga=class(TCustomControl)
     function Create(AOwner);
     begin
         inherited;
+        fscriptbrks := array();
         //Frundirect := false;
         FCmdHistory := array();
         FCmdHistoryid := 0;
@@ -1580,7 +1570,7 @@ type TTslDebuga=class(TCustomControl)
                 FBtns["跳出"].Visible := false;
                 FBtns["下一行(F8)"].Visible := false;
                 //FBtns["单步"].Visible := false;
-                FBtns["终止"].Visible := false;
+                //FBtns["ÖÕÖ¹"].Visible := false;
                 FBtns["暂停"].Visible := true;
                 FBtns["刷新符号表"].Visible := false;
                 FBtns["刷新当前符号"].Visible := false;