Project Analyzer

Properties – PicInfo sample application

Class IPicInfo

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

Class PicBMP

Implements IPicInfo

Private  
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Property Get IPicInfo_Size() As IPicInfo.TPicSize

Form PicForm

Class PicGIF

Implements IPicInfo

Private  
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

Module PicMain