gbClientCapture (Discussion) - Printable Version

Code:

'

'-snippet taken from Greg Turgeon post 5 Aug 2007 PowerBASIC forum

' https://forum.powerbasic.com/forum/user-to-user-discussions/powerbasic-for-windows/14801-how-to-make-a-hole?p=205890#post205890



#COMPILE EXE

#DIM ALL

#INCLUDE "WIN32API.INC"



#RESOURCE MANIFEST, 1,      "icons\xptheme_dpiaware.xml"



'--------------------------------------------------------------------------------------------------

'

'--------------------------------------------------------------------------------------------------

FUNCTION PBMAIN&()

    LOCAL hDlg, x, y, lwide, lhigh AS LONG

    DIALOG NEW PIXELS, 0,"", , , 496, 160, %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_CAPTION OR %WS_THICKFRAME,,  TO hDlg

    DIALOG GET CLIENT hDlg TO x, y

    DIALOG SHOW MODAL hDlg, CALL DlgMain&()

END FUNCTION



'--------------------------------------------------------------------------------------------------

'

'--------------------------------------------------------------------------------------------------

CALLBACK FUNCTION DlgMain&()

    STATIC captionHigh AS LONG

    LOCAL hRgn, lwide, lhigh, clientWide, clientHigh AS LONG

    LOCAL rc AS RECT, p() AS POINTL



    SELECT CASE AS LONG CBMSG



        CASE %WM_INITDIALOG

          captionHigh = GetSystemMetrics(%SM_CYCAPTION)

          SetWindowPos CBHNDL, %HWND_TOPMOST, 0, 0, 0, 0, %SWP_NOSIZE OR %SWP_NOMOVE

          DIALOG GET SIZE CBHNDL TO lwide, lhigh

          DIALOG GET CLIENT CBHNDL TO clientWide, clientHigh

          SetRect rc, 10, (lhigh-clientHigh)+captionHigh*2, lwide-10, lhigh-captionHigh

          hRgn = CreateRectRgn(rc.nLeft, rc.nTop, rc.nRight, rc.nBottom)

          CreateHole CBHNDL, hRgn, %TRUE



        CASE %WM_SIZE

            DIALOG GET SIZE CBHNDL TO lwide, lhigh

            DIALOG GET CLIENT CBHNDL TO clientWide, clientHigh

            SetRect rc, 10, (lhigh-clientHigh)+captionHigh*2, lwide-10, lhigh-captionHigh

            hRgn = CreateRectRgn(rc.nLeft, rc.nTop, rc.nRight, rc.nBottom)

            CreateHole CBHNDL, hRgn, %TRUE





    END SELECT

END FUNCTION



'--------------------------------------------------------------------------------------------------

'

'--------------------------------------------------------------------------------------------------

FUNCTION CreateHole&(BYVAL hWnd AS LONG, BYVAL hRGN AS LONG, BYVAL Action AS LONG)

    LOCAL windowRect AS RECT, hWindowRgn, hHoleRgn, hThisRgn AS LONG

    GetWindowRect hWnd, windowRect

    hWindowRgn = CreateRectRgn(0,0,WindowRect.nRight, WindowRect.nBottom)

    hHoleRgn = CreateRectRgn(0,0,0,0)

    IF Action THEN

       hThisRgn = CreateRectRgn (0,0,0,0)

       CombineRgn hThisRgn, hRGN, 0&, %RGN_COPY

    ELSE

       CombineRgn hThisRgn, hRGN, 0&, %RGN_OR

    END IF

    CombineRgn hHoleRgn, hThisRgn, hWindowRgn, %RGN_XOR

    SetWindowRgn hWnd, hHoleRgn, %TRUE

END FUNCTION

Code:

#COMPILE EXE

#DIM ALL

#INCLUDE "WIN32API.INC"

#INCLUDE "gdipDash0713.inc" '<-replace with Jose or you own GDI+ include file.



CALLBACK FUNCTION DlgMain()

    STATIC captionHigh AS LONG

    STATIC keyColor AS LONG

    LOCAL hBrushBg, hBrushKey AS DWORD

    LOCAL lwide, lhigh, clientWide, clientHigh AS LONG

    LOCAL rcWindow AS RECT

    LOCAL rcHoleClient AS RECT

    LOCAL rcClient AS RECT

    LOCAL ps AS PAINTSTRUCT

    LOCAL hDC AS DWORD

    LOCAL frameX, frameY AS LONG





    SELECT CASE AS LONG CB.MSG



        CASE %WM_INITDIALOG

            captionHigh = GetSystemMetrics(%SM_CYCAPTION)

            frameX = GetSystemMetrics(%SM_CXFRAME)

            frameY = GetSystemMetrics(%SM_CYFRAME)

            keyColor = RGB(255, 0, 255) ' <-use Magenta as key color

            SetWindowPos CB.HNDL, %HWND_TOPMOST, 0, 0, 0, 0, %SWP_NOSIZE OR %SWP_NOMOVE

            SetLayeredWindowAttributes CB.HNDL, keyColor, 0, %LWA_COLORKEY

            '-force repaint

            InvalidateRect CB.HNDL, BYVAL %NULL, %TRUE



        CASE %WM_SIZE

            InvalidateRect CB.HNDL, BYVAL %NULL, %TRUE



        CASE %WM_ERASEBKGND

            FUNCTION = 1 :EXIT FUNCTION



         CASE %WM_PAINT

            hDC = BeginPaint(CB.HNDL, ps)

                DIALOG GET SIZE CB.HNDL TO lwide, lhigh

                DIALOG GET CLIENT CB.HNDL TO clientWide, clientHigh

                GetClientRect CB.HNDL, rcClient

                '-calc hole in window coordinates

                ' note: tweak your margins, left +10, right -25, bottom -25 to allow cursor hit testing

                SetRect rcWindow, 10, (lhigh - clientHigh) + captionHigh * 2, lwide - 25, lhigh - captionHigh - 25

                '-convert our hole to client coordinates

                SetRect rcHoleClient, rcWindow.nLeft - frameX, rcWindow.nTop - (captionHigh + frameY), rcWindow.nRight - frameX, rcWindow.nBottom - (captionHigh + frameY)

                '-fill entire client with system dialog background color

                hBrushBg = CreateSolidBrush(GetSysColor(%COLOR_3DFACE))

                FillRect hDC, rcClient, hBrushBg

                DeleteObject hBrushBg

                '-now fill hole with key color for transparency

                hBrushKey = CreateSolidBrush(keyColor)

                FillRect hDC, rcHoleClient, hBrushKey

                DeleteObject hBrushKey

            EndPaint CB.HNDL, ps

            FUNCTION = 0 :EXIT FUNCTION

    END SELECT

END FUNCTION



'--------------------------------------------------------------------------------------------------

'

'--------------------------------------------------------------------------------------------------

FUNCTION PBMAIN() AS LONG

    LOCAL hDlg AS LONG



    LOCAL token AS DWORD

    '-start GDI+

    IF StartGDIplus(BYREF token) THEN

        MSGBOX "Failed to start GDI+", , "Error"

        EXIT FUNCTION

    END IF



    DIALOG NEW PIXELS, 0, "Square Hole Demo", , , 496, 160, %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_CAPTION OR %WS_THICKFRAME, %WS_EX_LAYERED TO hDlg

    DIALOG SHOW MODAL hDlg, CALL DlgMain



    '-stop GDI+

    StopGDIplus token

END FUNCTION