界面库

拆分
2022-08-08 16:14:34 +08:00
parent a5fa616a3e
commit 146101a46f
7 changed files with 2694 additions and 2528 deletions
@@ -1533,7 +1533,7 @@ BD141CA912494F502D48D224F45050274A21E03806FF2C7CA7516022D7D000000
        WsDlgModalFrame := true;
        visible := false;
        Left := 50;
-        Top := 20;
+        Top := 120;
        Width := 1000;
        height := 900;
        wspopup := true;
@@ -1469,7 +1469,7 @@ type TTslDebuga=class(TCustomControl)
    begin
        if FDebughandle then
        begin
-            SysTerminate(-1,FDebughandle);
+            SysTerminate(1,FDebughandle);
            FDebughandle := 0; Fdebugedwhandle := 0;
        end
    end