Procedures – PicInfo sample application

Class IPicInfo

Public
Property Get	Filename() As String
Property Get	MaxColors() As Variant
Function	ReadFile(in: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

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()

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

Module PicMain

Private
Declare Function	CommDlgExtendedError() As Variant
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 Variant
Declare Function	GetSaveFileNameA(in/out?:PicMain.OpenFilename) As Variant
Public
Sub	Main()
Function	ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String