Module interface report - PicInfo sample application

All scopes

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

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

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 PicBMP.EBMPType
Private CoreHeader As PicBMP.BITMAPCOREHEADER
Private InfoHeader As PicBMP.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

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 PicGIF.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

Color legend

Procedure
Property
Event
Variable
Control