فهرست منبع

Quick.Console small correction

Unknown 7 سال پیش
والد
کامیت
3c2139687e
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  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);