Cross-reference report – PicInfo sample application

Procedure references

	Sub DisplayPictureInfo	PicForm

C	ReadFile	IPicInfo
C	Size [Get]	IPicInfo
C	MaxColors [Get]	IPicInfo
B	OpenFile_Click	PicForm
B	Pict_OLEDragDrop	PicForm

	Sub Form_KeyPress	PicForm
C	OpenFile_Click	PicForm
	Dead - KeyPreview = False

	Sub Form_Load	PicForm

	Sub OpenFile_Click	PicForm
C	ShowFileOpenDialog	PicMain
C	DisplayPictureInfo	PicForm
B	Form_KeyPress	PicForm

	Sub Pict_OLEDragDrop	PicForm
C	DisplayPictureInfo	PicForm

	Sub Pict_OLEDragOver	PicForm

	Sub SaveFile_Click	PicForm

	Declare Function GetOpenFileNameA	PicMain
B	FileDialog	PicMain

	Declare Function GetSaveFileNameA	PicMain
	Dead

	Declare Function CommDlgExtendedError	PicMain
B	FileDialog	PicMain

	Function ShowFileOpenDialog	PicMain
C	FileDialog	PicMain
B	OpenFile_Click	PicForm

	Function FileDialog	PicMain
C	GetOpenFileNameA	PicMain
C	CommDlgExtendedError	PicMain
B	ShowFileOpenDialog	PicMain

	Sub Main	PicMain

	Property Get Filename	IPicInfo
C	IPicInfo_Filename [Get]	PicBMP
C	IPicInfo_Filename [Get]	PicGIF
	Dead but exposed

	Property Get MaxColors	IPicInfo
C	IPicInfo_MaxColors [Get]	PicBMP
C	IPicInfo_MaxColors [Get]	PicGIF
B	DisplayPictureInfo	PicForm

	Function ReadFile	IPicInfo
C	IPicInfo_ReadFile	PicBMP
C	IPicInfo_ReadFile	PicGIF
B	DisplayPictureInfo	PicForm

	Property Get Size	IPicInfo
C	IPicInfo_Size [Get]	PicBMP
C	IPicInfo_Size [Get]	PicGIF
B	DisplayPictureInfo	PicForm

	Function ReadBitmapFile	PicBMP
B	IPicInfo_ReadFile	PicBMP

	Property Get IPicInfo_Filename	PicBMP
B	Filename [Get]	IPicInfo

	Property Get IPicInfo_MaxColors	PicBMP
B	MaxColors [Get]	IPicInfo

	Function IPicInfo_ReadFile	PicBMP
C	ReadBitmapFile	PicBMP
B	ReadFile	IPicInfo

	Property Get IPicInfo_Size	PicBMP
B	Size [Get]	IPicInfo

	Function UInt	PicGIF
B	IPicInfo_Size [Get]	PicGIF

	Function ReadGIF	PicGIF
B	IPicInfo_ReadFile	PicGIF

	Property Get Version	PicGIF
	Dead

	Property Get IPicInfo_Filename	PicGIF
B	Filename [Get]	IPicInfo

	Property Get IPicInfo_MaxColors	PicGIF
B	MaxColors [Get]	IPicInfo

	Function IPicInfo_ReadFile	PicGIF
C	ReadGIF	PicGIF
B	ReadFile	IPicInfo

	Property Get IPicInfo_Size	PicGIF
C	UInt	PicGIF
B	Size [Get]	IPicInfo

C = Calls
B = Called by

Variable references

	Public ProgramTitle As String		PicMain

R	Form_Load	59	PicForm
W	Main	241	PicMain

	Private BMPType As EBMPType		PicBMP
W	ReadBitmapFile	75	PicBMP
W	ReadBitmapFile	95	PicBMP
W	ReadBitmapFile	99	PicBMP
R	IPicInfo_MaxColors [Get]	128	PicBMP
R	IPicInfo_Size [Get]	153	PicBMP

	Private InfoHeader As BITMAPINFOHEADER		PicBMP
R	ReadBitmapFile	97	PicBMP
WR	ReadBitmapFile	98	PicBMP
R	ReadBitmapFile	102	PicBMP
R	IPicInfo_MaxColors [Get]	132	PicBMP
R	IPicInfo_Size [Get]	158	PicBMP
R	IPicInfo_Size [Get]	159	PicBMP

	Private CoreHeader As BITMAPCOREHEADER		PicBMP
R	ReadBitmapFile	93	PicBMP
WR	ReadBitmapFile	94	PicBMP
R	IPicInfo_MaxColors [Get]	130	PicBMP
R	IPicInfo_Size [Get]	155	PicBMP
R	IPicInfo_Size [Get]	156	PicBMP

	Private IsRLE As Boolean		PicBMP
