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

+ Added SetRGBPalette

Browse Source 
+ Added GetRGBPalette
This commit is contained in:
carl 1999-05-22 17:10:40 +00:00
parent 4364284281
commit bd452e05a9
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -226,6 +226,22 @@
exit;
end;
if assigned(modeinfo^.SetRGBPalette) then
SetRGBPalette := modeinfo^.SetRGBPalette
else
begin
_Graphresult := grInvalidMode;
exit;
end;
if assigned(modeinfo^.GetRGBPalette) then
GetRGBPalette := modeinfo^.GetRGBPalette
else
begin
_Graphresult := grInvalidMode;
exit;
end;
{ optional hooks. }
if assigned(modeinfo^.ClearViewPort) then
ClearViewPort := modeinfo^.ClearViewPort;
@ -260,6 +276,7 @@
MaxX := modeinfo^.MaxX;
MaxY := modeinfo^.MaxY;
MaxColor := modeinfo^.MaxColor;
PaletteSize := modeinfo^.PaletteSize;
{ now actually initialize the video mode...}
{ check first if the routine exists }
if not assigned(modeinfo^.InitMode) then