Project Analyzer

Variable references - PicInfo sample application

PicBMP

BMPType As EBMPType

PicBMP.ReadBitmapFile:
  BMPType = bmpUnknown ' Set file type to bmpUnknown until we can verify the real type
  BMPType = bmpCoreHeader
  BMPType = bmpInfoHeader
PicBMP.IPicInfo_MaxColors [Get]:
  Select Case BMPType
PicBMP.IPicInfo_Size [Get]:
  Select Case BMPType

CoreHeader As BITMAPCOREHEADER

PicBMP.ReadBitmapFile:
  Case Len(CoreHeader)
  Get #FileNr, , CoreHeader
PicBMP.IPicInfo_MaxColors [Get]:
  IPicInfo_MaxColors = 2 ^ CoreHeader.bcBitCount
PicBMP.IPicInfo_Size [Get]:
  IPicInfo_Size.Width = CoreHeader.bcWidth
  IPicInfo_Size.Height = CoreHeader.bcHeight

InfoHeader As BITMAPINFOHEADER

PicBMP.ReadBitmapFile:
  Case Len(InfoHeader)
  Get #FileNr, , InfoHeader
  Select Case InfoHeader.biCompression
PicBMP.IPicInfo_MaxColors [Get]:
  IPicInfo_MaxColors = 2 ^ InfoHeader.biBitCount
PicBMP.IPicInfo_Size [Get]:
  IPicInfo_Size.Width = InfoHeader.biWidth
  IPicInfo_Size.Height = InfoHeader.biHeight

IsRLE As Boolean

PicBMP.ReadBitmapFile:
  IsRLE = False        ' Clear the IsRLE flag. We will set it below to True if required.
  IsRLE = True
Written only

StoredFilename As String

PicBMP.IPicInfo_Filename [Get]:
  IPicInfo_Filename = StoredFilename
Read only


PicGIF

FileOK As Boolean

PicGIF.ReadGIF:
  FileOK = False              ' Clear the FileOK flag until we have successfully read a valid .gif file
  FileOK = True
PicGIF.Version [Get]:
  If FileOK Then
PicGIF.IPicInfo_MaxColors [Get]:
  If FileOK Then
PicGIF.IPicInfo_Size [Get]:
  If FileOK Then

LogicalScreenDescriptor As TLogicalScreenDescriptor

PicGIF.ReadGIF:
  If LOF(FileNr) > Len(Signature) + Len(LogicalScreenDescriptor) Then
  Get #FileNr, , LogicalScreenDescriptor
  ColorResolution = (LogicalScreenDescriptor.Packed And (64 + 32 + 16)) \ 16 + 1
PicGIF.IPicInfo_Size [Get]:
  IPicInfo_Size.Width = UInt(LogicalScreenDescriptor.Width)
  IPicInfo_Size.Height = UInt(LogicalScreenDescriptor.Height)

MaxColors As Long

PicGIF.ReadGIF:
  MaxColors = 2 ^ ColorResolution
PicGIF.IPicInfo_MaxColors [Get]:
  IPicInfo_MaxColors = MaxColors

Signature As String * 6

PicGIF.ReadGIF:
  If LOF(FileNr) > Len(Signature) + Len(LogicalScreenDescriptor) Then
  Get #FileNr, 1, Signature
  If Signature = "GIF87a" Or Signature = "GIF89a" Then
  If Signature = "GIF87a" Or Signature = "GIF89a" Then
PicGIF.Version [Get]:
  Version = Signature

StoredFilename As String

PicGIF.ReadGIF:
  StoredFilename = GIFFilename ' Store Filename for later retrieval
PicGIF.IPicInfo_Filename [Get]:
  IPicInfo_Filename = StoredFilename


PicMain

ProgramTitle As String

PicForm.Form_Load:
  Me.Caption = ProgramTitle ' Global variable access
PicMain.Main:
  ProgramTitle = App.Title