Private data – PicInfo sample application

Class IPicInfo

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

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