paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added checking and exit when in DirectColor mode

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

18
rtl/inc/graph/palette.inc
View File

@ -280,6 +280,12 @@ CONST
i: longint;
Size: longint;
begin
{ palette routines do not work in DirectColor mode }
if DirectColor then
begin
_GraphResult := grError;
exit;
end;
Size:=Palette.Size; { number of entries...}
{ first determine if we are not trying to }
{ change too much colors... }
@ -311,6 +317,12 @@ CONST
{********************************************************}
Procedure SetPalette(ColorNum: word; Color: shortint);
begin
{ palette routines do not work in DirectColor mode }
if DirectColor then
begin
_GraphResult := grError;
exit;
end;
{ Check if we can actually change that palette color }
if ColorNum > PaletteSize then
Begin
@ -336,6 +348,12 @@ CONST
i: longint;
size : longint;
begin
{ palette routines do not work in DirectColor mode }
if DirectColor then
begin
_GraphResult := grError;
exit;
end;
Palette.Size := PaletteSize;
{ index at zero }
size := PaletteSize - 1;