Date: Fri, 27 Jul 2001 14:33:00 +0100
Newsgroups: borland.public.delphi.graphics
Subject: Re: changing a 256 color bitmap palette
From: Bob Villiers <bob_villiers@lineone.net>

This topic got a good airing last month under "How can I change a color
in a bitmap palette ?"

Here is how to load a 256 bitmap, change the first palette entry to
blue and display the changed bitmap.


Var
  bmp: TBitmap;
  NewCol: TRGBQuad;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('chemical.bmp');

  NewCol.rgbBlue := 255;
  NewCol.rgbGreen := 0;
  NewCol.rgbRed := 0;
  NewCol.rgbReserved := 0;

  SetDIBColorTable(bmp.Canvas.Handle, 255, 1, NewCol);

  Image1.Picture.Graphic:= bmp;
  bmp.Free;
end;

Bob