Methods - 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  
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

Class IPicInfo

Public  
Function ReadFile(String) As Boolean

Class PicBMP

Implements IPicInfo
Private  
Function IPicInfo_ReadFile(in:String) As Boolean
Function ReadBitmapFile(in:String) As Boolean

Class PicGIF

Implements IPicInfo
Private  
Function IPicInfo_ReadFile(in:String) As Boolean
Function ReadGIF(in:String) As Boolean
Function UInt(in:Integer) As Long

Color legend

Green Implements