Browse Source

Quick.Console small correction

Unknown 7 years ago
parent
commit
3c2139687e
1 changed files with 2 additions and 2 deletions
  1. 2 2
      Quick.Console.pas

+ 2 - 2
Quick.Console.pas

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