浏览代码

Quick.console: small fix

Exilon 7 年之前
父节点
当前提交
079e0b2de4
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      Quick.Console.pas

+ 2 - 2
Quick.Console.pas

@@ -314,7 +314,7 @@ end;
 
 procedure coutTL(const cMsg : string; cEventType : TLogEventType);
 begin
-  coutXY(0,GetCursorMaxBottom - 1,cMsg,cEventType);
+  coutXY(0,0,cMsg,cEventType);
 end;
 
 procedure coutTL(const cMsg : string; cColor : TConsoleColor);
@@ -324,7 +324,7 @@ end;
 
 procedure coutBL(const cMsg : string; cEventType : TLogEventType);
 begin
-  coutXY(0,0,cMsg,cEventType);
+  coutXY(0,GetCursorMaxBottom - 1,cMsg,cEventType);
 end;
 
 procedure coutBL(const cMsg : string; cColor : TConsoleColor);