paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-14 15:01:49 +00:00
parent 7be6c68518
commit 77d16a7ad9
8 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/emx/crt.pas
View File

@ -453,7 +453,7 @@ begin
scroll_dn(row,left,bot,right,1,fil); scroll_dn(row,left,bot,right,1,fil);
end; end;
procedure textmode(mode:integer); procedure TextMode (Mode: word);
{ Use this procedure to set-up a specific text-mode.} { Use this procedure to set-up a specific text-mode.}
@ -960,7 +960,10 @@ end.
{ {
$Log$ $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 * OS/2 fixes merged to EMX
Revision 1.5 2005/02/14 17:13:22 peter Revision 1.5 2005/02/14 17:13:22 peter

7
rtl/go32v2/crt.pp
View File

@ -144,7 +144,7 @@ end;
****************************************************************************} ****************************************************************************}
procedure textmode(mode : integer); procedure textmode (Mode: word);
var var
regs : trealregs; regs : trealregs;
@ -770,7 +770,10 @@ end.
{ {
$Log$ $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 * truncate log
} }

9
rtl/inc/crt.inc
View File

@ -108,12 +108,12 @@ begin
end; end;
procedure TextMode (Mode: integer); procedure TextMode (Mode: word);
{ Use this procedure to set-up a specific text-mode.} { Use this procedure to set-up a specific text-mode.}
begin begin
TextAttr := $07; TextAttr := $07;
LastMode := Mode; LastMode := Mode;
SetScreenMode (word (Mode)); SetScreenMode (Mode);
WindMin := 0; WindMin := 0;
WindMaxX := Pred (ScreenWidth); WindMaxX := Pred (ScreenWidth);
WindMaxY := Pred (ScreenHeight); WindMaxY := Pred (ScreenHeight);
@ -410,7 +410,10 @@ end;
{ {
$Log$ $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 * TextMode parameter type changed temporarily not to break other platforms
Revision 1.1 2005/05/14 14:32:55 hajny Revision 1.1 2005/05/14 14:32:55 hajny

2
rtl/netware/crt.pp
View File

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

2
rtl/netwlibc/crt.pp
View File

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

7
rtl/unix/crt.pp
View File

@ -1416,7 +1416,7 @@ end;
Procedure TextMode(Mode: Integer); Procedure TextMode (Mode: word);
{ {
Only Clears Screen under linux} Only Clears Screen under linux}
begin begin
@ -1626,7 +1626,10 @@ Finalization
End. End.
{ {
$Log$ $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 * fix from mischi to fix extra spaces under some terminals
Revision 1.23 2005/03/15 09:20:11 jonas Revision 1.23 2005/03/15 09:20:11 jonas

7
rtl/watcom/crt.pp
View File

@ -133,7 +133,7 @@ end;
****************************************************************************} ****************************************************************************}
procedure textmode(mode : integer); procedure TextMode (Mode: word);
var var
regs : trealregs; regs : trealregs;
@ -756,7 +756,10 @@ end.
{ {
$Log$ $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 * truncate log
} }

9
rtl/win32/crt.pp
View File

@ -109,9 +109,9 @@ end;
****************************************************************************} ****************************************************************************}
procedure textmode(mode : integer); procedure TextMode (Mode: word);
begin begin
{!!! Not done yet !!! } {$WARNING TextMode not implemented yet!!}
end; end;
Procedure TextColor(Color: Byte); Procedure TextColor(Color: Byte);
@ -831,7 +831,10 @@ end. { unit Crt }
{ {
$Log$ $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 * truncate log
Revision 1.23 2005/01/03 18:16:12 peter Revision 1.23 2005/01/03 18:16:12 peter