Methods – PicInfo sample application

Class IPicInfo

Public
Function	ReadFile(in:String) As Boolean

Class PicBMP

Implements IPicInfo

Private
Function	IPicInfo_ReadFile(in:String) As Boolean
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
Function	IPicInfo_ReadFile(in:String) As Boolean
Function	ReadGIF(in:String) As Boolean
Function	UInt(in:Integer) As Long

Module PicMain

Private
Function	FileDialog(in:Long, in:String, in:String, in/out:Long, in:String, in:String, in/out:PicMain.EFileDlgFlags) As String
Public
Sub	Main()
Function	ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String