Planet Source Code Jumbo …e CD Visual Basic 1 to 7/5_2007-2008.ISO/data/Zips/LaVolpe_Im2084129202007.psc/c32bppDIB.cls

Text File | 2007-09-19 | 80KB | 1,367 lines

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "c32bppDIB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

' Credits/Acknowledgements - Thanx goes to:
'   Paul Caton for his class on calling non VB-Friendly DLLs that use _cdecl calling convention
'       Used when calling non VB-friendly zLIB dll versions
'   Alfred Koppold for his PNG, VB-only, decompression routines.
'       Used when zLib & GDI+ not available
'   Carles P.V for his pvResize logic
'       Used when manually scaling images with NearestNeighbor or BiLinear interpolation
'   www.zlib.net for their free zLIB.dll, the standard DLL for compressing/decompressing PNGs
'       Without it, we'd be limited to GDI+ for creating PNGs
'   coders like you that provide constructive criticism to make this class better & more all-inclusive
'       Without your comments, this project probably would have died several versions/updates ago
' For most current updates/enhancements visit the following:
'   Visit http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=67466&lngWId=1
' To see a usercontrol applying a version of this class
'   Visit http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=68262&lngWId=1

' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
'                                    O V E R V I E W
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
' AlphaBlend API :: (msimg32.dll) , GDI+ API (gdiplus.dll)

' About 32bpp pre-multiplied RGB (pARGB) bitmaps, if you are not aware.
'   - These are used specifically for the AlphaBlend API & are GDI+ compatible
'   Advantages:
'       - Images can be per-pixel alpha blended
'       - Opacity can be simultaneously adjusted during rendering
'       - AlphaBlend does both BitBlt & StretchBlt for pARGB images.
'       - Speed: AlphaBlend & GDI+ are pretty quick APIs vs manual blending
'   Disadvantages:
'       - The original RGB values are permanently destroyed during pre-multiplying
'           -- Premultiplied formula: preMultipliedRed=(OriginalRed * Alpha) \ 255
'           -- There is no way to convert pARGB back to non-premultiplied RGB values
'              The formula would be: reconstructedRed=(preMultipliedRed * 255) \ Alpha.
'               but because of integer division when pre-multiplying, the result is very
'               close and if this should be premultiplied again & converted again, the
'               calculated colors can eventually be completely different than the original.
'               Fully opaque pixels & fully transparent pixels are not affected.
'           ** Note: When images are converted to PNG formats, removal of
'              premultiplication is performed to meet PNG specs.
'       - Displaying a pre-multiplied bitmap without AlphaBlend/GDI+ will not result in
'           the image being displayed as expected.
'       - Not ideal for saving due to its size: SizeOf= W x H x 4
'           -- better to save source image instead or compress the DIB bytes using favorite compression utility
'           -- with GDI+ or zLib, image can be converted to PNG for storage
'       - AlphaBlend API is not included/compatible with Win95, NT4 and lower
'       - AlphaBlend on Win9x systems can be buggy, especially when rendering to DIBs vs DDBs
' Note that GDI+ is standard on WinXP+, and can be used on Win98,ME,2K, & on NT4 if SP6 is installed
' Download GDI+ from:
' http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdicpp/GDIPlus/GDIPlus.asp
' Download ZLib from: http://www.zlib.net

' ----------------------------------------------
' About Win95, Win98, NT3.5, NT4 & WinME support
' ----------------------------------------------
' These routines may not honor AlphaBlend if it exists on those systems. Win98's version,
' for example, has several bugs that can crash the application when AlphaBlending to DIBs.
' NT4, NT3.5 & Win95 do not come with AlphaBlend and I do not have WinME to test with.
' Therefore, to support these older systems, the Render routine will alphablend manually
' regardless if the AlhpaBlend API exists on the older system or not. However, this can
' be overridden by you. See isAlphaBlendFriendly routine. Therefore, AlphaBlend is only
' reliable on Win2K and above. XP & above already have GDI+


' Class Purpose:
' ----------------------------------------------
' This class holds the 32bpp image. It also marshals any new image thru
' the battery of parsers to determine best method for converting the image
' to a 32bpp alpha-compatible image. It handles rendering, rotating, scaling,
' mirroring of DIBs using manual processes, AlphaBlend, and/or GDI+.

' The parser order is very important for fastest/best results...
' cPNGparser :: will convert PNG, all bit depths; aborts quickly if not PNG
' cGIFparser :: will convert non-transparent/transparent GIFs; aborts quickly
' cICOpraser :: will convert XP-Alpha, paletted, true color, & Vista PNG icons
'               -- can also convert most non-animated cursors
' cBMPparser :: will convert bitmaps, wmf/emf & jpgs

' As a last resort, when GDI+ exists, anything unable to be processed by the
' parsers (i.e., TIFFs) are sent to GDI+. If GDI+ can process the image, then
' the image will be converted, internally, to PNG to enable additional processing.

' The parsers are efficient. Most image formats have a magic number that give
'   a hint to what type of image the file/stream is. However, checks need to
'   be employed because non-image files could feasibly have those same magic
'   numbers. If the image is determined not to be one the parser is designed
'   to handle, the parser rejects it and the next parser takes over.  The
'   icon parser is slightly different because PNG files can be included into
'   a Vista ico file. When this occurs, the icon parser will pass off the
'   PNG format to the PNG parser automatically.
' And last but not least, the parsers have no advanced knowledge of the image
' format; as far as they are concerned, anything passed is just a byte array

' Class Organization:
' ----------------------------------------------
' Search the class for the words NEW SECTION
' The class routines are organized in the following sections:
'   Class Initialization & Termination Routines
'   Public Properties & Methods (almost 60 and growing)
'       Public Read-Only Properties
'       Public Methods
'       Class to Class Communication Methods
'   Local Support Functions
' ----------------------------------------------

' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
'                                       CHANGE HISTORY
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
' Accompanying FAQ.rtf is updated with every change
' Last changed: 29 Aug 07. See change history within the FAQ file
' 26 Dec 06: First version
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

' No APIs are declared public. This is to prevent possibly, differently
' declared APIs, or different versions of the same API, from conflciting
' with any APIs you declared in your project. Same rule for UDTs.
' Note: I did take liberties, changing parameter types, in several APIs throughout

' Used to determine operating system
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As Any) As Long
Private Type OSVERSIONINFOEX
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128 ' up to here is OSVERSIONINFO vs EX
   wServicePackMajor As Integer ' 8 bytes larger than OSVERSIONINFO
   wServicePackMinor As Integer
   wSuiteMask As Integer
   wProductType As Byte
   wReserved As Byte
End Type

' APIs used to manage the 32bpp DIB
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (ByRef Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As Long) As Long
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hDC As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function CreateDIBSection Lib "gdi32.dll" (ByVal hDC As Long, ByRef pBitmapInfo As Any, ByVal un As Long, ByRef Pointer As Long, ByVal Handle As Long, ByVal dw As Long) As Long
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal nHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal lBlendFunction As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32.dll" (ByVal hDC As Long, ByVal nStretchMode As Long) As Long
Private Declare Function GetObjectType Lib "gdi32.dll" (ByVal hgdiobj As Long) As Long
Private Declare Function GetCurrentObject Lib "gdi32.dll" (ByVal hDC As Long, ByVal uObjectType As Long) As Long
Private Declare Function GetIconInfo Lib "user32.dll" (ByVal hIcon As Long, ByRef piconinfo As ICONINFO) As Long
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function SetDIBitsToDevice Lib "gdi32.dll" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal dX As Long, ByVal dY As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, ByRef Bits As Any, ByRef BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function GetDIBits Lib "gdi32.dll" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, ByRef lpBits As Any, ByRef lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function OffsetRgn Lib "gdi32.dll" (ByVal hRgn As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Const STRETCH_HALFTONE As Long = &H4&
Private Const OBJ_BITMAP As Long = &H7&
Private Const OBJ_METAFILE As Long = &H9&
Private Const OBJ_ENHMETAFILE As Long = &HD&

' APIs used to create files
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpFileSizeHigh As Long) As Long
Private Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As Any) As Long
Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByRef lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Const INVALID_HANDLE_VALUE = -1&

' ////////////////////////////////////////////////////////////////
' Unicode-capable Drag and Drop of file names with wide characters
' ////////////////////////////////////////////////////////////////
Private Declare Function DispCallFunc Lib "oleaut32" (ByVal pvInstance As Long, _
    ByVal offsetinVft As Long, ByVal CallConv As Long, ByVal retTYP As VbVarType, _
    ByVal paCNT As Long, ByRef paTypes As Integer, _
    ByRef paValues As Long, ByRef retVAR As Variant) As Long
Private Declare Function lstrlenW Lib "kernel32.dll" (lpString As Any) As Long
Private Declare Function GlobalFree Lib "kernel32.dll" (ByVal hMem As Long) As Long

' ////////////////////////////////////////////////////////////////
' Unicode-capable Pasting of file names with wide characters
' ////////////////////////////////////////////////////////////////
Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
' ////////////////////////////////////////////////////////////////
Private Type FORMATETC
    cfFormat As Long
    pDVTARGETDEVICE As Long
    dwAspect As Long
    lIndex As Long
    TYMED As Long
End Type
Private Type DROPFILES
    pFiles As Long
    ptX As Long
    ptY As Long
    fNC As Long
    fWide As Long
End Type
Private Type STGMEDIUM
    TYMED As Long
    Data As Long
    pUnkForRelease As IUnknown
End Type


