数组 – Delphi.将位图图像转换为2D阵列

发布时间：2020-12-15 04:11:10 所属栏目：大数据来源：网络整理

导读：我有一个80×40像素的GIF图像.此图像的调色板由几个在调色板中具有不同数字的相似颜色组成.如何构建一个二维数组,其中x,y处的单元格将是调色板中的一些颜色？解决方法 TGif Image内置了这样的数组,所以只需使用它： var Gif:TGifImage; PaletteIndex : byte

我有一个80×40像素的GIF图像.此图像的调色板由几个在调色板中具有不同数字的相似颜色组成.如何构建一个二维数组,其中x,y处的单元格将是调色板中的一些颜色？

解决方法

TGif Image内置了这样的数组,所以只需使用它：

var 
  Gif:TGifImage;
  PaletteIndex : byte;
begin
  Gif := TGifImage.Create;

  // ... load your stuff here ...

  // TGifImage has an Images property,which is probably only interesting if you're dealing with animations,so just take the first image.
  PaletteIndex := Gif.Images[0].Pixels[0,0]; // palette index for top-left pixel 

  // Now,to get the actual TColor for that pixel,you could do this:
  Self.color := Gif.Images[0].ColorMap.Colors[PaletteIndex];

end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!