paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 11:48:34 +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);
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

7
rtl/go32v2/crt.pp
View File

@ -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
}

9
rtl/inc/crt.inc
View File

@ -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

2
rtl/netware/crt.pp
View File

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

2
rtl/netwlibc/crt.pp
View File

@ -128,7 +128,7 @@ end;
****************************************************************************}
procedure textmode(mode : integer);
procedure TextMode (Mode: word);
begin
Window (1,1,byte(ScreenWidth),byte(ScreenHeight));
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}
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

7
rtl/watcom/crt.pp
View File

@ -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
}

9
rtl/win32/crt.pp
View File

@ -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