| Public | |
| Property Get | Filename() As String |
| Property Get | MaxColors() As Variant |
| Function | ReadFile(in:String) As Boolean |
| Property Get | Size() As IPicInfo.TPicSize |
| 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 |
| 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() |
| 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 |
| Private | |
| Declare Function | CommDlgExtendedError() As Long |
| 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 Long |
| Declare Function | GetSaveFileNameA(in/out?:PicMain.OpenFilename) As Long |
| 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 |
| Green | Implements |