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

Amiga: Video Unit ObtainBestPen instead of ObtainPen for low depth screens

Browse Source 
git-svn-id: trunk@28704 -
This commit is contained in:
marcus 2014-09-21 17:30:53 +00:00
parent 34a726b89d
commit e7eb77a94a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-console/src/amiga/video.pp
View File

@ -256,9 +256,8 @@ begin
for Counter := 0 to 15 do for Counter := 0 to 15 do
begin begin
VideoPens[Counter] := ObtainPen(VideoColorMap, LongWord(-1), VideoPens[Counter] := ObtainBestPenA(VideoColorMap,
vgacolors[counter, 0] shl 24, vgacolors[counter, 1] shl 24, vgacolors[counter, 2] shl 24, vgacolors[counter, 0] shl 24, vgacolors[counter, 1] shl 24, vgacolors[counter, 2] shl 24, nil);
PEN_EXCLUSIVE);
{$ifdef VIDEODEBUG} {$ifdef VIDEODEBUG}
If VideoPens[Counter] = -1 then If VideoPens[Counter] = -1 then
WriteLn('errr color[',Counter,'] = ', VideoPens[Counter]) WriteLn('errr color[',Counter,'] = ', VideoPens[Counter])