//SRC: bmp.txt
include BMP.RFI

type

TImageData(Sz) struc
  TBitmapInfo BMI
  TBitmapMtr(@.BMI.Hdr.biBitCount, @.BMI.Hdr.biHeight div 2,
    @.BMI.Hdr.biWidth) Img
  TBitmapMtr(1, @.BMI.Hdr.biHeight div 2,
    @.BMI.Hdr.biWidth) Msk
  raw[] rest
ends:[@:Size = @:Sz]

PImageData(Sz) ^TImageData(@:Sz) near=ulong

TIconDirTbl(Cnt) forward

TIconDirEntry struc
  byte bWidth
  byte bHeight
  byte bColorCount
  byte bReserved
  word wXHotSpot//wPlanes
  word wYHotSpot//wBitCount
  DWORD dwBytesInRes
  PImageData(@.dwBytesInRes) dwImageOffset
ends

TIconDirTbl(Cnt) array[@:Cnt] of TIconDirEntry

TIconHeader struc
  word ihReserved
  word ihType
  word ihCount
  TIconDirTbl(@.ihCount) ihEntries
ends

Other specifications.

FlexT home page, Author`s home page.