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

* fix problem in InitScreen

Browse Source
This commit is contained in:
pierre 2002-05-23 07:30:33 +00:00
parent ee07f80c1c
commit 7d451cf5e1
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fv/app.pas
View File

@ -661,7 +661,6 @@ BEGIN
-(GetMaxY(TextModeGFV)+1)); { Full screen area }
Inherited Init(R); { Call ancestor }
Application := @Self; { Set application ptr }
Drivers.InitVideo;
InitScreen; { Initialize screen }
State := sfVisible + sfSelected + sfFocused +
sfModal + sfExposed; { Deafult states }
@ -798,6 +797,7 @@ BEGIN
{ the orginal code can't be used here because of the limited
video unit capabilities, the mono modus can't be handled
}
Drivers.InitVideo;
{$ifdef USE_VIDEO_API}
if (ScreenMode.Col div ScreenMode.Row<2) then
{$else not USE_VIDEO_API}
@ -825,7 +825,7 @@ END;
procedure TProgram.DoneScreen;
begin
DoneVideo;
Drivers.DoneVideo;
Buffer:=nil;
end;
@ -1183,7 +1183,10 @@ END;
END.
{
$Log$
Revision 1.14 2001-10-02 16:35:50 pierre
Revision 1.15 2002-05-23 07:30:33 pierre
* fix problem in InitScreen
Revision 1.14 2001/10/02 16:35:50 pierre
* fix several problems, try to get the graph version to compile
Revision 1.13 2001/08/05 02:03:13 peter

9
fvision/app.pas
View File

@ -661,7 +661,6 @@ BEGIN
-(GetMaxY(TextModeGFV)+1)); { Full screen area }
Inherited Init(R); { Call ancestor }
Application := @Self; { Set application ptr }
Drivers.InitVideo;
InitScreen; { Initialize screen }
State := sfVisible + sfSelected + sfFocused +
sfModal + sfExposed; { Deafult states }
@ -798,6 +797,7 @@ BEGIN
{ the orginal code can't be used here because of the limited
video unit capabilities, the mono modus can't be handled
}
Drivers.InitVideo;
{$ifdef USE_VIDEO_API}
if (ScreenMode.Col div ScreenMode.Row<2) then
{$else not USE_VIDEO_API}
@ -825,7 +825,7 @@ END;
procedure TProgram.DoneScreen;
begin
DoneVideo;
Drivers.DoneVideo;
Buffer:=nil;
end;
@ -1183,7 +1183,10 @@ END;
END.
{
$Log$
Revision 1.14 2001-10-02 16:35:50 pierre
Revision 1.15 2002-05-23 07:30:33 pierre
* fix problem in InitScreen
Revision 1.14 2001/10/02 16:35:50 pierre
* fix several problems, try to get the graph version to compile
Revision 1.13 2001/08/05 02:03:13 peter