' used to create the checkerboard pattern on demand
Private Declare Function FillRect Lib "user32.dll" (ByVal hDC As Long, ByRef lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Declare Function OffsetRect Lib "user32.dll" (ByRef lpRect As RECT, ByVal X As Long, ByVal Y As Long) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

' used when saving an image or part of the image
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
Private Type SafeArrayBound
    cElements As Long
    lLbound As Long
End Type
Private Type SafeArray
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    cLocks As Long
    pvData As Long
    rgSABound(0 To 1) As SafeArrayBound ' reusable UDT for 1 & 2 dim arrays
End Type

Private Type ICONINFO
    fIcon As Long
    xHotspot As Long
    yHotspot As Long
    hbmMask As Long
    hbmColor As Long
End Type
Private Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type
Private Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiPalette As Long
End Type

Private Const AC_SRC_OVER = &H0&
Private Const AC_SRC_ALPHA = &H1&

Public Enum eImageFormat    ' source image format
    imgError = -1  ' no DIB has been initialized
    imgNone = 0    ' no image loaded
    imgBitmap = 1  ' standard bitmap or jpg
    imgIcon = 3    ' standard icon
    imgWMF = 2     ' windows meta file
    imgEMF = 4     ' enhanced WMF
    imgCursor = 5  ' standard cursor
    imgBmpARGB = 6  ' 32bpp bitmap where RGB is not pre-multiplied
    imgBmpPARGB = 7 ' 32bpp bitmap where RGB is pre-multiplied
    imgIconARGB = 8 ' XP-type icon; 32bpp ARGB
    imgGIF = 9      ' gif; if class.Alpha=True, then transparent GIF
    imgPNG = 10     ' PNG image
    imgPNGicon = 11 ' PNG in icon file (Vista)
    imgCursorARGB = 12 ' alpha blended cursors? do they exist yet?
    imgCheckerBoard = 64 ' image is displaying own checkerboard pattern; no true image
End Enum

Public Enum ePngProperties ' following are recognized "Captions" within a PNG file
    txtTitle = 1           ' See cPNGwriter.SetPngProperty for more information
    txtAuthor = 2
    txtDescription = 4
    txtCopyright = 8
    txtCreationTime = 16
    txtSoftware = 32
    txtDisclaimer = 64
    txtWarning = 128
    txtSource = 256
    txtComment = 512
    ' special properties
    txtLargeBlockText = 1024 ' this is free-form text can be of any length & contain most any characters
    dateTimeModified = 2048  ' date/time of the last image modification (not the time of initial image creation)
    colorDefaultBkg = 4096   ' default background color to use if PNG viewer does not do transparency
    filterType = 8192        ' one of the eFilterMethods values
    ClearAllProperties = -1  ' resets all PNG properties
End Enum

Public Enum eTrimOptions    ' see TrimImage method
    trimAll = 0             ' can be combined using OR
    trimLeft = 1
    trimTop = 2
    trimRight = 4
    trimBottom = 8
End Enum

Public Enum eScaleOptions   ' See ScaleImage method
    ScaleToSize = 0         ' [Default] will always scale
    scaleDownAsNeeded = 1   ' will only scale down if image won't fit
    ScaleStretch = 2        ' wll always stretch/distort
End Enum

Public Enum eGrayScaleFormulas
    gsclNTSCPAL = 0     ' R=R*.299, G=G*.587, B=B*.114 - Default
    gsclCCIR709 = 1     ' R=R*.213, G=G*.715, B=B*.072
    gsclSimpleAvg = 2   ' R,G, and B = (R+G+B)/3
    gsclRedMask = 3     ' uses only the Red sample value: RGB = Red / 3
    gsclGreenMask = 4   ' uses only the Green sample value: RGB = Green / 3
    gsclBlueMask = 5    ' uses only the Blue sample value: RGB = Blue / 3
    gsclRedGreenMask = 6 ' uses Red & Green sample value: RGB = (Red+Green) / 2
    gsclBlueGreenMask = 7 ' uses Blue & Green sample value: RGB = (Blue+Green) / 2
    gsclNone = -1
End Enum

Public Enum eFilterMethods
    filterDefault = 0     ' paletted PNGs will use filterNone while others will use filterPaeth
    filterNone = 1        ' no byte preparation used; else preps bytes using one of the following
    filterAdjLeft = 2     ' see cPNGwriter.EncodeFilter_Sub
    filterAdjTop = 3      ' see cPNGwriter.EncodeFilter_Up
    filterAdjAvg = 4      ' see cPNGwriter.EncodeFilter_Avg
    filterPaeth = 5       ' see cPNGwriter.EncodeFilter_Paeth
    filterAdaptive = 6    ' this is a best guess of the above 4 (can be different for each DIB scanline)
End Enum

Public Enum eRegionStyles     ' See CreateRegion
    regionBounds = 0
    regionEnclosed = 1
    regionShaped = 2
End Enum

Public Enum eConstants      ' See SourceIconSizes
    TRUE_COLOR = &HFF000000
    HIGH_COLOR = &HFFFF00
    TRUE_COLOR_ALPHA = &HFFFFFFFF
End Enum

Private m_Tag As Variant            ' user-defined, user usage only. See TAG property
Private m_PNGprops As cPNGwriter    ' used for more advanced PNG creation options
Private m_StretchQuality As Boolean ' if true will use BiLinear or better interpolation
Private m_Handle As Long        ' handle to 32bpp DIB
Private m_Pointer As Long       ' pointer to DIB bits
Private m_Height As Long        ' height of DIB
Private m_Width As Long         ' width of DIB
Private m_hDC As Long           ' DC if self-managing one
Private m_prevObj As Long       ' object deselected from DC when needed
Private m_osCAP As Long         ' See Class_Initialize
Private m_Format As eImageFormat ' type of source image
Private m_ManageDC As Boolean   ' does class manage its own DC
Private m_AlphaImage As Boolean ' does the DIB contain alpha/transparency
Private m_GDItoken As Long
Private m_ImageByteCache() As Byte  ' should you want the DIB class to cache original bytes
' ^^ N/A if image is loaded by handle, stdPicture, or resource


' NEW SECTION *******************************************************************************
'                   CLASS INITIALIZATION & TERMINATION ROUTINES
' *******************************************************************************************


Private Sub Class_Initialize()

    ' Determine operating system for compatibility of 32bpp images
    ' http://vbnet.mvps.org/code/helpers/iswinversion.htm
    ' http://msdn2.microsoft.com/en-gb/library/ms724834.aspx

   Dim osType As OSVERSIONINFOEX
   Const VER_PLATFORM_WIN32_WINDOWS As Long = 1

   ' Retrieve version data for OS.
   osType.dwOSVersionInfoSize = Len(osType)
   If GetVersionEx(osType) = 0 Then
      ' The OSVERSIONINFOEX structure is only supported
      ' in NT4/SP6+ and NT5.x, so we're likely running
      ' on an earlier version of Windows. Revert structure
      ' size to OSVERSIONINFO and try again.
      osType.dwOSVersionInfoSize = Len(osType) - 8
      Call GetVersionEx(osType)
   End If

   ' How the m_osCAP variable works and is used througout this class
   ' Value contains 1, then AlphaBlend enabled & used when needed. Not enabled on Win9x unless overridden via isAlphaBlendFriendly
   ' Value contains 2, then GDI+ enabled & used when needed (set in isGDIplusEnabled)
   ' Value contains 4, then zLib enabled & can be used to create/read PNGs (set in isZlibEnabled). Any O/S :: no longer used; tested as needed
   ' Value contains 8, then Win98+ or Win2K+: AlphaBlend capable system else it isn't
   ' Value contains 16, then a Win98 or WinME system
   ' Value contains 32, then NT4 w/less than SP6 or Win95. Otherwise system is GDI+ capable else it isn't
   ' Note: when m_osCap contains 17, then AlphaBlend has been overridden by user


    If osType.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then

        If osType.dwMinorVersion = 0 Then ' Win95; can't use AlphaBlend nor GDI+
            m_osCAP = 32

        Else ' flag as Alphablend disabled, but capable & is Win98/ME
            m_osCAP = 8 Or 16
        End If

    Else

        If osType.dwMajorVersion > 4 Then ' if Win2K or better
            m_osCAP = 1 Or 8    ' flag as AlphaBlend enabled (Win2K or better) and capable

        Else ' WinNT4. If SP6 or better than GDI+ capable else not. Regardless, not AlphaBlend capable
            If osType.wServicePackMajor < 6 Then m_osCAP = 32
        End If

    End If

    Me.isGDIplusEnabled = True  ' attempt to start GDI+, test system capability
    If Me.isGDIplusEnabled Then Me.HighQualityInterpolation = True


End Sub

Private Sub Class_Terminate()
    DestroyDIB ' simply clean up
End Sub

' NEW SECTION *******************************************************************************
'                           PUBLIC PROPERTIES AND METHODS
' *******************************************************************************************


Public Property Let Alpha(isAlpha As Boolean)
    m_AlphaImage = isAlpha  ' determines the flags used for AlphaBlend API
    ' this flag is set by the various image parsers; setting it yourself
    ' can produce less than desirable effects.
    ' Used in Me.Render & Me.TrimImage, cPNGwriter.OptimizeTrueColor & cPNGwriter.PalettizeImage
End Property
Public Property Get Alpha() As Boolean
    Alpha = m_AlphaImage
End Property

Public Property Let HighQualityInterpolation(Value As Boolean)
    ' When possible GDI+ will be used for stretching & rotation.
    ' If GDI+ is used,then high quality equates to BiCubic interpolation
    ' If not used, then BiLinear (manual processing) will be used.
    ' If High Quality is false, then Nearest Neighbor (very fast, less quality) interpolation used
    m_StretchQuality = Value
End Property
Public Property Get HighQualityInterpolation() As Boolean
    HighQualityInterpolation = m_StretchQuality
End Property

Public Property Get ImageType() As eImageFormat
    ImageType = m_Format    ' returns image format of the source image
End Property
Friend Property Let ImageType(iType As eImageFormat)
    m_Format = iType    ' set by the various image parsers. This is not used
    ' anywhere in these classes, you can do with it what you want -- for now.
End Property

Public Property Let ManageOwnDC(bManage As Boolean)
    ' Determines whether or not this class will manage its own DC
    ' If false, then a DC is created each time the image needs to be Rendered
    Dim tDC As Long
    If bManage = False Then     ' removing management of DC
        If Not m_hDC = 0& Then   ' DC does exist, destroy it
            ' first remove the dib, if one exists
            If Not m_Handle = 0& Then SelectObject m_hDC, m_prevObj
            m_prevObj = 0&
        End If
        DeleteDC m_hDC
        m_hDC = 0&
    Else                        ' allowing creation of dc
        If m_hDC = 0& Then        ' create DC only if we have a dib to put in it
            If Not m_Handle = 0& Then
                tDC = GetDC(0&)
                m_hDC = CreateCompatibleDC(tDC)
                ReleaseDC 0&, tDC
            End If
        End If
    End If
    m_ManageDC = bManage
End Property
Public Property Get ManageOwnDC() As Boolean
    ManageOwnDC = m_ManageDC
End Property

Public Property Get isAlphaBlendFriendly() As Boolean
    isAlphaBlendFriendly = ((m_osCAP And 1) = 1)
    ' WinNT4 & below and Win95 are not shipped with msimg32.dll (AlphaBlend API)
    ' Win98 has bugs & would believe that WinME is buggy too but don't know for sure
    ' Therefore, the Rendering in this class will not use AlphaBlend on these
    ' operating systems even if the DLL exists, but will use GDI+ if available
    ' Can be overridden by setting this property to True
End Property
Public Property Let isAlphaBlendFriendly(Enabled As Boolean)
    ' This has been provided to override safety of using AlphaBlend on Win9x systems.
    ' Caution. Only set this when rendering to a known device dependent bitmap (DDB)
    ' Alphablend can crash when rendering DIB to DIB vs DIB to DDB. Be warned.
    If Enabled = True Then
        ' Overriding in play: allow AlphaBlend if system is Win98 or better
        ' By default this is already set for Win2K or better
        If ((m_osCAP And 8) = 8) Then m_osCAP = m_osCAP Or 1
    Else
        m_osCAP = m_osCAP And Not 1 ' disallow AlphaBlend
    End If
End Property
Public Property Get isGDIplusEnabled() As Boolean
    ' identifies if GDI+ is usable on the system.
    ' Before this property is set, GDI+ is tested to ensure it is usable
    isGDIplusEnabled = ((m_osCAP And 2) = 2)
End Property
Public Property Let isGDIplusEnabled(Enabled As Boolean)
    ' Sets the property. If set to False by you, GDI+ will not be used
    ' for any rendering, but still may be used to create PNG files if needed

    ' You can reset it to true at any time. If the system won't support
    ' GDI+, then the True setting will simply be ignored -- no harm, no foul
    ' To test success:  c32class.isGDIplusEnabled=True: If c32class.isGDIplusEnabled=True Then ' success

    If Not Enabled = Me.isGDIplusEnabled Then
        m_osCAP = (m_osCAP And Not 2)
        If Enabled Then
            If (m_osCAP And 32) = 0 Then ' else Win95, NT4 SP5 or lower
                Dim cGDIp As New cGDIPlus
                If cGDIp.isGDIplusOk() = True Then m_osCAP = m_osCAP Or 2
            End If
        End If
    End If
End Property

Public Property Let gdiToken(Token As Long)
    ' Everytime a GDI+ API function is called, the class calls GDI+ apis to
    ' create a GDI+ token first then destroys the token after the function is called.

    ' This occurs quite often. However, you can create your own token by calling
    ' GdiplusStartup and then passing the token to each class for the class to use.
    ' You would call GdiplusShutdown during your main form's Terminate event to
    ' release the Token.

    ' When Token is zero, the classes will revert to creating a token on demand.
    ' When the Token is not zero, any other DIB class created by this class will
    ' pass the token as needed. The only routine that can create a new instance and
    ' returns that new instance is the CreateDropShadow method. You must set the
    ' token for that class at some point for that dropshadow class to use it.

    m_GDItoken = Token

End Property
Public Property Get gdiToken() As Long
    ' returns the GDI+ token if one was created
    gdiToken = m_GDItoken
End Property

Public Property Let Tag(vValue As Variant)
    If IsObject(vValue) Then
        Set m_Tag = vValue
    Else
        m_Tag = vValue
    End If
End Property
Public Property Set Tag(vValue As Variant)
    Me.Tag = vValue ' use the object check in the Let property
End Property
Public Property Get Tag() As Variant
    If IsObject(m_Tag) Then
        Set Tag = m_Tag
    Else
        Tag = m_Tag
    End If
End Property


' NEW SECTION *******************************************************************************
'                               PUBLIC READ-ONLY PROPERTIES
' *******************************************************************************************

Public Property Get Width() As Long
    Width = m_Width     ' width of image in pixels
End Property
Public Property Get Height() As Long
    Height = m_Height   ' height of image in pixels
End Property
Public Property Get BitsPointer() As Long
    BitsPointer = m_Pointer ' pointer to the bits of the image
End Property
Public Property Get scanWidth() As Long
    scanWidth = m_Width * 4&    ' number of bytes per scan line
End Property
Public Property Get Handle() As Long
    Handle = m_Handle   ' the picture handle of the image
End Property
Public Property Get isZlibEnabled() As Boolean
    ' Read Only
    ' To create PNG files, GDI+ or zLib is required. This property informs
    ' you if zLIB exists in the system's DLL path
    isZlibEnabled = iparseValidateZLIB(vbNullString, 0, False, False, True)

End Property

' NEW SECTION *******************************************************************************
'                                       PUBLIC METHODS
' *******************************************************************************************

Public Function LoadPicture_File(ByVal FileName As String, _
                                Optional ByVal iconCx As Long, _
                                Optional ByVal iconCy As Long, _
                                Optional ByVal SaveFormat As Boolean, _
                                Optional ByVal iconBitDepth As Long = 32) As Boolean

    ' PURPOSE: Convert passed image file into a 32bpp image

    ' Parameters.
    ' FileName :: full path of file. Validation occurs before we continue
    ' iconCx :: desired width of icon if file is an icon file. Default is 32x32
    ' iconCy :: desired height of icon if file is an icon file. Default is 32x32
    ' SaveFormat :: if true, then the image will be cached as a byte array only
    '   if the image was successfully loaded. Call GetOrginalFormat to retrieve them.
    ' iconBitDepth :: the desired bit depth of an icon if the resource is an icon file

    ' Why would you want to save the bytes? If this is being used in a usercontrol,
    ' saving the bytes will almost always be less size than saving the 32bit DIB.
    ' Additionally, these classes have the ability to get different sizes from
    ' the original source (i.e., WMF, icon, cursors) if available, but if the
    ' 32bit DIB is saved, it is a constant size. The potential of different sizes
    ' could allow better resizing of the image vs stretching the DIB.

    On Error Resume Next
    Dim hFile As Long

    hFile = iparseGetFileHandle(FileName, True, ((m_osCAP And 24) = 8))
    If hFile = INVALID_HANDLE_VALUE Then Exit Function

    If GetFileSize(hFile, 0&) > 56 Then

        ' no image file/stream can be less than 57 bytes and still be an image
        Dim aDIB() As Byte  ' dummy array
        LoadPicture_File = spt_LoadPictureEx(hFile, FileName, aDIB(), iconCx, iconCy, 0&, 0&, SaveFormat, iconBitDepth)

    End If
    CloseHandle hFile

End Function

Public Function LoadPicture_Stream(inStream() As Byte, _
                                    Optional ByVal iconCx As Long, _
                                    Optional ByVal iconCy As Long, _
                                    Optional ByVal streamStart As Long = 0&, _
                                    Optional ByVal streamLength As Long = 0&, _
                                    Optional ByVal SaveFormat As Boolean, _
                                    Optional ByVal iconBitDepth As Long = 32) As Boolean

    ' PURPOSE: Convert passed array into a 32bpp image

    ' Parameters.
    ' inStream:: byte stream containing the image. Validation occurs below
    ' iconCx :: desired width of icon if file is an icon file. Default is 32x32
    ' iconCy :: desired height of icon if file is an icon file. Default is 32x32
    ' streamStart :: array position of 1st byte of the image file. Validated.
    ' streamLength :: total length of the image file. Validated.
    ' SaveFormat :: if true, then the image will be cached as a byte array only
    '   if the image was successfully loaded. Call GetOrginalFormat to retrieve them.
    ' iconBitDepth :: the desired bit depth of an icon if the resource is an icon stream

    ' Why would you want to save the bytes? If this is being used in a usercontrol,
    ' saving the bytes will almost always be less size than saving the 32bit DIB.
    ' Additionally, these classes have the ability to get different sizes from
    ' the original source (i.e., WMF, icon, cursors) if available, but if the
    ' 32bit DIB is saved, it is a constant size. The potential of different sizes
    ' could allow better resizing of the image vs stretching the DIB.

    If iparseIsArrayEmpty(VarPtrArray(inStream)) = 0& Then Exit Function
    If streamStart < LBound(inStream) Then streamStart = LBound(inStream)
    If streamLength = 0& Then streamLength = UBound(inStream) - streamStart + 1&
    If streamLength < 57 Then Exit Function
    ' no image file/stream can be less than 57 bytes and still be an image
    LoadPicture_Stream = spt_LoadPictureEx(0&, vbNullString, inStream, iconCx, iconCy, streamStart, streamLength, SaveFormat, iconBitDepth)

End Function

Public Function LoadPicture_Resource(ByVal ResIndex As Variant, ByVal ResSection As Variant, _
                            Optional VBglobal As IUnknown, _
                            Optional ByVal iconCx As Long, _
                            Optional ByVal iconCy As Long, _
                            Optional ByVal streamStart As Long = 0&, _
                            Optional ByVal streamLength As Long = 0&, _
                            Optional ByVal iconBitDepth As Long = 32) As Boolean

    ' PURPOSE: Convert passed resource into a 32bpp image

    ' Parameters.
    ' ResIndex :: the resource file index (i.e., 101)
    ' ResSection :: one of the VB LoadResConstants or String value of
    '       your resource section, i.e., vbResBitmap, vbResIcon, "Custom", etc
    ' VbGlobal :: pass as VB.GLOBAL of the project containing the resource file
    '       - Allows class to be mobile; can exist in DLL or OCX
    '       - if not provided, class will use resource from existing workspace
    '       - For example, if this class was in a compiled OCX, then the only way
    '           to use the host's resource file is passing the host's VB.Global reference
    ' iconCx :: desired width of icon if file is an icon file. Default is 32x32
    ' iconCy :: desired height of icon if file is an icon file. Default is 32x32
    ' streamStart :: array position of 1st byte of the image file. Validated.
    ' streamLength :: total length of the image file. Validated.
    '   -- See LoadPicture_Stream for the validation
    ' iconBitDepth :: the desired bit depth of an icon if the resource is an icon

    ' Tips:
    ' 1) Store 32bpp bitmaps in the "Custom" resource always. Storing in the
    '       Bitmap resource can change color depth of the image created by VB
    '       depending on your screen settings
    ' 2) Icons, normal bitmaps, & cursors are generally stored in their own sections
    '       However, with icons containing multiple formats, VB will extract the
    '       closest format to 32x32. May want to consider storing these in "Custom"
    ' 3) All other types of images are normally stored in the "Custom" section

    On Error GoTo ExitRoutine

    Dim oWorkSpace As VB.Global, tPic As StdPicture

    If VBglobal Is Nothing Then
        Set oWorkSpace = VB.Global
    ElseIf TypeOf VBglobal Is VB.Global Then
        Set oWorkSpace = VBglobal
    Else
        Set oWorkSpace = VB.Global
    End If

    If VarType(ResSection) = vbString Then
        Dim inStream() As Byte
        ' could be anything, PNG,icon,gif,32bpp bitmap,wmf, etc
        inStream = oWorkSpace.LoadResData(ResIndex, ResSection)
        LoadPicture_Resource = LoadPicture_Stream(inStream, iconCx, iconCy, streamStart, streamLength, , iconBitDepth)
    Else
        ' can only be single icon, bitmap or cursor
        Set tPic = oWorkSpace.LoadResPicture(ResIndex, ResSection)
        LoadPicture_StdPicture tPic
    End If
    LoadPicture_Resource = Not (m_Handle = 0&)

ExitRoutine:
    If Err Then Err.Clear
End Function

Public Function LoadPicture_StdPicture(Picture As StdPicture) As Boolean

    ' PURPOSE: Convert passed stdPicture into a 32bpp image

    Me.DestroyDIB
    If Not Picture Is Nothing Then
        ' simply pass off to other parsers
        If Picture.Type = vbPicTypeIcon Then
            ' pass to icon/cursor parser
            Dim cICO As New cICOparser
            Call cICO.ConvertstdPicTo32bpp(Picture, Me)
            Set cICO = Nothing
        ElseIf Not Picture.Type = vbPicTypeNone Then
            ' pass to bmp,jpg,wmf parser
            ' Note: transparent GIFs should not be passed as stdPictures
            '   Pass transparent GIFs by Stream or FileName
            Dim cBMP As New cBMPparser
            Call cBMP.ConvertstdPicTo32bpp(Picture, Me, 0&)
            Set cBMP = Nothing
        End If
        LoadPicture_StdPicture = Not (m_Handle = 0&)
    End If


End Function

Public Function LoadPicture_ByHandle(Handle As Long) As Boolean

    ' PURPOSE: Convert passed image handle into a 32bpp image

    Dim icoInfo As ICONINFO, tPic As StdPicture
    If Not Handle = 0& Then
        Select Case GetObjectType(Handle)
        Case OBJ_BITMAP, OBJ_METAFILE, OBJ_ENHMETAFILE
            ' we should be able to convert this to a stdPicture...
            Set tPic = iparseHandleToStdPicture(Handle, vbPicTypeBitmap)
        Case Else
            ' Test for icons & cursors
            If Not GetIconInfo(Handle, icoInfo) = 0 Then
                ' got it; clean up the bitmap(s) created by GetIconInfo API
                If Not icoInfo.hbmColor = 0& Then DeleteObject icoInfo.hbmColor
                If Not icoInfo.hbmMask = 0& Then DeleteObject icoInfo.hbmMask
                ' convert to stdPicture...
                Set tPic = iparseHandleToStdPicture(Handle, vbPicTypeIcon)
            End If
        End Select
        If Not tPic Is Nothing Then
            ' send to this routine to process
            LoadPicture_ByHandle = LoadPicture_StdPicture(tPic)
        End If
    End If

End Function

Public Function LoadPicture_ClipBoard() As Boolean

    ' PURPOSE: Convert clipboard object into a 32bpp image

    On Error Resume Next
    With Clipboard
        If (.GetFormat(vbCFBitmap) Or .GetFormat(vbCFDIB) Or .GetFormat(vbCFEMetafile) Or .GetFormat(vbCFMetafile)) Then
            If Not Err Then LoadPicture_ClipBoard = LoadPicture_StdPicture(.GetData())
        End If
    End With
    If Err Then Err.Clear
End Function

Public Function LoadPicture_FromOrignalFormat(ion LoadPicture_FromOrignalFormat(ion LoadPicture_FromOrignalFormat(ion LoadPicture_FromOrignalFormat(ion LoadPicture_FromOrignalFormat(ion LoadPicture_FronPvbCFDIB) Or .GetFormat(vbCleource Cction

Public Functi&iLconBiFile Lib "sen Loade = LA_StdPicturSet ue Functi&iPhbmMaskse
c Functi&if

Private Type ICONINFO
        Set tPic = oWorg) As B          oMsly, these classes have the ability toeo.hbmMas:fapable Pbsly,/***********FI,ionCy :: der
            ese G,32bpp bitmap,wmf, err Then Err.Clear
End Functio0bPas:fapablgnd If
conInfo API Dim ihen
   E(l(rihen
   E(l(ri ' PURPOSE: oaaen
        SenPhbmMality toeo.hbmMas:fapAe
        Sel the  passeS*d If
conInfOtsen ) As Longure,
Public **FI,ionCyCidBrd array

Puity tol the  passeS*d If
conInfOtsen ) As Longure,
Public **FI,ionCyCidBrd array

Puity toadPictri ' PUn if the resotol tnfOtsitRoutine

:            d.
    a
            Set tPic = iparseHandleToStdPictureerty Let Tag(vV         this routirty E = 1024 nen Err.Clear
End Functio0bPas:faFDIB) Or .       oMslyyyyyyyyyyyyyy) As BooleanPicture
    If Not HaltBeer
   anything, PNG,icon,gs Long
PrihDC As L yCidBrt   ' Not HaeetFormaty    th = LoadPI      pI      p      pI      p Set oWorkSpFileName,lth = Loaoo, By.= 4      '(scanFromOri1=ablgnd If
conInfo API DiBooCidBrd arrst's VB.'aThen DeleteObject icoInfo.hbmColor
                If Not = 0 The////Src As Long, ByVal D VB OBJ_BIT biCo>2eIf TypeOfuf the resotol tnfihen
   E(l IsObjecV///Src As Long, ByVated.tPic the BJ_META>2eIHandle, icoInfo)   ' Note GDIsng, Byle
   GDILoadPic, Byle
   GDILoadPic, Byle
   GDILoaon

Public FdPic,  th = LoadPI      pI      p      pI     d64st always be lesrcontrol,
    ' saving the bytes will almost always be less size than saving the 32bit DIB.
    ' Additionally, these classes have the ability to get different sizes from
    ' the original source (i.e., WMF, icon, cursors) if available, but if the
    'anfo(Handle, icIsng6G ResSection)
        LoadPictureca       DILoadPic, Byle
      ilable, but if the
 ontrol,eource Cctiobut i2bpp bitmap,wmng, _
sPictureca       DILoad&)
                m_hDC = CreateOfuf th       s_ILoadPic, Byle
     +(  Byl'anfo(H tol the  passeS*d If
conInfOtsen ) As Longure,
Public **FI,ionCyCide_ClipBColoriendtOrgg multtttttttttttttttt   ' convert to ILoaon

Pu
            ' send to this routine to process
      ]rmat(tttttt   ' converh = LoadPI      pI,operty
    ' icon4e lesrcont icon4e lesrcont icotl1FronPvsture_ClipBrgg  p SectureBandlec As BooCctiobut i2bppicture_Frdle, icoInfo) = 0 Thene,
      ]aultiple formats, VB gdiToken() As Lle formansp;s    ' send     p Set oWorkSpFiaM      pI,operty
 oken() tine to procesailabR     LoadPiureBan  Load.fprocesailabR     LoadPLE,iiiiE: oaaeirouti' send     p Set aaeiroFileSizOil referencevate Typeasses have the ability to get different sizes from
    ' the original source (i.e.' (e_ClipBCo'Rsend t.e., WMF, ireamSta(ttttting   , Long4st always      If (is fpBCo'RsdPLE,iiiiE:cture..dce u     SectureBitmap,wmng, _
T  Riuc u Cmat of te ab ine to g, _
TbjectType(Handle)
        /aaultiple formats, VB gdiTok e
conInfOtsen LE,i#o procobut i2bpp bitif the
    p As Integerafir+e, Me)
         ginalLe works and is usnd     Bhns contimc FunlipBoaormat(ion LoadPicture_FronPvbCFDIB)oadPicture_FronP&iture_FronPvbCFDtD kais fpBCo'RsdP   ' ideaecV///Src As Long,
Public oInfo)ndle,KignalFormaursors      ilable i2bpe, vbPicTypeBithFile     If (is fpBCo'RsdPLE,iiiiEepbI:Bicotl1FronPvsture_ClipBrgg  p SectureBandlec As BooCctiobut i2bppicture_Frdle, icoInfo) = 0 Thene,
      ]aultiple formats, VB gdiToken() As Lle formansp;s    ' send     p Set oWorkSpFiaM      pI,operty
 oken() tine to procesailabR    vV      /8mats, /////reBandlec As Booap,wmng, _
T  RSerty


' esailabId.fprocesRee host's VB.to procesaidlec Asg  p SectureBos routine to process
      ]rmat(tttvsture_Cli
      ]asture_Cl multiple formats, VB will ex   O VB 'aila use GDI+ if avs:fapablgnd If
conRfferent si/cti&iLconBiin98 or VB talue cont- ' streamLength , VBltiple for98 or  pI      oken() As Lle formad = 1
  LA_Sr parser

            DimOmMase for98 nt si/ct
    or VB talnicode-cahe original sourc   ' number of bytes **FI,ionCyCidBrtiple formatouncti&iPhb(VB talniiroperty Get1 talnested b_)
      98 or VB, BylB ta1 ex   O VB 'a    ' send    IsId.fpraImage As BooleTUrsor tot_Cl multiplCl multiplCl  Optional ByVal iconsp,wmf, err Then Err.Clear
PpBooap,wm
:    b        roce9  of im host's VB.to procesaidlec Asg  p SectureBos routi VB.Globa   &iture_FronPvbCFDt  Riuc u Coaormat(ion Loadtultipl Lo OIs Noth   ort
    ' GDI+, thuE

re_FrCFDtPPPPPPPPPPPPPPPPPPPeo6ptional OIs Noth   ort
curshe abilitrmat(ithing
        End Ifnterp Or .GetFor' AdditDacMe)
         m_osCAP =///////ipnd CAP hter    't of icon if file is an ic
re_FalFN>B 4oth   ortnSet oWorkSpFiaM       Bhns esDat(   ' source ima    'Ytttt fe_FrCFDtPPPPhns esDat(   ' source Phns esDat( cesume NeLong, ByVeIf TypeOfuf iconsp,sCAP =eStart  Me,DDtttt fe_FrCFDtPPP'iC_A Me,DDtttt fe_F Resumeile

End Function

Public Function LoadPicture_Stream(inStream() As Byte, _
                         tu

End Function

Public Function LoadPicrStre. voriginanyStre.  Or .Ge
End Functionr.sised,tCVB taltaPicture_Resource(Byiptre.  Or .Ge  IgdiTokemng, _tmap,wmng, _
T ld not bNMeHandle MDtPPPPPPPPPPPPobB taltaPicture_Resoununction Lo****g, _tma source Phns esDat( cfast, less nction L  p     ecurrseHandlction Lol If thiseHand create a nenction Lobut iyaTion Lo****g,'obuon Lol If th ' saving the bytes rser
      e ICOE     Seuvdlctio0the byred heighe/streamken() tinile) Or .Gar
    It byteransparency
 ngure,
Public **FI,itine er As///////ipnd CAP hter   pI     PhDC As L yCie.sis pI,opertymy
 ng        ,icon,gs Lons  passf       ile = iparseGetFileHandlebo'Rsend rocesRu can create your Stre.  Oru can c            If Not = 0 The////Src As Long, Bynd CAP hter    't of icon ifeI4/SP6+ fast, li2bppicici u Coaofnterp se.  Or .Ge sa    'Ytttt fe_FrCFDtC th    wor n d.
    ase
     tl1Fronf      nvert  Phns esDaton Loadtultipl Lo OIs Nmpiled OStream or Fil not be used
    ' for any renderiume NeLong, ByVeIf ast, less nction L  ppppppppR&T d.
 TPh) be u array into a 32ng, ByVI' for (e_Cl  End If

   MHWfe_F     (ion L  pppeighe/strealic **Io procesailabR  tPPPPhnsat, iconBitslyyyyyyb MyCie.sis pIo teIfkSpFilenalLe works e//Src As Long,eeperty
  Seuis usnd   nBitkSpFilenalLe w  paesDate_ClipBrgg e NeLon

ppicture_Frdyonverts VB.GlobalToInfend rocesRu can cr=erp se.  Or .Ge sa    'Ytttt fe_FrCFDtC th    wor emenyyyyyb Thenppicture_Frdyonverts VB.Glrmat
    ImageType = m_Format    ' returns image format of the source image
End Properdtultsource image
End Properdtultsource image
Entalnicage
End Properdtultsource image
Entalnicage
End Properdtultsource image
y, these clAtroperdtI' saving the bytource imDe
EntalniOSE: Co_Poinion LoadPicrStre. voriginanySt  Lorce in L  Lorce in L  Date_ClipAhLorce in L  Date_ClipParameters.
    ' F.PI      pIlP\itart,Gnic
curshe abicage
End&B talue cod image t
    oadPicture_FronPvbCFDIB)oadPicture_FronP&ituntalniinalLH s will amage creat   ' conven
  Type(iT
 ponP&ituntalniina F.c Properdtu)
    e
End Properdtituntalniina Ftsoud Pradow cl   e
End P        m_Tag = vValue
    End If
Endicture_Frdyonverts VB.GlobalToInfe8 Tag = vValue
Pubure_FromOrignalFormat(ion LoadPI   ' Addif Value
Pudyonvrc AsxB(), icL yCie.Id Properdtulbuo conv    '       (Byiptre.  Or .G   't ofmu Malue
    En(   '       sa) As Lle v    '       (ByiptreeTal srptional Bylbuo conv    '    rtnSetaic
re.to conv    '   rocesO1,v    '    SectureBos roFronP&ituntt ' converh = LoadPI Select Ca  't SNhbor (very 3LoadPI Select Ca  't SNothing Then
        ' simply pass off to other pdlebo'Rsend rocesRu  differv    '   rsaicod imav      ' operati&ituntt rat^mav   Iher pdooCctiobut isxB(), icL yCie.Id Properdtulbuo conv    '       (Byiptre.A loaded by handle, stdPicture, or resource

*************** '   rocesO1,v    ' _Handle   ' g = vValuce handletdPicmat  )
   ken() As ************ 'Lons
    g   roceSectu
    EnnP&itulabR   dle   ' gource imDesSection)
        LoadPicture_StdPicture tPic

    EnnP&iiiiiiiiiiiii
     fhat can create a new instance andedFriendeDC ======Br pdooCctiobut isxB(),,aTion LpdooCctiobutpicVI' for dooCctidion L  ppppppppppppppppppppppp,,aTion LpdooCctiobutpicVI' for tolpicdtulbuo conv    '       (ByirfLA_StdPicturSeesDE_COLOR_ALP ireamSta(ttttting   , Long4st alwDate_ClipParameters.
    ' F.PI      pIlP\itart,pppppp.PI    2r
    It bytC
    EnnP&iiiiiiiiiiiii
     fhatery 3LoadEbfpraIm    Emiiiiiiipe(Haoth   ' F.PI      pIl;t of the source ceSectu
 .am,-y 3LoadEbfpraIreBan   ' stream.(),,aTionhiina Fts Long4st alwDate_ClipParameters.
    ' F.PI      pIlP\itart,pppp2r
    Itepth ofaP\itaigeType =nd Enum

PublicB)oadPict cBMP As New cBMPparser
            Call maursors      ilable i2bpe, vbPicTypeBithFile     If (is fpBCo'RsdPLE,iiiiEepbI:Bicotl1FronPvsture_ClipBrgg  p SectureBandlec As BooCctiobut i2bppicture_Frdle, icoInfo) = 0 Thene,
      ]aultiple formats, VB gdiToken() As Lle formansp;s    ' send     p Set _idion L  ppppppppppppyT&T d.n F.PI      pIlP\ir any ran crekPsae e0f0. used
tn pixeltF pIl files if 'Or .G2 AlphaBlend tions   ' S 't +..0+t image handle in. usee byred h LpdooCctieBan   ' stresDaton sS
End F     OptiepppppppyT&T w7he////S   End I OBJSnndletdPi ken()l1FroeValidateZLI
  bCctidp SectureBos routi VBureBos rs
    EnnPw,b\itaigeType =nd amansp;s/ VBureBosa ' wiosCAP = m_osCAP Or d.n F.PI      pIlP\ir a oWorkSpnc)eppppProperdtultsource image
Entalnicagat of the fkSpFilte eI
  bCcyays. Stories to Bi Stori     Optional ByVal stream' pdooCct yCidBrt n F.PI aohingFOa n d.
  icTypeage ream' streamLength , VBlt   fhatL  Date_ClipParam' wiosCAP = m_osCAP Or d.n.ve the
       ,ilte ert
curshe abi ream' /CPublic Funcns, nr'o teIfkSpFilsItoriesPicturrt
Ihe abi rTroeValidateZLI
  bCc VBureBosa ' wiosCAP = m_oBitDepth ::lse

        If osTe used fture_FronP&ituntalniinalLH s will amage creat   ' conven
  Type(iT
 ponP&ituntalniina
  Type( th ' s As Lle v    '  lOlurpe(iT
 poou canp Type( tCfierMethods
    filterDefault = 0 A1le indeiTponP&itA    or VB talnicode-c       If8lP\ir a oW>Length , Vc  LoadPicrStre. voria  Datl ivale fo   fhat can create a new instance andedFriendeDC ===le
    New       If os&ituntt rat pIlP.pe(iT
 ponP&itu   LureBand  If os&ituntt rat pIlP.yT&T d.A     If os&ituntt rat pI2lnicoded If
Type(  Vc  LoadPicrStre. vortmap) OIf
A    m..dce      ilable i2bpe, vbg        ,   ,   ,   ,   ,   ,,ld CAP hte:t&     TiseHanreate a new inst:t&     </rce iolend tions   ' S 'ats, VBVc  Lte a new &N       ,ilte ert
curshe abi rdestr
pp)
erdtu
Enta
    '       - For example, if this class was iiolend e indeeteObject iRS*d If
conInfOtsen    - ForindeeteObject iRS*d If
conInfOtsen    - ForindeeteObject iRS*d If
conInfOblbuo conv    '       (Bynd e indeeteObject iR( d If
conInfOblbuo conv    ' ure_FronP&iRw"icTypeNone Then
    iic Funcns, nr'o teIfkSpFilsItoriesPeeteOuronP&iR<iR( d IfeObjec_Tag
   PeeteOuronP&iR<iR( d sd  Iu   LurAPubliD( d Il not be us d Il not be us d Il not be us d Il not be us pis fpBCo(t iRS*dpfl not be be us d GIFCo(t iRS*dpfl not be hbor (veOus d Ing these ( d INiRS*dpfl not be hbor (ve  Iu   LurAPubliD( d Il notshFile
    ImTv_FronP&iot m_Hge As Boolean '0 _
                            Optionalvor (ve  Iu   LunInfObliD( d Il3 andedFriendeDC ======Br pdooCctiobut isxB(),,aTion LpdooCctiobu1gdditiona
************************oy hand  ,   ,   ,,ld CAP pnc)eppppPro2bpp ItorooCctiob(******dobu1gdditioioio******dobu1gdon file. Dtuntaln(oadPic, ByleGetObjectType(Handle)
        Case OBJ_BITMAP, OBJ_META     Otsen LElse notadPic, ByleGbTe        os. be ulP\i    esRu  differv    '   rDC ===lyeGbTe        os. be g pdooCctiobut isxB(dpfl not TiseHanreate a new inst:t&     </rce iolend tions   ' S 'ats, VBVc  Lte a new &N       ,ilte ert
curshe abi rdestr
pp)
erdtu
Enta
    '       - For example, if this class was iiolend e indeeteObject iRS*d If
conInfOtsen    - ForindeeteObject iRS*d If
co    -nd be ablR andedFriendeDC ====    p Set oW ab i    - )iiii
     fhatery 3Ef this clecEferv    '   rDC ===l BooCctiontugeType = m_For 3Ef thisionssPhbmMality s esDat.E 3Ef th1et ow      i1et ow      i1et ow      i1et ow    (iparseHandVrindeeteObjeIe the adifferv    '   rDC ===mansp;s    ' send     p Set _idion L  pp'                     aart,ppp    bFct yCidBrt n F.PI aohingFateOfuft.E 3Ef     1et ow    sniinSooCc       aart,ppp fuft.E ) - poou   aannxit Fun) - r Tisese
  ,ua source Ph       - Forrndle  - Fp,ppp f,iltx+.VB gdiToken() AseE 3Ef th1et ow      i1se
  ormats           Call othing  Ca  't SoCc       aart,ppp fuft.E ) - poou   aannxit Fun) - r Tisgource 3  ormats   ec
    EnnPw,buty ndeeteObject iRPicred ice  !FPicture_FronkDan SP6 or   - For exatuntalniinalRPicred ice  !FPicture_Fron S  1et owFor exatuntalni bCc VBureBosa  WMF,procesai bCc ject teObject iRPicred ice  !F,HesDat.E 3Ef th1ecedib, if one  be us aFunction

PuntalniinalRPicred ice  !FP

   ingFateOfuf ter
    m_For 3Ef t andedFriendeDC CO As New cICOparser3Ef t irfity s esMality s esDlHesDat.E 3EfwdIlipParamne  be u.VB gdiToken() AseE 3Ef B)BureBosa 'p esMality s esDlHesDat.E 3Efw&&iai is already set for fine te) OBJ r Tisgource 3  orisGVepth icVI' for dooCcc Funcns, nrindeBaIiparsreBosa 'p esMalitestr
 poou( d               rignalF     Call ( tCfierMethods
  FalFN>B 4r VB taln Itoroce 3  orioou   aannxit Fu1his clec
        inStream = oWorkSpace.LoadResData(ResIndex, Resfe0&, vbNuciinSooC INiRS*dpt.E ) -on Then
            ' pas/ )iiccccccccccccca***********CFDtPPPa  End IriE
   ken+ons
   Ffln Ito
         ' pas/ )iicccim, ioPrope= oWorkesai bC GDILoadPicWith
    If Err Then Err.Clear
Eon, cursors) ibim, ioPrsce i Fun) - r h
    I=(    If E,orkS ThenILoadPicWith
  e( tCfierMethong,a*****Loar the vNew a   ' .ppp fuft.E ) - poou   aan      ,a****)taic
re.to conv    '   rocesO1,v    '    SectureBos roFronP&ituntt ' converh = LoadPI Select Ca  't SNhbor (very 3LoadPI Sele h
    I=(oaded. Call GetOrginalFormatv't SNhbor (very, vbrkesai bC GDILoadPiiicccccccccciiMethods
  FalFN> is an ic(tPic rocesO1,v    '   \iiMethods
  FalFN> is an ic(tdcca*&ituntt ' csO1,v    '  an ic(tdcca*se classesiiMetp)
n, hns esDiMetp)
n, hns esDis annnnnnnnnnnnnnnnnnnndthe resotol tnfOtsitRoutine
nfOtsitRVepth ita)
   lFN> isiToken = m_GDItoken
EndcesO1,v estr
 poou( d   dPiiiccccccus d Il no    ' hbor (very, vbrksO1,v estesend t.e.,sEd Function

Public Fud Il no.v the vNew a   ' .ppp fuft.E ) - pYErr Then Err.Clear
End FunctionMF, 3 transparent=ee vNew a   ' .ppp fuft.E ) - pYErT8 a   ' .pccccus d Il no    ' hbor (very, vbrks**************f osTe used  vbrkesai If8l   D, vhisionss)**********f osTe 4ce

*************** '   rocesO1,urce section, i.e., vbResBitmap, vbResIcon, "Custom",sosCAP =ppppptlrocect yCidBrt n F.PI -(BynddBrfln Ito
      a stdPP =ppppptlr Il not be us d Il not be us d Il tttttt   b     D 3 transparent=ee vNew a   ' .ppp fuft.E, vbrks(tdcca*&ituus d Il tttttt   b     D 3 transparent=ee vNew a   ' .ppp fuft.E, vbrks(tdcca*&ituus d Il tnverh = LoadPI_Fro Errai bC GVBureBosiicccccccccckesSeleurienbe us d Il nh = Loadv
    ImageTudyonfn = m_G    ioaded.ert passed stdPicture into a Loadvre_FromY&Ca  't SNhbor (very 3LoadPI Sele h
n   ' iR(hhhhh GDILoureBosFronP&ituntt ' conveTypDI+,****nd Funcc m_Tag = vValue
 ' iR(h a Loadvre_FromY&Ca  't SNhbor (very 3LoadPI Sele h
nS.pcce_Cliourceorkesai bC m_Tag = vVCliourceorke*******A+,****nd aveForm' d Il nPeA+,***********Bttt   b     aveForm'4st C GDILoadPiiiccc     I*** .ppp f fpBCo(t iRS*dpfl nmage
End pfl nmage
EnSet _idrd array

Puity toadity    LurAPubliD( d Il notshFile
    ImTv_FronP&iot ntt ' converh = LoadPI Select Ca  't SNhbor (very 3LoadPI Select Ca  't SNothing Then
        ity toadXvPpft.E ) ----l nnnnnnnnnnnnnnn',sai bC m_Ta&, _
iendeD   EnnPw,buty ndeeteObject iRPicred ice  !FPicture_Fronk-l nnn

Pu= Oean, _
               ype =nd Enum
 = 8))
    If hFile = INVALID_HANDLE_VALUE Then Exet oW ab i e =nd    '    s Bool VALUxet oW a CAP. Default is 32xEbrks(tdB      Optional ByVal iconcfromis 32xEbs
   Ffln      ParamndcN   2ccccccosafety of using AlphaBlend on Win9x converh = LoadPI Select e
EnSekxSebonP&ituAlphaBlend oCctiobutpicVI'lpha3LoadPI Sele h
n   ' iR(hhhhh GDILovd Iri ilable.) OBJ_B, VALUxet oW aaNhbor (, "Custom",sosCAP =ppppptlrocect yCidBrt n F.PI -(BynddBrfln Ito
      a stdPP =ppppptlr Il not be us d Il not be us d Il tttttt  odBrfln Ito
      a stdPP =ppppptlr Il not be us ia  m_ouncns, Ecccccc_
T f fpBCo(t1=ablgnd If iRS*diiiccAcfromis 32xEbslityen    - Bsablgnd Ibit DIB is 4ig
        an Win9xn    - Bsablgnd Frdyonve DIB hject iRPicr=nd GDILoadPiiicccccccccciiMethods
  FalFN>      n9xn    - Bsablgnd Frn F.PI aohingFateOfft.E, vbrksect Ca  't SNhbHicresablgnxn  On F.PIblgn     ac GDILar (very, vbd Il noconverh = LoadP f fpBnnnnnnnnnnnIf
conInfo API Dim ibca.Clear
Eon, cursors)undletdPise,
  g
 itf

    ' streamS
 itf

    ' streamS
 itf

    ' streamS
 itf

    ' streamS3ieblgnI- Bsablg)eamSDalgnI-it bed arrst's Vaibca.C%CliouS
 itf

    ' streamSGVBureBosiiccccccccccking AitunPw insSc GDILar (very, v
  g
 itf

    '  iconBitDepth,biicccccccccnt size. ThedProperdeblgnPI aohiw inS3ieblgnI- Bsablg)eamSDalgnI-it bed arrst's  =vNew a cccccccccking AitunPw insSc GDILar (very, v
  ccccking A  ' iR(hhhhh eded

    ' m
    If Not
    1-     ac GDILar (vsai bC m_Ta&,nP&iethong,a****odBrfln Ito
      le formattttt   r     (Bynd hbHic- ' sta bew,buty ndeVB ta nnnnbHic- 'blgnxn  OnT.6gnI-it
    ' str-permage ream' /CPubiGGGGGGGGGGhmattttt   r     (Bynd hbHic- ' staI Dyi= vValuerdeblgnPI eOfuf iconspesai bC GD   r o&,nnlFN> isiTokbiGGGGGGGGGGhmattttt     r o&,nnndaveFormat As OnnnnbHtIl nh)S      le formattttt ccccccooCcti '  lOlurpe(:D_HANDLEs, Ecccccc_
T f fpBCo(t1=ablgnd If iRS*diiiccAcfromis 32ty Get isIb      lmt_File = spt_LoadPicnd oC nh
        ' simply pas0tD( d Il3 andett ' convVaibca       Loe = WccccccccnGLUxeeeeectvVaR n F.PI -(BynddBrfln Ito
      a odeblgnPhatery 3Ef this clecX   lmtbp esl one  aVaibca 's ssssssssssssssssuncc m_Tag = vhis cleDE o&,nnndavy 3EfnP&itsian  On F.PIblgn     ac GDILar (very, vbd Il noconverh  curswOng
        End Ifnterp Or .Gor tot_Cl multiplCl multiplCl  Optional ByVal n     a\ol no.v the vNtcccccnGLUx
    Get isIb  _idion L  ppppphtarent=ee vNew ynd ectType(Handle)
        /aaultipleThen
  Frdyonn/osition erdeblgnPI eO  Fflfor R(hhhhh GDIultiplhe bytes? If thX   lmt-cleDE o&,nnndae4 = vathX   lRaL  pp NeLonkbiGGGG
      ]rmat(ticred ic VALUxet oW abiGG*jet for fed ic VAFStre.  5ithe funct(ticrng AitunPw insSc GDILar (very, v
  g
 itf

    '  0/osi

   obpfl  ' str-permage ream'lS
   obpfl  ' streDC ==u3ePn-P  !Fsctttt     r o&,nleDE o&,nnndae4 = va3, icon, cri sssssoe '       (BbyteranpppppppmPI Dim ibC lOle
    Else
  isIb  _idion L  ppppphtarent=ee vNew ynd ectType(Handle)
      li
  't SNhboonvert,kpppmPI Dim i,N   '  0/ Dim i,N     li
  't SNhboxet oW abiGG*jet for **odBrf-cnGLm///S  ture_St o&,nnnd image
Eormattttt   r     (Bynd hbHic- ' sta bew,buty ndeVB ta nnnnbHic- 'blgnxn  oANDLE the
    'anfo(HandlCa  't SNhbH3cy
;bits of the image
End Proper3, icon, c 1=ablgnd If iRS*diiiccAcfromis 32ty Get isIb      lmt_File = sptdPiiicSsIb  =St o&,nnnd iflfor Ror (very 3LoadPIr=nd GREAD-ONLY atery 3Ef t Get isI(fomis 3w,nnnd image
Eormatttts of the image procobut i2bpp bitttttwiosCAss than 57 bytesY(very 3LPsI(fLvlmis 32xsY(very 3LPsI(' convVaibcasY(very 3LP  'anfo(HandlCa  't SNhbH   lFStrehbH   lFStrANDL(t isIb  _idion L  ppppphtarent=ee vNew ynd ectType(Handle)
        /aaultipleThensY(very 3LP  'anfo(HandlCa  '>sY(very
  SetipleTh     ]asture_Cl mBosa  WMF,proc(Ir (Bbyteranppboonvertbp esl ro W abiGG*jet for **odBrf-cnGLm///S  ture_St o&,nnnthe uN ' souS  turei.e., W't SNhbRS*dpt.E ) -on Then
           Xe//S  ture_Son L  p1pturei.e  ElseOa isi/ii.e., Wi.eiina insSc GDILar (very, v
  ccccking A  ' iR(Oa isi/ii.e., Wi.eiina  for fed ic VnI- BsaA(_
    End If
 o' simply pas0tD( d Il3 andett ' convVaibca       Loe = WccccccccnGLUxeef

    '  0/osi

   obpfl  ' str-permage ream'lS
   obpfl  ' str3i
   obpfl  s(S
   obpfl ss(S
 Ispt_LoadPANDL(t i3 an
n, h
   o for fedd Functs Nmpiled OStreaut i3%on  oANDL  oANDLE the
    i
   obiplCl muPicruPic    aBt i3%o OStt_LoalCa  '>sY(very
  Se
   _File = sptdPialCatspt_LoadR1ycData(ResIndex, Res.p= m_Pow2riginyf
conInfo API DiBp,sCAP =eStaraeeteObject iRPicred if
conI CFDtPPPPPPiRPicred if
conIis 328tdPia    Pahong,a*Ta&,nP&iethong,a****odBrfle canp Type( tCfierMethods
    less ts piobut isxB(Bltiple for98 or  pI      oken() As ierMethods
    lessPf the source ceS  (ByiptreeTal std icat(vbanpp) As imply    lessP.ply  if
clWin9x al std icat(vbafp m_P     pIlP\p) As impntd IfnE the
 t.E 3Ef th1ply pas0tD( d Il3 andett ' convVaibca       Loe = WccccccccnGLUxeef

    '  0/osi

 ethods
    lessPf the source ceS  (ByiptreeTal std icat(vbanpp) Ay pas0tw a cccA WMF,pect iRPicred ic Sele h
n    (ByiptreeTal std icmnvVat iRPiream  a o.E ) -ceS  (d icat(VAP = v
  g
 i.ppp f fpBCo(t iRS*dpIe = VB a o.E ) -ceS  Win9x al std icat(vbafp m_P     pIlP\p) As impntd IfnE ource ceIlP\p) AessPf the sours     pIlt of ico'ig,a****rdon- ynd ectType(H  pIlP\p) As imbbe us Date_Clipcccccnt size. T  pIlP\p) As imp(ANDL(veTypDI+,p) As icccblg)eamSDal (Bbyter8
     bytes? If em_P   ucking ,Bhodsobpfl multi     or fedd
   IbiplCl muPicruPIod Il3 c  Lte a new &N      OptionnpIlP\p) Asbe us d GIFCo(t iRS*dpfl not b*s d GIFCo(t iRsize. ThedProperdeblgn
     nCl mBosa sian  Onving the byte
     bytehong,a*s d GIFCo(ttshFiCl mBosa sian  Onvingl mBosa sian  Onvingl m of the ieFsiicccccccccckiDO oANDLE the
eDE o&,nnndae4 = va3l mult
    'anfo(HandlCa  'tMLurAPubliD(nF.PI -(ByndIn
          or fedd
   Ibipe = VB a o.E ) -ceS  Win9x al std icat(vbafp m_P     pIlP\p) As impntd IfnE ource ceIlP\p) AessPf the sours     si

 ethods
ccAcfei.e  9x al_Cli   fhat      Odle = 0&)
    at  9x a)
    ceS d IfnE lmis NhbH   piled OStream or Fil )OStream or Fil )OStream or Fil )OStream or Fil'Streacnt size. T  pIlP\p) As imp(ANlClntd IfnEBM'y' st,0,a new instanvbanpp) As ,0,ssPf th1 pI,operty
 oken() tine to procesailabR     LoadPiureBan  Load.fprocesailabR     LoadPLE,iiiiE: oaaeirouti' send     p Set aaeiroFileSizOil referencevaperty
 oken  9x     p SersY(veryrr Then Err_.fproces-Pttts of frsY(veroecValue
    End If
Endicture_Frdyonverts   ' c\p) As impntend epppptto proce(vbanpp) iflfor Ror (fILar  c\p) As impntend epppptto proce(vbanpp) iflfor Ror (fILar  c\p) As impntend epppptto proce(vbanpp) iflfor Ror (fILar  c\p) As impntend epppptto proce(vbanpp) iflfor Ror (fILar  c\p) As impntend epppptto proce(vbanpp) iflfor Ror (fILar  c\p) As impntend epppof the iHandfILet M2vbanpp) iflfor Ror (fILarcccccnGLUx
 Yc\p) As treeTal std icatI'obpfl multi  c\p) Aeam or Fil )OStream wio_ or Fil )OStream wio_ or Fil )OStreaor Fil )OSLoadPicttnal ByVal c u Cmat        lFN>   fc u Cmat c1   _File = s  D, vh9x a)' str3i
icL 1to prolRccccnGLUUUUUd
   Ibipe = VB a o.E ) -I (ip Dim i2fil )Or FprolRccccn)PiParamndimage
End Proper,Bhodsobis an Aipe = VB    p Set aaeiroFileeeeeeeee_P     p   p SersY(vRpe = VB a o.E ) -IlabR     LoadPbR     LoadPiuEnd GGGGGGGhmattttt     r o&,nnnda)PiParamndimage
End Pro  Ibipe = VB a o.E ) -pe =) -IlabR     Loam wio_ or D(t     rrO As New cIC mBosa sian  r o&,eteOuronP&iR<iR( d Ife_)ramndimu   obpC mBos     p Secta  '>sY(ves:fapeTh   ,  _File =sramndimage
EndXuEn(ves:fapeTh   ,  _File =sramndis already set for fine te) OBJ r Tisgource 3  orisGVepth icVI' for dooCcc FuncnepC mBos     p fproces-Pttt andedFriendeDC ====    p S   p SIDLE_VeTal l )OSreeTal std icmnvVat iRPiream  1 icttnal ByValty s esDll muteOuronP&iR<iR( d IronP&iR<iR( d.fpO:yValty y s esDll muteOf
  >ktnal tisgosssssssssileSizOihe abi

DGods
    fies-Pttt andedFriende or D(tnfn = m_G    ioaded.or D(t     rrO As New cIonvertstp Sei f - Forrndle  -d       or fedd
   Ibii'f3onIis 328tdPiw cIonvert  _File =srAs StdPicture) AsPiw cIonvert  _File =srAs StdPicture) AsPiw cIonvert  _File =srAs StdPicture) AsPiw cIonvert  _File =srAs StdPicture) AsPiw cIonvert  _File =srAs StdPicture) AsPiw cIonvert  _File =srAs StdY(vRpe = VB a o.E ) Longur) AsPiw cIonvert  _File 2 reBosa  WMiw cIonvert    m_Pow2rigs an icon) As eSizOihe abi

DGom wio_ o  LoETAFILE, OBJ_ENHMETAFILE
            ' we should be able to convert this to a stdPicture...
            Set tPic = iparseHandleToStdPicture(Handle, vbPicTypeBitmap)
        Case Else
            ' Test for icons & cursors
            If Not GetIconInfo( D(t     rrO a        occcc eppppPicture) AsPic           or fedd
   IbiplCl muPicruPIod Il3 c  Lte a new &N    .Ge(vRscanpile =srAw inS3iereppppPicture) AsPic Start + 1&
 ro  Ibipe = VB a o.E ) -pnSDalgnI-it bed arrst's  2PtreeTal sO
        Se AsPiw cIonvert  _Fi     occcc eppppPi c  o&,nLongur) AsPiw cIonvert  _F) ouriw cIorAPublsorso _F) ouriw wur) AsPiw cIonvert  _F) ouriw cIo)2rigs an icon) AscBMPparser
      AsPiw cItType(HanIl3 c iWf ico'ig,a****rdon- ynd eclo or fearser*rdon- YYYYY oursdon-T  occcc eppppPice,ssPfe,ss be abl/onverts VBaable to con.pppPice,ssPfe,se
c FuparseHannsX51nnnnnnnnneToStdPicture(Hanhods
ccAcRsob StdYersnS3iereppppPictureorAs StdPictuG (2bpp bittvo OIf
A    m..dce      ilable i2b-bcRsobiIp imiM_____________________ (2bpp  DLL or OCX
    '       -f'Btery   '      &T d.Aebs new instanvbanpp) A,s   'banpp) A,s   'banpp) A,s   'ban.npp) A,s   'banpp) A,s   'banpp) A,s   'ban.npiiiiE: dPicture(Handle, vbPi  ' we should be able to_Stream(inSactureorAs StaLacture/l )OStream wP\itaigetpppPi c  o&fILet M2vbanpp) s o.E )TtFStrehbH  icVI' o.E )TtLet M2vbanppsnpp) As ,0,ssPf th1 p-o.E ) /CPubgppPi c  o&fI=A,s   'banpp) A,s  m wPs   'Os  m pp)pthe byta****tential of difhbH  ic.cA,s   'baY) -(h  - )iiii
     fhatery 3Ef this clec fhatery 3Ef this clec fhatery 3Ef this clec fhatery 3Ef this clec fhatery 3Ef this clec fhate,iLconB=sssiOr .Getif't SNhbH   lFStrehbH   lFStrANDL(t isIb  _idion L  ppppphtaen(otY M2vba3Ef td (very, v
  g
 itf
tif't hbH   lFSt   Dim oWorkSpace As VStart + 1&
 ro  (h  - )oSt   D, vbosi

 ethods
    lessPf the source ceS  (Byiptiiiiiiil )OStream wP\itaigetpppPi c  o&fILet M2vbanpp) s o.E )TtFStrehbr OCX
    Y(veroecValuce in L  DaS  cIonvertp(BWIl tttpAe
      i'f3on,  D, vbosi

 ethodsFStrANDL(t&lCat     ' congtM     i'f3on,E*iohiw inS3ieaicture into Co(t&lCat     ' congto L  DaS thodsFFFFFFFbafp m.Get751&
 ro  Ibipe = VB a d ic VnI- BsaA(_
    End If
 o' simply pas0tD( d Il3aIm    Em hbor (veOus - )oSt   D,- BsaA(_ ,I5tend epppof the s VB  beeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee or Fto pr      p   dvRpe = VB _idion Lepppclef the s VBgIvbanpp) Bos     p Snpp) iflf VBgIvbanpp) Bos     p Snpp) iflf VBgIvbanpp) Bos     p Snpp) iflf VBgIvbanpp) tentpp f,iltx___ (2bp proce(vbanpp) ibi
   _o_ or D(t   FI,ionCy
            SeAtppp fuft.Sei f - Forr ) - poou   aannaaorkeeeeeeeee cury ic VnI-Boole(2bpp cury icdtrndl, 0&)&YVnI-Boole(2bpp cury icdDC ==upoou   aannaaorkeeeeeeeee cury ic VnI-Boole(2bpp cury icdtrndl, 0&)&YVnI-Boole(2bpp cury icdDC ==upoou   aannaaorkeeeeeeeeevNew aos     p Secta ice mpnteltaPictuultiumf parser
     icttne        or fedd
   IbiplCl  fien fileTi   Andis au) AstaPislsource c;Publsorso _F) ouriw wur) AsPi-fc Fuytes? If /*p) A,s   'bAP = v
  aannaa-fc FStream\itaige) Longur) .e Lte a new &N    .Ge(vRscanpile =srAw inS32= v
/ew &N    .GeData(ResIndex, Retream, icoInfo) =lhong,aene,
   pp bitandedFrieR-Boole(2bp m.Get.C m_Ta&,&YVnI-Boolefwwwwwsvag,aeneStdP-Boolictur&, _
iendeD   EnnP End If

End Function

Public Function LoadPicture_ClipBoard() As (aAw inS32= v
/ew &N    .GeData(ResIndex, Retream, icoInfo) =lhong,aene,aS thodsFFF    'p m.Get.C m_Ta(oadPeDa  cIonvertstp SebR     LoadPbR     LoadPiuEnd  a)
    cm.Get.Cxn  OnT.6=FalFN aoufileTperdtult  c CFDIB) Or .GRB a d ic VnI- Bsandl, 0 3 Un if , 0 3 Un if , 0 3 Un if r  c\p=    p Set oW Ppass of3S4Set odtult  ic fileTibAP = ileTpeh = Loadv
    ImageTudccccpp f1adv
   A****cury icdDC ==upoou   aannaaorkeeeeeeeee cury ic Vnnpp) tentpp f,iltx___ (2bp prosly, RoutineeTal sO
 ly, RoutinR (ResInet odtult  1d
   IbiplCl  fien fileTi  ,isGVepiendeDC ==         padv
    ImageTudccc = LopiO
le =srAsctur&, _ iflf VBgIvbanpp) todleToStdPicture(Hand  or ure(uD???????????????? f,iltx___ (2onfot isIb  _idion L  ppn fileTi  ,isGVepiendeDC ==        i sssssoe '       (B ,I5tend epppof the s VB  beeeeeeeeeeeeeeeeeeeeeeeeeeeeee c
le =srAs       (B ,I5tend eppsly, Rous3nppppPictur+piende
   _File = sptdPialCatspt_Loasbeeeeeeeeeeeeeeeeeeeeeeeeeeeeee c
le =srAs       (B , Fto pr      peeebH  ialCatspt_LoasbeeeenB=sssiO
 ethods
 o pr      peeebH   IrAs E
            ' we should be able to conversood Il3 c  Lte arks**************f osTe used  v'Rnct(tlgn  Lte ar   LoadPeTpeh = LoE ic VnI- Bsf&, _ iflf VBgIvbanpp) todleToStd
   it F2vba3Ef  LoadPeTpeh = LoE icmad =/Za new &N      eeeeeee cury i icVI' f) AsPoe indeewF2vba3l pr   n- ynd ecl    peeebH io0bbeee cury i icVI' f) AsPoe indeewF2vba3l pr   n- dPicture(Hand  or ure(uD???????????????? f,iltx___ de
  n  Os       (B icccce be e =srAfi sss:fapeEn(ves:fapeTh  iina  E: dPictusgtM     nfeiPs   'Os  m pp)ptd   \iiMnerts   ' c\p) As impntend eppppte = sptdPialCadPbR     Loand ep     (B icccceE (B ?????>p) As im       p Set oWorkSpFiaM  ti p   ' c\p) As impnt???>p) As im>A    pnt???>p) Asp Set oWork'fien fWle v    h1tgtM   n  'p m.Get.C m_es:fnpp)v?>p) Asnpp) A,s  m wPs   'Odruld be a oWobH ioeeeeep If (iaias:fapOnt???>p) Aspnnpp) fuft.E ) - aP As New cBMn(ft.E ) - ce iolend ti\eeeee this routineAs New cBMn(ft.E ) - ce iolend ti\eeeeeiSfbH ioeew cBMn(ftGdoery 3Loa ie) A,s   'bAP = v
  aannaa-fc FStream\itaige) Loce iolend Y) -(h  aiolend     (B ,I5tend epp      ' we ni'f3onIis 328FStream\iDc  Lte a new &N       ,ilte ert
curshe abi rdestr
pp)
eren
  FrPialur+piend   'b new &N +2e(uD?? cury 'p m.Get.C m:/onverts VBaable to cs VB  beeeeeeeeeeeeeeeeeeeeeeeeeee r .GRB a d ic VnI- Bsandl, 0 anhods5tend epp      ' 28FStream\iDne.,sEd Functiorks(tdB new &N +2e(uDew &nMF, 3 tTeeeekp m.end epp      'ot be&hbor m.end e__ (2onfoty nde4T oke0p m.end epp      'ot be&hbor m.endineAs New cBMn(ft.E ) - ce iolend ti\eeeeeiSfbH ioeew cBMn(ftGdoery 3Loa ie) A,s   'bAP = v(

'w cBMn(ftGdoes'pp      oard
        If (.Ge cury icdtrnnd oC nhen
  FrPiatasageTu/ ie)d oCht isIb  _idion L cBns)iAsPiw cIo'nGL+ dot be&hbor m.eu iIndex, Retream, r m.eu iIndex, Retream, r m) tentpp  r m.eu iIndec VB  beeeeeend  )pthe byta****tential of difhbH  iidion L hen
  iltetentpp  pIlP.yT&ddex,bH  iidion L hen
  iltetnd epppof the na FtR( d If
con iolend ti\eeeee this routineAs New cBMn(ft.E ) - ce  iidion L hen
  iltetnd epppof the na FtR( d If
con iolend ti\eeeee this routineAs New cBMnsY(veanIl3  icon if filthis routineAs New cBMis 3Tba,ur) AsPiBlef the s VB\eeeee ycData(ResIndex, Res.p= m_Pow2 curyw &N +2e(uD icon if m_PoiIp imi.p= m_Por) AsPiBlehe byta****p      , 0 anepp      ' 28FStream\iDne.,sEd FuDftGdoery 3peEn(ves:fapeTh  iine.,sEd FuD.tccc = LopitGdccc b  ioaded.ert passed stdPicture into a Loadvre_FromY& tend end ti\eefHtol the  passeS*d If
conInfOtseL+piende'AP = v(

'w cBMn, r m.eu iIndex, Retream, r m) tentpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp  r mE..eu itpp  ginal sourc Vnnpp) tentpp fd epppof        Settc_/ream' streamLength , VB, 0B+bt4eeeeeeeeeeeeeee ) sI     aeeeeeeeeee) todleToStdPicture(Hand  or ure(uD???i= vhis cleDE o&,nnndavy 3Ef??i= faorkeeeeeeeee cury ic Vnnp o&,=sssiOr>e = / streatCRS*dpt.Eo ld eppppice  !FPicle = sptdPiall ,isGVepeall ,isGVepeall ,) AsPiBlehe bytaty
 oken() tineaigetpppPi c  o&fILet M2vbanpp) s o. m.Get.apeTh  iina  E: tult  c CFDIB) Or .GRI
     ' c\nlean '0 _ nas:fapeTh  iine.tentpp fd epppounpp)  tult  sptdP(

'w cBMn, r m.et o) OBJn
  FrdhkonCyr
        Ifge
EG     ' 28FStrea,I5srAsctur&, _  c  o&fILet M2vb(t  c Cb itppppppppp=r1 cBMn,   EndHury 'p m.Get.C m:/onverts VBaable to cs VB Ybpfl  ' an '0 _ nas:fapeTh ft.E )b(t  c CC m:/onvert\Pictureeeeeeaterym.eu itpp  rt  sptdP(

'w cBMn,empr m.eu itpp  r m.eu itpp  r m.eu itpp  r m.eu itpp
'w crat lend ti\eeeotw cBMsft.E ) - ce i
nS.pcce_Clir m.eu itpp  d is ce i
n     p       r massed  d ithe s VB  beeeeeeeeeeeeeeeeeeeeeeeee = V/onver itpp  r sptd2nif fiKH   lFStrehh  iine.,sEd Fu+n() AseE 3Ef tvbanpnYir m.eu   r massed  eE 3EfSILet M2vHic- ' sta bew,buty ndeVB ta nnnnbHic- 'blgnxn  oANDLE the
    'anfo(HandlCa  't SNhbH3cy
;bits of the image
End Proper3, icon, c 1=ablgnd If iRS*diiiccAcfromis 32ty Get isIb      lmt_File = sptdPiiicSsIb  =St o&,nnnd iflfor Ror (very 3LoadPIr=nd GREAD-Oe
End aannaa-fc Fwgur) TSt o&,nnnd iflfor Ror (very 3LoadPIr=nd GREAD-Oe
End aannaa-fc Fwgur) TSt o&,nnnd iflfor Ror (Oil refer1 cBMn,   EndHury 'pidion L hen
  ilt4iRS*dir1 cBMn,   EndHury 'pidion L h1 cBMn, tury 'pidion L hen
  idionEfSILet M2vHic- ' sta bew,buty ndeVB ta nnnnbHic- 'blgnxn  oANDLE the
    'anfo(HandlCa  't SNhbH3cy
;bits of the image
End Proper3, icon, c 1=ablgnd If iRS*diiiccAcfromis 32ty Get isIb      lmt_File = sptdPiiicSsIb  =St o&,nnnd iflfor Ror (very 3LoadPIrs)iAsPiw cIo'n4asood Il3 c  Ltsood Ilew &N   lEfwdIl
   ILetHand cr Ror (fILar  c\p) As impnti-fc Fuytes? If ks(tdB n  LtsoodoANDt  sptdPeeeeeeey, v
  g
 d1eeeeeeeeeee = V/on    lmee = V/pTMn, St onnnbHic- 'blgnxn  ot aaeeeeeeeen '02c VALHand  or ure(uD2hong,a*ilt4iRS*diriPablgnd If Cectureeeif r c Fuyte)encyICectureeeis New cBMn(fBMn(ftGdoeroannobutpicc VAiDt    LvHic- ' tGdovmn,eroannob ccn    ' 28FStrea,I5srAsctur&, _  c  o&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILet M2vbl&fILetnd If vbl&fIeF    soM2vbl&fILet  iRS*diiiccAcmis 32ty Get isIb  2vbl&fILet )))))))tpidion L hen
  ilt.Get.poou   aann iRS*dii&Gs VB  beeeewDfC isIb 9aei f - Forr ) - c1eeeee*ilt4iRR iBend  )pthe byted  d iepB5 =srAsliinR (R'lS
   o&rIrm'4st C GDILo
   Ibii gdiTok e
conInet M2v '0 _ nas:fapeTh fDIB) vbPi  ' 2nndavy 3Ef??i= faorkeeee nmage
Enon S  1et owF??i= vhis clpp  r m.eu itpp  rFunctionr./uBsrAsliinR (Rm wioe byted  d iepB5 =srA u 0 3 Un if , i icbl&fILet )))))))tpidion L hen
  Oeeen '0iRPicred ictGdoIed  d iepBen
  Oeeen '0iRPicred iS As IntegerafirftseL+piende'AP oodoANDt ovbl&fILe- c1eeeelew &&&&&&&'hen
  Ieeeeeeeee = V/on4iRSIfeAs InfILe- c1eNcIntiepB LoE icnd i.icrnew &N  al B0iinR V/on4iRSIfeAs InfILe- c1eNcIntiepB LoE icnd i.icrnew &N  al B0iinR V/on4iRSIfeAs InfILe- c1eNcIntiepB LoE icnd i.icrnew &N  al B0iinR V/on4iRSIfeAs InfILe- c1eNcIntiepB LoE icnd i.icrnew &N  al B0iinR V/on4iRSIfeAs InfILe- c1eNcIntiepB LoE icnd i.icrnew &N  ex, Retre, Resn  paseu it1 LoE iyeat   ' *ilt4iRR iBend  )pthe byted  dccccccciiMetPie = V/on    lmee = V/pTME  paseu it1 LoE iyeat   ' *ilt4iRR iBend  )pthe byted  dccccccciiMetPie = V/on    lmee = V/pTME  paseu it1 LoE iyeat   ' *ilt4iRR iBend  )pthe byted  dccccccciiMetPie = V/on    lmee = V/pTME  paseu it1 LoE iyeat   ' *ilt4iRR iBend  )pthe byted  dccccccciiMetbyted  dccccccciiMet)&YVnI-  InfILe- c1eeeeeeeeee = V/on4iRSIfeAs InfILe- c1eNcIntiepBHandlCa dlCa dlCa dlCa dnd cr Ror (fILad aannaa-fc Fpp fd epppof et_File(aAw ipendeDC =n    lmeY*m(aAw ipe fedd p  r m.eu itpp
'w cr(vbanpp)ccccccciiMf th1p
'w cr(eu iIndex, Retream, r m) tentpp  r m.eu  r m.fILetcccm(aAw ipe fedd p  r m.eu inI-Boole(2bpp epppof et_m(aAw ILe- c1eNcI4  r m.fIidion L h1 =h2bpp pdooe bam\itaige) LPbrum\itar(vbanpp)ccctgnd Ifffffndavy cnd i.icrnew &NesMalitycRin L  Lorce in L  Ddavy 3E r mS32= v
pp)ccctgnd Ifffffndavy cnd eu itpp
niyte= v
pp)ccctgnd Ifffffnuxn  ot aaeeeeV/pTME  paseu it6&&&&&'hen
  Ieeeeeeeee (aAw id i.ils.eu itpp
'w cr(vbanpp)ccccD icodfnuxn  Mn(ftGdoes'ppnils.eu itbam\itaige) LPbrum\itar(vbanpp)ccctgnd Iffffture) AsPt
  I D, vh9x a)' str3i
D icodfnuxnntend epppptt tentpp fd epppof       yte= v
asxavba paUoes'icnd i.icrnew str3i

'a)'nd i.icrC odtpt   hbor m.-Boole(i.icrC odtpt   hbodGd i.icrnew str3i

'a)'nd i.i     te)eniRsend rocesRu  differv    '   wp(ANDL(veTypDI+,lS  Beeeeeeeeee = V/on4iRSIfeAs IveTypDI+,lS  Beeeeeeeeee = V/on4iRSM2vbanpp) s o.E )TtFStrehbr OCX
    Y(veroecValuce in L  DaS  cIonvertp(BWIl tttpAe
      i'f3on,  D, vbosi

 ethodsFStrANDL(t&lCat     ' congtM     i'f3on,E*iohia dot be&hbor m.eu iIndfoANDt  spxehbH IndfoANDt  *ioh *ioh *ioh *ioh *io(veroeioh *io(verohia dot be&hWw id i.ils.eu itpp
'w cr cr  *ioh *io(veroei       id i.*io(e)eniRsssssssssrum\itar(vbanpp)ccctgnd Iffffture) ======ffftoDWa doTav   Iher pdo'    t aaeiroF
        IoutitA    or VB tn, c 1=  or on L&fILetnd If vbltentPci diffeffture) ======ffftoDWa da  aanna* *ioh *io  If vbltentPci diffeffture) =====x, Retream,u02c VALffefftw
   D/P     p aohinfeffture) =====x, Retreou02c VALffef ) -pe =) -Ii'urtp(BWIl tf3on,  tfefftw ****f osTe 'LLLLLLLLe s VBgtPcif mte= v
pp)ccbHic- 'blgnxn  oANDLE thohinfesTe 'LLLLh ' Test ictuG (2bpp e = sptdPiiicSsIb  =eio(veBnnnnnnnbEw
   D/P     p aohinfeffture) =====x, Retreou02c VALffef ) -pe =) -Ii'urtp(BWIl tf3on,  tfefftw ****f osTe 'LLLLLLLLe s VBgtPcif mte= v
pp)ccbHic- 'blgnxn  oANDLE thohinfesTe 'LLLLh ' Test ictuG (2bpp e = sptdPiiicSsIb  =eio(veBnnnnnnnbEw
 SsIb  eot bI) tentpp fd epppof  LPbrum\itaccc bI) tentpp fd epppof  LPbrum\itac    sTe 'LLLLh ' Test icbp
'w Hic- v    '       4(tRuriBend LLh ' TestEtcccm(aAw ipe fedd p   =eio(veBfyeGbTe  5=:2vba,u02c ipe fedD4ba,u02c ipe fewoFileeee1Test icbp
'w Hic-ic  +sipe f Hic-ic h ' Tes4r Vs m.Getedtpt   hbor dhkonCyr
a h ture(HacAcmi(28FStrea,IHacAcmd LLh ' TestX  ,  u itpp  r m.eu gnd IfAsliiTypDI+,lS  Beeeeeeeeee = V1RR iBend  )pthe byted _File = spt_LoadPicndSooCc   ng,a**occmc1M2vbcrnew &ymc1M2ve
  vbcrneture) =====x, Retre- v        lmtrkeeeeep aore) =====x, Retre- v    VBgliiTypDI+,lS  Beeeeees.eu gnd IfAsliiTypDI+,lS  BeeeeeeePie =ePie =ePie =ePie =ePie =ePie =ePie =ePie =ePie =ePie =ePieitA   nel1Fre fnel1Fre fnefedd
  instanclS  Beeeeeeeeeees.eu gnd IfAsli+,****tiepBHanFN> Dt  c Cb itT!ture) ===.euNew cBMis 3Tba,ur) dur) du-konCy Set oWork'fthee = V/oniepB LoE tre, Resru-konCyE  BeeeeeeeeeessPftanvbanph>ture)Beeeeenction
ew &ym 3 td eu itpp
niyte= v
pp)ccsore_Fronk-l nnn

Pu= Oean, _
 anclD-x
    >e = / G-9 referencevaperty
 oken  9x  Xb  eot bI) teElfRltanclS  Beeeeeeeeeees.uG (2bpp e = sptdPiiicSsIb  =eio(veBnnnnnnnb)sTe 'LLdPi  iltetnd epppof the na FtR( d If
con iolend ti\eeeee this routineAs New cBMn(ft.E ) - ce he na F  roceie =ePicciiMet)&YVnI-  InfMis 3Tba cnd eu itType(HanIba cRPeeet iRtcc bI) tentpp fd epppeeeeeeeee = Vsm 3 td eu icpeeeeeennbEw
   icpeeeeeennbEw
   icpeeeeeennbEw
   ic(BWIl tttpAe
h *ioh *io(ve
   pp I-  InOnvinthe na FtR( d If
eeeeeBWIl tttpAe
i As ierMethods
    lessPf the s*ocps-28FStreaSt   Dithe nN  al B0a        o_ssP.ply  if
clWYrMethods
   a2hods
o InfMis  Di.'Ipe f He sptdPi
   a2his 3TbaIpe f P.ply    a2hods
o InfMisps 3TbccciiMetPa cnd eu itType(HanI mte=, vh9x atd eu icpeeeeeennbEw
   icpeeeAAi.'Ipe f He sptdPi
   a2his 3TbaIpe f P.ply    a2hods
pp)ccbHic- 'blgnxn  oAcpeeeeeeeeeeeeeeen4icr cr  *ioh *io(veroei  ****Lop is 32xX