Procedure Request | GameDev.net

BlitX · 2002-05-31T03:49:12+00:00

Hello i need a procedure for delphix like Setpalette(Color : integer; R,G,B : byte); to set the palette like I did in dos pasca.. I tried to set the palette , and it was pain (and I didn''t had succes) .. where I can find this procedure? I found the PlotPixel (and it works).. Can anyone help me? thanks Blitx

This should work:


procedure SetPalette(Color,R,G,B: Byte);
type
TRGB = record
 Red: Byte;
 Green: Byte;
 Blue: Byte;
 Reserved: Byte;
 end;
var
RGB: TRGB;
begin
with RGB do
 begin
 Red := R;
 Green := G;
 Blue := B;
 end;
Form1.DXDraw1.Palette.SetEntries(Color,1,RGB);
end;

Topic Locked