Explorar o código

* extension of r13191 to OS/2, EMX and potential other platforms using crt.inc based implementation of unit crt

git-svn-id: trunk@13207 -
Tomas Hajny %!s(int64=16) %!d(string=hai) anos
pai
achega
2353848004
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  1. 3 3
      rtl/inc/crt.inc

+ 3 - 3
rtl/inc/crt.inc

@@ -19,7 +19,7 @@ var
   ScanCode: byte;
   SpecialKey: boolean;
 
-procedure GotoXY (X: byte; Y: byte);
+procedure GotoXY (X: tcrtcoord; Y: tcrtcoord);
 begin
  GotoXY32 (X, Y);
 end;
@@ -29,7 +29,7 @@ begin
  Window32 (X1, Y1, X2, Y2);
 end;
 
-function WhereX: byte;
+function WhereX: tcrtcoord;
 var
  X1: dword;
 begin
@@ -40,7 +40,7 @@ begin
   WhereX := X1;
 end;
 
-function WhereY: byte;
+function WhereY: tcrtcoord;
 var
  Y1: dword;
 begin