(declarations)

In Class PicBMP

   1 ' PicInfo bitmap file information class
   2 ' 2006 Aivosto Oy (www.aivosto.com)
   3 '
   4 ' This file is part of a sample project for Project Analyzer.
   5 ' Distribution of this file is only allowed along with Project Analyzer
   6 ' according to the Project Analyzer license terms.
   7 
   8 Option Explicit
   9 
  10 Implements IPicInfo
  11 
  12 Private Enum EBMPType
  13     bmpUnknown
  14     bmpInfoHeader
  15     bmpCoreHeader
  16 End Enum
  17 Private BMPType As EBMPType
  18 
  19 Private Type BITMAPFILEHEADER
  20         bfType As Integer       ' Specifies the file type, must be BM.

   ! Type field written, not read: BITMAPFILEHEADER.bfSize - 0 reads, 1 write
  21         bfSize As Long          ' Specifies the size, in bytes, of the bitmap file.
  22         bfReserved1 As Integer  ' Reserved; must be zero.
  23         bfReserved2 As Integer  ' Reserved; must be zero.

   ! Type field written, not read: BITMAPFILEHEADER.bfOffBits - 0 reads, 1 write
  24         bfOffBits As Long       ' Specifies the offset, in bytes, from the beginning of the BITMAPFILEHEADER structure to the bitmap bits.

    Too many uncommented lines: 27
  25 End Type
  26 Private Type BITMAPINFOHEADER

   ! Type field written, not read: BITMAPINFOHEADER.biSize - 0 reads, 1 write
  27         biSize As Long
  28         biWidth As Long
  29         biHeight As Long

   ! Type field written, not read: BITMAPINFOHEADER.biPlanes - 0 reads, 1 write
  30         biPlanes As Integer
  31         biBitCount As Integer
  32         biCompression As Long

   ! Type field written, not read: BITMAPINFOHEADER.biSizeImage - 0 reads, 1 write
  33         biSizeImage As Long

   ! Type field written, not read: BITMAPINFOHEADER.biXPelsPerMeter - 0 reads, 1 write
  34         biXPelsPerMeter As Long

   ! Type field written, not read: BITMAPINFOHEADER.biYPelsPerMeter - 0 reads, 1 write
  35         biYPelsPerMeter As Long

   ! Type field written, not read: BITMAPINFOHEADER.biClrUsed - 0 reads, 1 write
  36         biClrUsed As Long

   ! Type field written, not read: BITMAPINFOHEADER.biClrImportant - 0 reads, 1 write
  37         biClrImportant As Long
  38 End Type
  39 Private Type BITMAPCOREHEADER

   ! Type field written, not read: BITMAPCOREHEADER.bcSize - 0 reads, 1 write
  40         bcSize As Long
  41         bcWidth As Integer
  42         bcHeight As Integer

   ! Type field written, not read: BITMAPCOREHEADER.bcPlanes - 0 reads, 1 write
  43         bcPlanes As Integer
  44         bcBitCount As Integer
  45 End Type
  46 Private InfoHeader As BITMAPINFOHEADER
  47 Private CoreHeader As BITMAPCOREHEADER
  48 

   ! Dead constant: BI_RGB
  49 Private Const BI_RGB = 0&
  50 Private Const BI_RLE4 = 2&
  51 Private Const BI_RLE8 = 1&

   ! Dead constant: BI_bitfields
  52 Private Const BI_bitfields = 3&
  53 
  54 ' IsRLE indicates whether the bitmap is RLE compressed (True) or not (False)
  55 ' This variable is written but not read
  56 ' It might well be removed without affecting the functionality of the program

   ! Variable written, not read: IsRLE - 0 reads, 2 writes
  57 Private IsRLE As Boolean
  58 
  59 ' Filename used in the previous call to ReadFile

   ! Variable read, not written: StoredFilename - 1 read, 0 writes
  60 Private StoredFilename As String
  61 
  62