界面库

更新动态库
2023-09-19 10:50:13 +08:00
parent a414c5e926
commit e35938ec54
137 changed files with 129 additions and 32 deletions
@@ -1566,6 +1566,8 @@ type TTslDebuga=class(TCustomControl)
                FBtns["暂停"].Visible := false;
                FBtns["刷新符号表"].Visible := true;
                FBtns["刷新当前符号"].Visible := true;
+                FBtns["继续"].Visible := (flg = "暂停") ;
+                //FBtns["终止"].Visible := true;
            end
            "继续":
            begin
@@ -1575,14 +1577,16 @@ type TTslDebuga=class(TCustomControl)
                FBtns["跳出"].Visible := false;
                FBtns["下一行(F8)"].Visible := false;
                //FBtns["单步"].Visible := false;
-                //FBtns["终止"].Visible := false;
+                FBtns["终止"].Visible := true;
                FBtns["暂停"].Visible := true;
                FBtns["刷新符号表"].Visible := false;
                FBtns["刷新当前符号"].Visible := false;
+                FBtns["继续"].Visible := false;
            end
            "停止":
            begin
                hiddenbtns();
+                FBtns["继续"].Visible := true;
            end
        end
    end