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
Data/PublicFunc4.0.Func

18
designer/utslvcldebuger.tsf
View File

@ -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;
@ -983,7 +973,7 @@ type TTslDebuga=class(TCustomControl)
if fremotedbugstart then
begin
fremotedbugstart := false;
if ifnil(fscriptbrks[stk[0,"LINE"]-1]) then
if ifnil(fscriptbrks[stk[0,"LINE"]-1]) then
begin
return debugrunredo();
end
@ -1253,7 +1243,7 @@ type TTslDebuga=class(TCustomControl)
end
if FAttchedid then
begin
//echo "\r\n终止";
//echo "\r\nÖÕÖ¹";
return dbgdetach(FConnectchannel);
end else
begin
@ -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;