Procedures - PicInfo sample application

Form PicForm

Private  
Sub DisplayPictureInfo(in:String)
Sub Form_KeyPress(in:Integer)
Sub Form_Load()
Sub OpenFile_Click()
Sub Pict_OLEDragDrop(in:DataObject, out:Long, Integer, Integer, Single, Single)
Sub Pict_OLEDragOver(in:DataObject, out:Long, Integer, Integer, Single, Single, Integer)
Sub SaveFile_Click()

Module PicMain

Private  
Declare Function CommDlgExtendedError() As Long
Function FileDialog(in:Long, in:String, in:String, in/out:Long, in:String, in:String, in/out:PicMain.EFileDlgFlags) As String
Declare Function GetOpenFileNameA(in/out?:PicMain.OpenFilename) As Long
Declare Function GetSaveFileNameA(in/out?:PicMain.OpenFilename) As Long
Public
Sub Main()
Function ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String

Class IPicInfo

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

Class PicBMP

Implements IPicInfo
Private  
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Function IPicInfo_ReadFile(in:String) As Boolean
Property Get IPicInfo_Size() As IPicInfo.TPicSize
Function ReadBitmapFile(in:String) As Boolean

Class PicGIF

Implements IPicInfo
Private  
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Function IPicInfo_ReadFile(in:String) As Boolean
Property Get IPicInfo_Size() As IPicInfo.TPicSize
Function ReadGIF(in:String) As Boolean
Function UInt(in:Integer) As Long
Friend
Property Get Version() As String

Color legend

Green Implements