Module interface report

Module interface report - PicInfo sample application

All scopes

Class IPicInfo

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

Class PicBMP

Implements IPicInfo

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

Form PicForm

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

Class PicGIF

Implements IPicInfo

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

Module PicMain

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

Color legend

Procedure
Event
Property
Variable
Control