liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器 

优化调试逻辑
This commit is contained in:
JianjunLiu 2023-02-24 15:28:56 +08:00
parent c425e0cb91
commit 4cefd2fc39
2 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

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

16
designer/utslvcldebuger.tsf
View File

@ -640,15 +640,6 @@ type TTslDebuga=class(TCustomControl)
function debugrunredo(); function debugrunredo();
begin begin
return dbgtooldorun(nil,nil); 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 end
function Debuglocal(item); //调试脚本 function Debuglocal(item); //调试脚本
begin begin
@ -658,8 +649,6 @@ type TTslDebuga=class(TCustomControl)
if not item then return 0; if not item then return 0;
if FConnectchannel then if FConnectchannel then
begin begin
//return MessageboxA("正在调试中","提示",0,self.Handle);
return debugrunredo(); return debugrunredo();
end end
if FRemoteWait then if FRemoteWait then
@ -740,6 +729,7 @@ type TTslDebuga=class(TCustomControl)
function Create(AOwner); function Create(AOwner);
begin begin
inherited; inherited;
fscriptbrks := array();
//Frundirect := false; //Frundirect := false;
FCmdHistory := array(); FCmdHistory := array();
FCmdHistoryid := 0; FCmdHistoryid := 0;
@ -983,7 +973,7 @@ type TTslDebuga=class(TCustomControl)
if fremotedbugstart then if fremotedbugstart then
begin begin
fremotedbugstart := false; fremotedbugstart := false;
if ifnil(fscriptbrks[stk[0,"LINE"]-1]) then if ifnil(fscriptbrks[stk[0,"LINE"]-1]) then
begin begin
return debugrunredo(); return debugrunredo();
end end
@ -1580,7 +1570,7 @@ type TTslDebuga=class(TCustomControl)
FBtns["跳出"].Visible := false; FBtns["跳出"].Visible := false;
FBtns["下一行(F8)"].Visible := false; FBtns["下一行(F8)"].Visible := false;
//FBtns["单步"].Visible := false; //FBtns["单步"].Visible := false;
FBtns["终止"].Visible := false; //FBtns["ÖÕÖ¹"].Visible := false;
FBtns["暂停"].Visible := true; FBtns["暂停"].Visible := true;
FBtns["刷新符号表"].Visible := false; FBtns["刷新符号表"].Visible := false;
FBtns["刷新当前符号"].Visible := false; FBtns["刷新当前符号"].Visible := false;