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

前端之家收集整理的这篇文章主要介绍了数组 – Delphi.将位图图像转换为2D阵列前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个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;
原文链接:https://www.f2er.com/delphi/453124.html

猜你在找的Delphi相关文章