【图像处理高级编程】-创建调色板

创建调色板

提示：这里可以添加技术概要

核心源码

procedure TForm1.BitBtn1Click(Sender: TObject);
var
x, y: integer;
BitMap: TBitMap;
lplogpal: pmaxLogPalette; //指向 TMaxLogPalette
p: PByteArray;
begin
BitMap := TBitMap.create;
Bitmap.Width := Form1.Width;
Bitmap.Height := Form1.Height;
Bitmap.PixelFormat := pf8bit;
//分配内存
GetMem(lpLogPal, sizeof(TLOGPALETTE) + ((255) * sizeof(TPALETTEENTRY)));
lpLogPal.palVersion := $0300; //调色板版本
lpLogPal.palNumEntries := 256; //256色调色板
for x := 0 to 255 do
begin
lpLogPal.palPalEntry[x].peRed := x;
lpLogPal.palPalEntry[x].peGreen := x;
lpLogPal.palPalEntry[x].peBlue := 90; //调色板索引颜色的赋值
end;
Bitmap.P