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

* fixed HLine16 and VLine16 to support multiple video pages

Browse Source 
git-svn-id: trunk@15927 -
This commit is contained in:
nickysn 2010-08-31 23:08:58 +00:00
parent fb2fc006aa
commit 3ab733fb47
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/graph/src/go32v2/graph.pp
View File

@ -1771,7 +1771,7 @@ End;
StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then
exit; exit;
end; end;
ScrOfs:=y*ScrWidth+x div 8; ScrOfs:=y*ScrWidth+x div 8 + VideoOfs;
HLength:=x2 div 8-x div 8; HLength:=x2 div 8-x div 8;
LMask:=$ff shr (x and 7); LMask:=$ff shr (x and 7);
{$ifopt r+} {$ifopt r+}
@ -1901,7 +1901,7 @@ End;
StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then
exit; exit;
end; end;
ScrOfs:=y*ScrWidth+x div 8; ScrOfs:=y*ScrWidth+x div 8 + VideoOfs;
BitMask:=$80 shr (x and 7); BitMask:=$80 shr (x and 7);
Port[$3ce]:=0; Port[$3ce]:=0;
If CurrentWriteMode <> NotPut Then If CurrentWriteMode <> NotPut Then