W	ReadBitmapFile	74	PicBMP
W	ReadBitmapFile	105	PicBMP
	Written only

	Private StoredFilename As String		PicBMP
R	IPicInfo_Filename [Get]	122	PicBMP
	Read only

	Private StoredFilename As String		PicGIF
W	ReadGIF	63	PicGIF
R	IPicInfo_Filename [Get]	112	PicGIF

	Private FileOK As Boolean		PicGIF
W	ReadGIF	64	PicGIF
W	ReadGIF	85	PicGIF
R	Version [Get]	102	PicGIF
R	IPicInfo_MaxColors [Get]	119	PicGIF
R	IPicInfo_Size [Get]	141	PicGIF

	Private Signature As String * 6		PicGIF
R	ReadGIF	70	PicGIF
WR	ReadGIF	74	PicGIF
R	ReadGIF	75	PicGIF
R	ReadGIF	75	PicGIF
R	Version [Get]	103	PicGIF

	Private LogicalScreenDescriptor As TLogicalScreenDescriptor		PicGIF
R	ReadGIF	70	PicGIF
WR	ReadGIF	79	PicGIF
R	ReadGIF	82	PicGIF
R	IPicInfo_Size [Get]	146	PicGIF
R	IPicInfo_Size [Get]	147	PicGIF

	Private MaxColors As Long		PicGIF
W	ReadGIF	83	PicGIF
R	IPicInfo_MaxColors [Get]	121	PicGIF

R = Read by
W = Written by
I = Instantiated by
A = Array allocated by
C = Cleared by
U = Used by

Constant references

	Const MAXFILE = 512		PicMain

R	FileDialog	150	PicMain
R	FileDialog	151	PicMain

	Private Const CDERR_DIALOGFAILURE = &HFFFF		PicMain
R	FileDialog	190	PicMain

	Private Const CDERR_FINDRESFAILURE = &H6		PicMain
R	FileDialog	192	PicMain

	Private Const CDERR_NOHINSTANCE = &H4		PicMain
R	FileDialog	194	PicMain

	Private Const CDERR_INITIALIZATION = &H2		PicMain
R	FileDialog	196	PicMain

	Private Const CDERR_NOHOOK = &HB		PicMain
R	FileDialog	198	PicMain

	Private Const CDERR_LOCKRESFAILURE = &H8		PicMain
R	FileDialog	200	PicMain

	Private Const CDERR_NOTEMPLATE = &H3		PicMain
R	FileDialog	202	PicMain

	Private Const CDERR_LOADRESFAILURE = &H7		PicMain
R	FileDialog	204	PicMain

	Private Const CDERR_STRUCTSIZE = &H1		PicMain
R	FileDialog	206	PicMain

	Private Const CDERR_LOADSTRFAILURE = &H5		PicMain
R	FileDialog	208	PicMain

	Private Const FNERR_BUFFERTOOSMALL = &H3003		PicMain
R	FileDialog	210	PicMain

	Private Const CDERR_MEMALLOCFAILURE = &H9		PicMain
R	FileDialog	212	PicMain

	Private Const FNERR_INVALIDFILENAME = &H3002		PicMain
R	FileDialog	214	PicMain

	Private Const CDERR_MEMLOCKFAILURE = &HA		PicMain
R	FileDialog	216	PicMain

	Private Const FNERR_SUBCLASSFAILURE = &H3001		PicMain
R	FileDialog	218	PicMain

	Private Const BI_RGB = 0&		PicBMP
	Dead

	Private Const BI_RLE4 = 2&		PicBMP
R	ReadBitmapFile	103	PicBMP

	Private Const BI_RLE8 = 1&		PicBMP
R	ReadBitmapFile	103	PicBMP

	Private Const BI_bitfields = 3&		PicBMP
	Dead

R = Read by

Type and enum references

Type OpenFilename		PicMain
GetOpenFileNameA	15	PicMain
GetSaveFileNameA	18	PicMain
FileDialog	138	PicMain

Enum EFileDlgFlags		PicMain
ShowFileOpenDialog	117	PicMain
FileDialog	135	PicMain

Type TPicSize		IPicInfo
DisplayPictureInfo	15	PicForm
Size [Get]	43	IPicInfo
IPicInfo_Size [Get]	150	PicBMP
IPicInfo_Size [Get]	138	PicGIF

Enum EBMPType		PicBMP
(declarations)	17	PicBMP

Type BITMAPFILEHEADER		PicBMP
ReadBitmapFile	70	PicBMP

Type BITMAPINFOHEADER		PicBMP
(declarations)	46	PicBMP

Type BITMAPCOREHEADER		PicBMP
(declarations)	47	PicBMP

Type TLogicalScreenDescriptor		PicGIF
(declarations)	34	PicGIF