Procedure references – PicInfo sample application

IPicInfo

Filename [Get]

Public Property Get Filename() As String
Dead but exposed

MaxColors [Get]

Public Property Get MaxColors() As Variant

PicForm.DisplayPictureInfo:
MaxColors = IPicInfo.MaxColors

ReadFile

Public Function ReadFile(ByVal Filename As String) As Boolean

PicForm.DisplayPictureInfo:
If IPicInfo.ReadFile(Filename) Then

Size [Get]

Public Property Get Size() As TPicSize

PicForm.DisplayPictureInfo:
PicSize = IPicInfo.Size

PicBMP

IPicInfo_Filename [Get]

Private Property Get IPicInfo_Filename() As String

IPicInfo_MaxColors [Get]

Private Property Get IPicInfo_MaxColors() As Variant

IPicInfo_ReadFile

Private Function IPicInfo_ReadFile(ByVal Filename As String) As Boolean

IPicInfo_Size [Get]

Private Property Get IPicInfo_Size() As TPicSize

ReadBitmapFile

Private Function ReadBitmapFile(ByVal Filename As String) As Boolean

PicBMP.IPicInfo_ReadFile:
IPicInfo_ReadFile = ReadBitmapFile(Filename)

PicForm

DisplayPictureInfo

Private Sub DisplayPictureInfo(ByVal Filename As String)

PicForm.OpenFile_Click:
DisplayPictureInfo Filename
PicForm.Pict_OLEDragDrop:
DisplayPictureInfo Data.Files(1)

Form_KeyPress

Private Sub Form_KeyPress(KeyAscii As Integer)
Dead - KeyPreview = False

Form_Load

Private Sub Form_Load()

OpenFile_Click

Private Sub OpenFile_Click()

PicForm.Form_KeyPress:
OpenFile_Click

Pict_OLEDragDrop

Private Sub Pict_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Pict_OLEDragOver

Private Sub Pict_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

SaveFile_Click

Private Sub SaveFile_Click()

PicGIF

IPicInfo_Filename [Get]

Private Property Get IPicInfo_Filename() As String

IPicInfo_MaxColors [Get]

Private Property Get IPicInfo_MaxColors() As Variant

IPicInfo_ReadFile

Private Function IPicInfo_ReadFile(ByVal Filename As String) As Boolean

IPicInfo_Size [Get]

Private Property Get IPicInfo_Size() As TPicSize

ReadGIF

Private Function ReadGIF(ByVal GIFFilename As String) As Boolean

PicGIF.IPicInfo_ReadFile:
IPicInfo_ReadFile = ReadGIF(Filename)

UInt

Private Function UInt(ByVal i As Integer) As Long

PicGIF.IPicInfo_Size [Get]:
IPicInfo_Size.Width = UInt(LogicalScreenDescriptor.Width)
IPicInfo_Size.Height = UInt(LogicalScreenDescriptor.Height)

Version [Get]

Friend Property Get Version() As String
Dead

PicMain

CommDlgExtendedError

Private Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

PicMain.FileDialog:
ErrCode = CommDlgExtendedError()

FileDialog

Private Function FileDialog(ByVal hwndOwner As Long, ByVal DefaultExtension As String, ByVal Filter As String, ByRef FilterIndex As Long, ByVal InitialDir As String, ByVal DialogTitle As String, ByRef Flags As EFileDlgFlags) As String

PicMain.ShowFileOpenDialog:
ShowFileOpenDialog = FileDialog(hwndOwner, DefaultExtension, Filter, FilterIndex, InitialDir, DialogTitle, Flags)

GetOpenFileNameA

Private Declare Function GetOpenFileNameA Lib "comdlg32.dll" (pOpenfilename As OpenFilename) As Long

PicMain.FileDialog:
Result = GetOpenFileNameA(OFN)

GetSaveFileNameA

Private Declare Function GetSaveFileNameA Lib "comdlg32.dll" (pOpenfilename As OpenFilename) As Long
Dead

Main

Sub Main()

ShowFileOpenDialog

Public Function ShowFileOpenDialog(ByVal hwndOwner As Long, ByVal DefaultExtension As String, ByVal Filter As String, Optional ByRef FilterIndex As Long, Optional ByVal InitialDir As String, Optional ByVal DialogTitle As String, Optional ByRef Flags As EFileDlgFlags = OFN_OPENDEFAULTS) As String

PicForm.OpenFile_Click:
Filename = ShowFileOpenDialog(Me.hWnd, "", "Picture files (*.gif;*.bmp)|*.gif;*.bmp")