Module data - PicInfo sample application

Form PicForm

Module PicMain

Public  
var ProgramTitle As String

Class IPicInfo

Public  
Property Get Filename() As String
Property Get MaxColors() As Variant
Property Get Size() As IPicInfo.TPicSize

Class PicBMP

Implements IPicInfo
Private  
var BMPType As EBMPType
var CoreHeader As BITMAPCOREHEADER
var InfoHeader As BITMAPINFOHEADER
var IsRLE As Boolean
var StoredFilename As String
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Property Get IPicInfo_Size() As IPicInfo.TPicSize

Class PicGIF

Implements IPicInfo
Private  
var FileOK As Boolean
var LogicalScreenDescriptor As TLogicalScreenDescriptor
var MaxColors As Long
var Signature As String * 6
var StoredFilename As String
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Property Get IPicInfo_Size() As IPicInfo.TPicSize
Friend
Property Get Version() As String

Color legend

Green Implements