SET PROCEDURE TO gdiplus ADDITIVE
DO decl
 
* an instance of gdiplusinit should be created before
* and released after using any of gdi+ objects
PRIVATE gdiplus
gdiplus = CREATEOBJECT("gdiplusinit")
 
= FormToClip(GetFocus())
*= FileToClip("c:\windows\forest.bmp")
* end of main
 
PROCEDURE FormToClip(hwindow)
#DEFINE SRCCOPY  0x00CC0020
    LOCAL hdc, bmp, nWidth, nHeight
    hdc = GetWindowDC(hwindow)
    STORE 0 TO nWidth, nHeight
    = GetWinRect(hwindow, @nWidth, @nHeight)
 
    bmp = CREATEOBJECT("gdibitmap", m.nWidth, m.nHeight)
    WITH bmp
        .graphics.GetDC
        = BitBlt(.graphics.hdc, 0,0, .imgwidth, .imgheight,;
            m.hdc, 0,0, SRCCOPY)
        .graphics.ReleaseDC
    ENDWITH
    = ReleaseDC(m.hwindow, m.hdc)
 
    IF NOT img2clip(bmp)
        ? "Error code:", bmp.errorcode
    ENDIF
 
PROCEDURE FileToClip(cFilename)
    LOCAL img, nResult
    img = CREATEOBJECT("gdiimage", cFilename)
 
    IF NOT img2clip(img)
        ? "Error code:", img.errorcode
    ENDIF
 
FUNCTION img2clip(img)
* sends gdi+ image or bitmap object to the Clipboard
#DEFINE CF_BITMAP  2
    IF img.GetHBITMAP() <> 0
        = OpenClipboard(0)
        = EmptyClipboard()
        = SetClipboardData(CF_BITMAP, img.hbitmap)
        = CloseClipboard()
        = LockClipboardData()
    ENDIF
RETURN (img.errorcode=0)
 
PROCEDURE LockClipboardData
* the shortest way of locking clipboard data I have found;
* otherwise it does not survive beyond the lifetime of its parent gdi+ object
    = OpenClipboard(0)
    LOCAL nIndex, hData
    nIndex = 0
    DO WHILE .T.
        nIndex = EnumClipboardFormats(nIndex)
        IF nIndex = 0
            EXIT
        ELSE
            hData = GetClipboardData(nIndex)
        ENDIF
    ENDDO
    = CloseClipboard()
 
PROCEDURE GetWinRect(hwindow, nWidth, nHeight)
#DEFINE maxDword  0xffffffff
    LOCAL lpRect, nLeft, nTop, nRight, nBottom
    lpRect = REPLI (Chr(0), 16)
    = GetWindowRect (hwindow, @lpRect)
    nRight  = buf2dword(SUBSTR(lpRect, 9,4))
    nBottom = buf2dword(SUBSTR(lpRect, 13,4))
 
    nLeft = buf2dword(SUBSTR(lpRect, 1,4))
    IF nLeft > nRight
        nLeft = nLeft - maxDword
    ENDIF
    nTop = buf2dword(SUBSTR(lpRect, 5,4))
    IF nTop > nBottom
        nTop = nTop - maxDword
    ENDIF
    nWidth = nRight - nLeft
    nHeight = nBottom - nTop
RETURN
 
PROCEDURE decl
    DECLARE INTEGER CloseClipboard IN user32 
    DECLARE INTEGER EmptyClipboard  IN user32 
    DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd 
    DECLARE INTEGER GetClipboardData IN user32 INTEGER uFormat
    DECLARE INTEGER EnumClipboardFormats IN user32 INTEGER wFormat
 
    DECLARE INTEGER SetClipboardData IN user32;
        INTEGER wFormat, INTEGER hMem
 
    DECLARE INTEGER GetFocus IN user32
    DECLARE INTEGER GetWindowDC IN user32 INTEGER hwindow
    DECLARE INTEGER ReleaseDC IN user32 INTEGER hwindow, INTEGER hdc
    DECLARE INTEGER GetWindowRect IN user32 INTEGER hwnd, STRING @lpRect 
 
    DECLARE INTEGER BitBlt IN gdi32;
        INTEGER hDestDC, INTEGER x, INTEGER y,;
        INTEGER nWidth, INTEGER nHeight, INTEGER hSrcDC,;
        INTEGER xSrc, INTEGER ySrc, INTEGER dwRop