Pārlūkot izejas kodu

Quick.Console small correction

Unknown 7 gadi atpakaļ
vecāks
revīzija
3c2139687e
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  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);