Project Analyzer

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