改变图象调色板

Posted 2020-08-30 游子日月长

var
 Bitmap: TBitmap;
begin

 Bitmap:=TBitmap.Create;
 Bitmap.LoadfromFile({‘Whatever.bmp‘});

 With Image2.Picture.bitmap do
 Begin
  Width:=Bitmap.Width;
  height:=Bitmap.Height;
  Palette:=Bitmap.Palette;
  Canvas.draw(0,0,bitmap);
  Refresh;
 end;
end;
如果要往窗体上画
Canvas.Draw(0,0,Bitmap);
SelectPalette(Form1.Canvas.handle,Bitmap.Palette,True);
RealizePalette(Form1.Canvas.Handle);