千年 ATZ 提取

TImgLibColor = record
        Red: Byte;
        Green: Byte;
        Blue: Byte;
        Used: Boolean;
  end;

文件头
TImgLibPalette = array[0..255] of TImgLibColor;
  TA2ImageLibHeader = record
       IDent: array[0..3] of Char;//ATZ0  0是8位1是16位
       ImageCount: Integer;//图片数量
       TransparentColor: Integer;
       Palette: TImgLibPalette;//颜色表
  end;

图片头

TA2ImageFileHeader = record
       Width: Integer;//宽度
       Height: Integer;//高度
       px, py : Integer;//偏移
       none : Integer;
  end;

有一点得注意,如果要导出8位BMP图的话,颜色表得处理下,因为BMP颜色是BGRA

易源码

千年 ATZ 提取

原文：http://www.cnblogs.com/baidwwy/p/5588929.html