paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 07:30:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added DirectColor support

Browse Source
This commit is contained in:
carl 1999-05-24 13:43:50 +00:00
parent 1bcd891310
commit 0b1a558a5a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/graph/modes.inc
View File

@ -277,6 +277,8 @@
MaxY := modeinfo^.MaxY;
MaxColor := modeinfo^.MaxColor;
PaletteSize := modeinfo^.PaletteSize;
{ is this a direct color mode? }
DirectColor := modeinfo^.DirectColor;
{ now actually initialize the video mode...}
{ check first if the routine exists }
if not assigned(modeinfo^.InitMode) then