paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +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; exit;
end; 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. } { optional hooks. }
if assigned(modeinfo^.ClearViewPort) then if assigned(modeinfo^.ClearViewPort) then
ClearViewPort := modeinfo^.ClearViewPort; ClearViewPort := modeinfo^.ClearViewPort;
@ -260,6 +276,7 @@
MaxX := modeinfo^.MaxX; MaxX := modeinfo^.MaxX;
MaxY := modeinfo^.MaxY; MaxY := modeinfo^.MaxY;
MaxColor := modeinfo^.MaxColor; MaxColor := modeinfo^.MaxColor;
PaletteSize := modeinfo^.PaletteSize;
{ now actually initialize the video mode...} { now actually initialize the video mode...}
{ check first if the routine exists } { check first if the routine exists }
if not assigned(modeinfo^.InitMode) then if not assigned(modeinfo^.InitMode) then