diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-31 23:08:58 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-31 23:08:58 +0000 |
| commit | f1cfdc9d2af6c0495e0380cdeebabe99c0de0854 (patch) | |
| tree | 2c36c7b64cb8df039af076cc0d7bbf8e74e6f2a9 /packages/graph | |
| parent | 50b122e383e725160982fcdb9b94990950f57f4f (diff) | |
| download | fpc-f1cfdc9d2af6c0495e0380cdeebabe99c0de0854.tar.gz | |
* fixed HLine16 and VLine16 to support multiple video pages
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15927 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/graph')
| -rw-r--r-- | packages/graph/src/go32v2/graph.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/graph/src/go32v2/graph.pp b/packages/graph/src/go32v2/graph.pp index f537c2c0be..6a316fa931 100644 --- a/packages/graph/src/go32v2/graph.pp +++ b/packages/graph/src/go32v2/graph.pp @@ -1771,7 +1771,7 @@ End; StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then exit; end; - ScrOfs:=y*ScrWidth+x div 8; + ScrOfs:=y*ScrWidth+x div 8 + VideoOfs; HLength:=x2 div 8-x div 8; LMask:=$ff shr (x and 7); {$ifopt r+} @@ -1901,7 +1901,7 @@ End; StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then exit; end; - ScrOfs:=y*ScrWidth+x div 8; + ScrOfs:=y*ScrWidth+x div 8 + VideoOfs; BitMask:=$80 shr (x and 7); Port[$3ce]:=0; If CurrentWriteMode <> NotPut Then |