paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:39:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't call InitVideo in DetectVideo procedure

Browse Source
This commit is contained in:
pierre 2002-09-13 09:21:15 +00:00
parent f93b587cdb
commit b012e3336e
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/drivers.pas
View File

@ -775,7 +775,8 @@ procedure DetectVideo;
VAR VAR
CurrMode : TVideoMode; CurrMode : TVideoMode;
begin begin
Video.InitVideo; { Video.InitVideo; Incompatible with BP
and forces a screen clear which is often a bad thing PM }
GetVideoMode(CurrMode); GetVideoMode(CurrMode);
ScreenMode:=CurrMode; ScreenMode:=CurrMode;
end; end;
@ -1673,7 +1674,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.32 2002-09-09 08:04:05 pierre Revision 1.33 2002-09-13 09:21:15 pierre
* don't call InitVideo in DetectVideo procedure
Revision 1.32 2002/09/09 08:04:05 pierre
* remove all warnings about far * remove all warnings about far
Revision 1.31 2002/09/07 15:06:36 peter Revision 1.31 2002/09/07 15:06:36 peter

8
fvision/drivers.pas
View File

@ -775,7 +775,8 @@ procedure DetectVideo;
VAR VAR
CurrMode : TVideoMode; CurrMode : TVideoMode;
begin begin
Video.InitVideo; { Video.InitVideo; Incompatible with BP
and forces a screen clear which is often a bad thing PM }
GetVideoMode(CurrMode); GetVideoMode(CurrMode);
ScreenMode:=CurrMode; ScreenMode:=CurrMode;
end; end;
@ -1673,7 +1674,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.32 2002-09-09 08:04:05 pierre Revision 1.33 2002-09-13 09:21:15 pierre
* don't call InitVideo in DetectVideo procedure
Revision 1.32 2002/09/09 08:04:05 pierre
* remove all warnings about far * remove all warnings about far
Revision 1.31 2002/09/07 15:06:36 peter Revision 1.31 2002/09/07 15:06:36 peter