TiledBkGrdCCBDemo2

This is Demo 2 to Accompany [[Drawing a Tiled Background with CreateCompatibleBitmap]]

[[code format="vbnet"]]
' Demo2: Transferring the Image with BitBlt
Nomainwin
WindowWidth    Nomainwin
    WindowWidth = 600
WindowHeight
    WindowHeight = 400
Graphicbox

    Graphicbox #w.g1, 10, 10, 102, 102
Statictext
    Statictext #w.st1a, "Image Source", 8, 120, 110, 32
Graphicbox
    Graphicbox #w.g2, 140, 10, 440, 119
Statictext
    Statictext #w.st2a, "Image transferred from memory using", 138, 140, 200, 16
Statictext
    Statictext #w.st2b, "CallDLL #gdi32, 'BitBlt'", 138, 156, 200, 16

' Open the Window
Open    Open "Demo" For Window as #w
#w,
    #w, "Trapclose EndProgram"
#w.g2,
    #w.g2, "Horizscrollbar On 0 600"

' Display Solid Backgrounds
Call    Call hueBackground "#w.g2", "Darkgreen"

' Get handles and dc of second graphicbox with GetDC
' Place handle numbers in array to make global
hWG1    hWG1 = hWnd(#w.g1)
hDC1
    hDC1 = GetDC(hWG1)
hWG2
    hWG2 = hWnd(#w.g2)
hDC2
    hDC2 = GetDC(hWG2)

' Create two compatible memory DC with CreateCompatibleDC
dcMem1    dcMem1 = CreateCompatibleDC(hDC1) ' Compatible with #w.g1 'memDC
MemDC(1)
    MemDC(1) = dcMem1
dcMem2
    dcMem2 = CreateCompatibleDC(hDC2) ' Compatible with #w.g2
MemDC(2)
    MemDC(2) = dcMem2

' Get a simple bitmap for appending
#w.g1,    #w.g1, "Getbmp AppendBitmap 0 0 1200 100"

' Obtain the handle of this simple bitmap
hAppendBitmap    hAppendBitmap = hBmp("AppendBitmap")

' Create a large bitmap with CreateCompatibleBmp
' Use ScreenDC and not MemoryDC
hMemBitmap    hMemBitmap = CreateCompatibleBitmap(hDC2, 1200, 100)

' Select the appending bitmap into the second memory device context
hAppendBitmap    hAppendBitmap = SelectObject(dcMem2, hAppendBitmap)

' Draw the first bitmap and get its handle
Call    Call SimpleHouse "#w.g1", 0, 0
#w.g1,
    #w.g1, "Getbmp SimpleHouse 0 0 100 100"
#w.g1,
    #w.g1, "Flush"
hSimpleHouse
    hSimpleHouse = hBmp("SimpleHouse")

' Draw the second bitmap and get its handle
Call    Call hueBackground "#w.g1", "Darkblue"
Call
    Call SimpleTrees "#w.g1", 0, 0
#w.g1,
    #w.g1, "Getbmp SimpleTrees 0 0 100 100"
#w.g1,
    #w.g1, "Flush"
hSimpleTrees
    hSimpleTrees = hBmp("SimpleTrees")

' Draw the third bitmap and get its handle
Call    Call hueBackground "#w.g1", "Darkblue"
Call
    Call SimpleFence "#w.g1", 0, 0
#w.g1,
    #w.g1, "Getbmp SimpleFence 0 0 100 100"
#w.g1,
    #w.g1, "Flush"
hSimpleFence
    hSimpleFence = hBmp("SimpleFence")

' Select the bitmap into the first memory device context
hSimpleHouse    hSimpleHouse = SelectObject(dcMem1, hSimpleHouse)

' BitBlt the 1st memory device context to the 2nd memory device context
null    null =BitBlt(dcMem2, 0, 0, 100, 100, dcMem1, 0, 0, _SRCCOPY)



' Select the bitmap into the first memory device context
hSimpleTrees    hSimpleTrees = SelectObject(dcMem1, hSimpleTrees)

' BitBlt the 1st memory device bitmap to the 2nd memory device context
null    null =BitBlt(dcMem2, 100, 0, 100, 100, dcMem1, 0, 0, _SRCCOPY)

' Select the bitmap into the first memory device context
hSimpleFence    hSimpleFence = SelectObject(dcMem1, hSimpleFence)

' BitBlt the 1st memory device context to the 2nd memory device context
null    null =BitBlt(dcMem2, 200, 0, 200, 100, dcMem1, 0, 0, _SRCCOPY)

' Deselect the bitmap from memory
hMemBitmap    hMemBitmap = SelectObject(dcMem2, hMemBitmap)

' ReleaseDC on Screen DC
null    null = ReleaseDC(hWG1, hDC1)
null
    null = ReleaseDC(hWG2, hDC2)

' DeleteDC on both memory DC's
null    null = DeleteDC(dcMem1)
null
    null = DeleteDC(dcMem2)

'Loadbmp from handle
Loadbmp    Loadbmp "SimpleScene", hMemBitmap
#w.g2,
    #w.g2, "Drawbmp SimpleScene 0 0"
#w.g2,
    #w.g2, "Flush"
Wait

    Wait

Sub EndProgram handle$
Unloadbmp    Unloadbmp "SimpleHouse"
Unloadbmp
    Unloadbmp "SimpleTrees"
Unloadbmp
    Unloadbmp "SimpleScene"
Close
    Close #w
End
    End
End Sub

Function GetDC(handle)
CallDLL    CallDLL #user32, "GetDC", _
handle
        handle As Ulong, _
GetDC
        GetDC as Ulong
End Function

Function ReleaseDC(handle, hDC)
CallDLL    CallDLL #user32, "ReleaseDC", _
handle
        handle As Ulong, _
hDC
        hDC As Ulong, _
ReleaseDC
        ReleaseDC As Long
End Function

Function DeleteDC(hDC)
CallDLL    CallDLL #gdi32, "DeleteDC", _
hDC
        hDC as Ulong, _
result
        result as Boolean
End Function

Function CreateCompatibleDC(hDC)
CallDLL    CallDLL #gdi32, "CreateCompatibleDC", _
hDC
        hDC as Ulong, _
CreateCompatibleDC
        CreateCompatibleDC as Ulong
End Function

Function CreateCompatibleBitmap(hDC, wMem, hMem)
CallDLL    CallDLL #gdi32, "CreateCompatibleBitmap", _
hDC
        hDC as Ulong, _
wMem
        wMem as Long, _
hMem
        hMem as Long, _
CreateCompatibleBitmap
        CreateCompatibleBitmap as Ulong
End Function

Function SelectObject(hDC, hPic)
CallDLL    CallDLL #gdi32, "SelectObject", _
hDC
        hDC as Ulong, _
hPic
        hPic as Ulong, _
SelectObject
        SelectObject as Ulong
End Function

Function BitBlt(hdcDest, xDest, yDest, wDest, hDest, hdcSource, xSource, ySource, ROP)
CallDLL    CallDLL #gdi32, "BitBlt", _
hdcDest
        hdcDest as Ulong, _
xDest
        xDest as Long, _
yDest
        yDest as Long, _
wDest
        wDest as Long, _
hDest
        hDest as Long, _
hdcSource
        hdcSource as Ulong, _
xSource
        xSource as Long, _
ySource
        ySource as Long, _
ROP
        ROP as Ulong, _
result
        result as Boolean
End Function

Sub hueBackground handle$, hue$
#handle$,    #handle$, "Down; Fill ";hue$
#handle$,
    #handle$, "Flush; Discard"
End Sub

Sub SimpleHouse handle$, xLoc, yLoc
Call    Call hueBackground handle$, "Darkblue"
#handle$,
    #handle$, "Color 128 64 0; Backcolor Brown"
#handle$,
    #handle$, "Place ";xLoc + 5;" ";yLoc + 50
#handle$,
    #handle$, "Boxfilled ";xLoc + 95;" ";yLoc + 90
For
    For x = xLoc to xLoc + 100
#handle$,
        #handle$, "Line ";xLoc + 50;" ";y + 10;" ";x;" ";y + 50
Next
    Next x
#handle$,
    #handle$, "Backcolor 128 64 0"
#handle$,
    #handle$, "Place ";xLoc + 10;" ";yLoc + 60
#handle$,
    #handle$, "Boxfilled ";xLoc + 30;" ";yLoc + 80
#handle$,
    #handle$, "Place ";xLoc + 65;" ";yLoc + 60
#handle$,
    #handle$, "Boxfilled ";xLoc + 85;" ";yLoc + 80
#handle$,
    #handle$, "Place ";xLoc + 35;" ";yLoc + 70
#handle$,
    #handle$, "Boxfilled ";xLoc + 60;" ";yLoc + 90
#handle$,
    #handle$, "Color 16 16 16; Backcolor 16 16 16"
#handle$,
    #handle$, "Place ";xLoc;" ";yLoc + 90
#handle$,
    #handle$, "Boxfilled ";xLoc + 100;" ";yLoc + 100
Call
    Call SimpleGrass handle$, xLoc, yLoc
End Sub

Sub SimpleTrees handle$, xLoc, yLoc
#handle$,    #handle$, "Color 128 64 0; Backcolor Brown"
#handle$,
    #handle$, "Place ";xLoc + 30;" ";yLoc + 60
#handle$,
    #handle$, "Boxfilled ";xLoc + 50;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 65;" ";yLoc + 40
#handle$,
    #handle$, "Boxfilled ";xLoc + 75;" ";yLoc + 90
#handle$,
    #handle$, "Color 0 64 0; Backcolor 0 128 64"
#handle$,
    #handle$, "Place ";xLoc + 40;" ";yLoc + 40
#handle$,
    #handle$, "Circlefilled 30"
#handle$,
    #handle$, "Place ";xLoc + 70;" ";yLoc + 50
#handle$,
    #handle$, "Circlefilled 20"
Call
    Call SimpleGrass handle$, xLoc, yLoc
End Sub

Sub SimpleFence handle$, xLoc, yLoc
#handle$,    #handle$, "Color 64 64 64; Backcolor 192 192 192"
#handle$,
    #handle$, "Place ";xLoc + 10;" ";yLoc + 60
#handle$,
    #handle$, "Boxfilled ";xLoc + 95;" ";yLoc + 70
#handle$,
    #handle$, "Place ";xLoc + 10;" ";yLoc + 80
#handle$,
    #handle$, "Boxfilled ";xLoc + 95;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 10;" ";yLoc + 40
#handle$,
    #handle$, "Boxfilled ";xLoc + 15;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 30;" ";yLoc + 40
#handle$,
    #handle$, "Boxfilled ";xLoc + 35;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 50;" ";40
#handle$,
    #handle$, "Boxfilled ";xLoc + 55;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 70;" ";yLoc + 40
#handle$,
    #handle$, "Boxfilled ";xLoc + 75;" ";yLoc + 90
#handle$,
    #handle$, "Place ";xLoc + 90;" ";yLoc + 40
#handle$,
    #handle$, "Boxfilled ";xLoc + 95;" ";yLoc + 90
Call
    Call SimpleGrass handle$, xLoc, yLoc
End Sub

Sub SimpleGrass handle$, xLoc, yLoc
For    For x = xLoc to xLoc + 100
greenHue
        greenHue = Int(Rnd(1) * 128) + 16
#handle$,
        #handle$, "Color 0 ";greenHue;" 0"
y
        y = Int(Rnd(1) * 10) + 85
#handle$,
        #handle$, "Line ";x;" ";y;" ";x;" 100"
Next
    Next x
End Sub
[[code]]
* Return to [[Drawing a Tiled Background with CreateCompatibleBitmap]]