mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 14:29:14 +02:00
* TextMode parameter type changed to word for TP/BP compatibility
This commit is contained in:
parent
7be6c68518
commit
77d16a7ad9
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user