Module interface report – PicInfo sample application

All scopes

Class IPicInfo

Filename() As String	Public Property
MaxColors() As Variant	Public Property
Size() As IPicInfo.TPicSize	Public Property
ReadFile(String) As Boolean	Public Function

Class PicBMP

Implements IPicInfo

BMPType As EBMPType	Private
CoreHeader As BITMAPCOREHEADER	Private
InfoHeader As BITMAPINFOHEADER	Private
IsRLE As Boolean	Private
StoredFilename As String	Private
IPicInfo_Filename() As String	Private Property
IPicInfo_MaxColors() As Variant	Private Property
IPicInfo_Size() As IPicInfo.TPicSize	Private Property
IPicInfo_ReadFile(String) As Boolean	Private Function
ReadBitmapFile(String) As Boolean	Private Function

Form PicForm

DisplayPictureInfo(String)	Private Sub
Form_KeyPress(Integer)	Private Sub
Form_Load()	Private Sub
OpenFile_Click()	Private Sub
Pict_OLEDragDrop(DataObject, Long, Integer, Integer, Single, Single)	Private Sub
Pict_OLEDragOver(DataObject, Long, Integer, Integer, Single, Single, Integer)	Private Sub
SaveFile_Click()	Private Sub
Filename	Label
Label1	Label
MaxColors	Label
OpenFile	CommandButton
Pict	Image
SaveFile	CommandButton
Size	Label

Class PicGIF

Implements IPicInfo

FileOK As Boolean	Private
LogicalScreenDescriptor As TLogicalScreenDescriptor	Private
MaxColors As Long	Private
Signature As String * 6	Private
StoredFilename As String	Private
IPicInfo_Filename() As String	Private Property
IPicInfo_MaxColors() As Variant	Private Property
IPicInfo_Size() As IPicInfo.TPicSize	Private Property
Version() As String	Friend Property
IPicInfo_ReadFile(String) As Boolean	Private Function
ReadGIF(String) As Boolean	Private Function
UInt(Integer) As Long	Private Function

Module PicMain

ProgramTitle As String	Public
CommDlgExtendedError() As [Variant]	Private Declare Function
FileDialog(Long, String, String, Long, String, String, PicMain.EFileDlgFlags) As String	Private Function
GetOpenFileNameA(PicMain.OpenFilename) As [Variant]	Private Declare Function
GetSaveFileNameA(PicMain.OpenFilename) As [Variant]	Private Declare Function
Main()	Sub
ShowFileOpenDialog(Long, String, String, [Long], [String], [String], [PicMain.EFileDlgFlags]) As String	Public Function

Color legend

Variable
Property
Procedure
Event
Control