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

* fixed bug in setvgargbpalette (now you can again pass values in the

Browse Source 
range 0..255 instead of 0..63)
This commit is contained in:
Jonas Maebe 2000-05-12 08:52:09 +00:00
parent f43fd3dc00
commit b23035b4df
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/graph.pp
View File

@ -1774,10 +1774,13 @@ const CrtAddress: word = 0;
out dx, al
inc dx { Point to DAC registers }
mov ax, [RedValue] { Get RedValue }
shr ax, 2
out dx, al
mov ax, [GreenValue]{ Get RedValue }
shr ax, 2
out dx, al
mov ax, [BlueValue] { Get RedValue }
shr ax, 2
out dx, al
end
End;
@ -2583,7 +2586,11 @@ begin
end.
{
$Log$
Revision 1.9 2000-05-09 04:23:11 jonas
Revision 1.10 2000-05-12 08:52:09 jonas
* fixed bug in setvgargbpalette (now you can again pass values in the
range 0..255 instead of 0..63)
Revision 1.9 2000/05/09 04:23:11 jonas
* fixed bug in getscanline16 (affects floodfil and getimage under VGA
640x480x16 (VGA/VGAHI)