All procedures and variables – 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
var	BMPType As EBMPType
var	CoreHeader As BITMAPCOREHEADER
var	InfoHeader As BITMAPINFOHEADER
var	IsRLE As Boolean
var	StoredFilename As String
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
var	FileOK As Boolean
var	LogicalScreenDescriptor As TLogicalScreenDescriptor
var	MaxColors As Long
var	Signature As String * 6
var	StoredFilename As String
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
var	ProgramTitle As String
Sub	Main()
Function	ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String