* TextMode parameter type changed to word for TP/BP compatibility

rtl/emx/crt.pas

@@ -453,7 +453,7 @@ begin
     scroll_dn(row,left,bot,right,1,fil);
 end;
 
-procedure textmode(mode:integer);
+procedure TextMode (Mode: word);
 
 { Use this procedure to set-up a specific text-mode.}
 
@@ -960,7 +960,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2005-03-30 23:11:35  hajny
+  Revision 1.7  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.6  2005/03/30 23:11:35  hajny
     * OS/2 fixes merged to EMX
 
   Revision 1.5  2005/02/14 17:13:22  peter

rtl/go32v2/crt.pp

@@ -144,7 +144,7 @@ end;
 ****************************************************************************}
 
 
-procedure textmode(mode : integer);
+procedure textmode (Mode: word);
 
 var
    regs : trealregs;
@@ -770,7 +770,10 @@ end.
 
 {
   $Log$
-  Revision 1.12  2005-02-14 17:13:22  peter
+  Revision 1.13  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.12  2005/02/14 17:13:22  peter
     * truncate log
 
 }

rtl/inc/crt.inc

@@ -108,12 +108,12 @@ begin
 end;
 
 
-procedure TextMode (Mode: integer);
+procedure TextMode (Mode: word);
 { Use this procedure to set-up a specific text-mode.}
 begin
  TextAttr := $07;
  LastMode := Mode;
- SetScreenMode (word (Mode));
+ SetScreenMode (Mode);
  WindMin := 0;
  WindMaxX := Pred (ScreenWidth);
  WindMaxY := Pred (ScreenHeight);
@@ -410,7 +410,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  2005-05-14 14:58:41  hajny
+  Revision 1.3  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.2  2005/05/14 14:58:41  hajny
     * TextMode parameter type changed temporarily not to break other platforms
 
   Revision 1.1  2005/05/14 14:32:55  hajny

rtl/netware/crt.pp

@@ -141,7 +141,7 @@ end;
 ****************************************************************************}
 
 
-procedure textmode(mode : integer);
+procedure textmode (mode: word);
 begin
   Window (1,1,byte(ScreenWidth),byte(ScreenHeight));
   ClrScr;

rtl/netwlibc/crt.pp

@@ -128,7 +128,7 @@ end;
 ****************************************************************************}
 
 
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
 begin
   Window (1,1,byte(ScreenWidth),byte(ScreenHeight));
   ClrScr;

rtl/unix/crt.pp

@@ -1416,7 +1416,7 @@ end;
 
 
 
-Procedure TextMode(Mode: Integer);
+Procedure TextMode (Mode: word);
 {
   Only Clears Screen under linux}
 begin
@@ -1626,7 +1626,10 @@ Finalization
 End.
 {
   $Log$
-  Revision 1.24  2005-03-16 18:17:23  jonas
+  Revision 1.25  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.24  2005/03/16 18:17:23  jonas
     * fix from mischi to fix extra spaces under some terminals
 
   Revision 1.23  2005/03/15 09:20:11  jonas

rtl/watcom/crt.pp

@@ -133,7 +133,7 @@ end;
 ****************************************************************************}
 
 
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
 
 var
    regs : trealregs;
@@ -756,7 +756,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2005-02-14 17:13:32  peter
+  Revision 1.6  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.5  2005/02/14 17:13:32  peter
     * truncate log
 
 }

rtl/win32/crt.pp

@@ -109,9 +109,9 @@ end;
 ****************************************************************************}
 
 
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
 begin
-  {!!! Not done yet !!! }
+  {$WARNING TextMode not implemented yet!!}
 end;
 
 Procedure TextColor(Color: Byte);
@@ -831,7 +831,10 @@ end. { unit Crt }
 
 {
   $Log$
-  Revision 1.24  2005-02-14 17:13:32  peter
+  Revision 1.25  2005-05-14 15:01:49  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.24  2005/02/14 17:13:32  peter
     * truncate log
 
   Revision 1.23  2005/01/03 18:16:12  peter