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 temporarily not to break other platforms

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-14 14:58:41 +00:00
parent 01ee93f838
commit 7be6c68518
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/crt.inc
View File

@ -108,12 +108,12 @@ begin
end;
procedure TextMode (Mode: word);
procedure TextMode (Mode: integer);
{ Use this procedure to set-up a specific text-mode.}
begin
TextAttr := $07;
LastMode := Mode;
SetScreenMode (Mode);
SetScreenMode (word (Mode));
WindMin := 0;
WindMaxX := Pred (ScreenWidth);
WindMaxY := Pred (ScreenHeight);
@ -410,7 +410,10 @@ end;
{
$Log$
Revision 1.1 2005-05-14 14:32:55 hajny
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
+ basis for common platform independent implementation of Crt