paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix graph related problems

Browse Source
This commit is contained in:
pierre 2002-05-29 19:36:12 +00:00
parent e78911a9f3
commit 550e4a6f42
2 changed files with 52 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fv/drivers.pas
View File

@ -1267,6 +1267,9 @@ END;
{ VIDEO CONTROL ROUTINES } { VIDEO CONTROL ROUTINES }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++} {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
const
VideoInitialized : boolean = false;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ InitVideo -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 26Nov99 LdB } { InitVideo -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 26Nov99 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1285,11 +1288,18 @@ VAR
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
BEGIN BEGIN
if VideoInitialized then
DoneVideo;
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef win32}
I := VESA;
J := mLargestWindow16;
{$else not win32}
I := Detect; { Detect video card } I := Detect; { Detect video card }
J := 0; { Zero select mode } J := 0; { Zero select mode }
{$endif win32}
InitGraph(I, J, ''); { Initialize graphics } InitGraph(I, J, ''); { Initialize graphics }
I := Graph.GetMaxX; { Fetch max x size } I := Graph.GetMaxX; { Fetch max x size }
J := Graph.GetMaxY; { Fetch max y size } J := Graph.GetMaxY; { Fetch max y size }
@ -1308,7 +1318,11 @@ if Not TextmodeGFV then
SysFontHeight; { Calc screen height } SysFontHeight; { Calc screen height }
UseFixedFont:=true; UseFixedFont:=true;
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
if assigned(Video.VideoBuf) then
FreeMem(Video.VideoBuf);
GetMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); GetMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
if assigned(Video.OldVideoBuf) then
FreeMem(Video.OldVideoBuf);
GetMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); GetMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
FillChar(Video.VideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0); FillChar(Video.VideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0);
FillChar(Video.OldVideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0); FillChar(Video.OldVideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0);
@ -1317,6 +1331,8 @@ if Not TextmodeGFV then
ScreenMode.row:=ScreenHeight; ScreenMode.row:=ScreenHeight;
GfvGraph.SysFontWidth:=SysFontWidth; GfvGraph.SysFontWidth:=SysFontWidth;
GfvGraph.SysFontHeight:=SysFontHeight; GfvGraph.SysFontHeight:=SysFontHeight;
GfvGraph.TextScreenWidth:=ScreenWidth;
GfvGraph.TextScreenHeight:=ScreenHeight;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
{$ifdef win32} {$ifdef win32}
SetGraphHooks; SetGraphHooks;
@ -1341,6 +1357,7 @@ else
SysFontWidth := 8; { Font width } SysFontWidth := 8; { Font width }
SysFontHeight := 8; { Font height } SysFontHeight := 8; { Font height }
end; end;
VideoInitialized:=true;
END; END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1348,12 +1365,16 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE DoneVideo; PROCEDURE DoneVideo;
BEGIN BEGIN
if not VideoInitialized then
exit;
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
FreeMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); FreeMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
Video.VideoBuf:=nil;
FreeMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); FreeMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
Video.OldVideoBuf:=nil;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
CloseGraph; CloseGraph;
{$ifdef win32} {$ifdef win32}
@ -1367,6 +1388,7 @@ BEGIN
{$else not USE_video_api} {$else not USE_video_api}
; { nothing to do } ; { nothing to do }
{$endif not USE_video_api} {$endif not USE_video_api}
VideoInitialized:=false;
END; END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1599,7 +1621,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.20 2002-05-28 19:14:35 pierre Revision 1.21 2002-05-29 19:36:12 pierre
* fix graph related problems
Revision 1.20 2002/05/28 19:14:35 pierre
* adapt to new GraphUpdateScreen function * adapt to new GraphUpdateScreen function
Revision 1.19 2002/05/24 10:36:52 pierre Revision 1.19 2002/05/24 10:36:52 pierre

27
fvision/drivers.pas
View File

@ -1267,6 +1267,9 @@ END;
{ VIDEO CONTROL ROUTINES } { VIDEO CONTROL ROUTINES }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++} {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
const
VideoInitialized : boolean = false;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ InitVideo -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 26Nov99 LdB } { InitVideo -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 26Nov99 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1285,11 +1288,18 @@ VAR
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
BEGIN BEGIN
if VideoInitialized then
DoneVideo;
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef win32}
I := VESA;
J := mLargestWindow16;
{$else not win32}
I := Detect; { Detect video card } I := Detect; { Detect video card }
J := 0; { Zero select mode } J := 0; { Zero select mode }
{$endif win32}
InitGraph(I, J, ''); { Initialize graphics } InitGraph(I, J, ''); { Initialize graphics }
I := Graph.GetMaxX; { Fetch max x size } I := Graph.GetMaxX; { Fetch max x size }
J := Graph.GetMaxY; { Fetch max y size } J := Graph.GetMaxY; { Fetch max y size }
@ -1308,7 +1318,11 @@ if Not TextmodeGFV then
SysFontHeight; { Calc screen height } SysFontHeight; { Calc screen height }
UseFixedFont:=true; UseFixedFont:=true;
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
if assigned(Video.VideoBuf) then
FreeMem(Video.VideoBuf);
GetMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); GetMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
if assigned(Video.OldVideoBuf) then
FreeMem(Video.OldVideoBuf);
GetMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); GetMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
FillChar(Video.VideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0); FillChar(Video.VideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0);
FillChar(Video.OldVideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0); FillChar(Video.OldVideoBuf^,sizeof(word)*ScreenWidth*ScreenHeight,#0);
@ -1317,6 +1331,8 @@ if Not TextmodeGFV then
ScreenMode.row:=ScreenHeight; ScreenMode.row:=ScreenHeight;
GfvGraph.SysFontWidth:=SysFontWidth; GfvGraph.SysFontWidth:=SysFontWidth;
GfvGraph.SysFontHeight:=SysFontHeight; GfvGraph.SysFontHeight:=SysFontHeight;
GfvGraph.TextScreenWidth:=ScreenWidth;
GfvGraph.TextScreenHeight:=ScreenHeight;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
{$ifdef win32} {$ifdef win32}
SetGraphHooks; SetGraphHooks;
@ -1341,6 +1357,7 @@ else
SysFontWidth := 8; { Font width } SysFontWidth := 8; { Font width }
SysFontHeight := 8; { Font height } SysFontHeight := 8; { Font height }
end; end;
VideoInitialized:=true;
END; END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1348,12 +1365,16 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE DoneVideo; PROCEDURE DoneVideo;
BEGIN BEGIN
if not VideoInitialized then
exit;
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
FreeMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); FreeMem(Video.VideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
Video.VideoBuf:=nil;
FreeMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight); FreeMem(Video.OldVideoBuf,sizeof(word)*ScreenWidth*ScreenHeight);
Video.OldVideoBuf:=nil;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
CloseGraph; CloseGraph;
{$ifdef win32} {$ifdef win32}
@ -1367,6 +1388,7 @@ BEGIN
{$else not USE_video_api} {$else not USE_video_api}
; { nothing to do } ; { nothing to do }
{$endif not USE_video_api} {$endif not USE_video_api}
VideoInitialized:=false;
END; END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
@ -1599,7 +1621,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.20 2002-05-28 19:14:35 pierre Revision 1.21 2002-05-29 19:36:12 pierre
* fix graph related problems
Revision 1.20 2002/05/28 19:14:35 pierre
* adapt to new GraphUpdateScreen function * adapt to new GraphUpdateScreen function
Revision 1.19 2002/05/24 10:36:52 pierre Revision 1.19 2002/05/24 10:36:52 pierre