Setting picture property

[Jareware]

Would it be possible to get a certain area to be a picture object/property of another object? I mean, like:

Picture1.Picture = Region(Picture2.Picture, 20, 20, 50, 50)

So that it would take the region from Picture2.Picture starting @ x20, y20 with width 50 and height 50. Anyone know how to do this? PaintPicture won't do, it has to be the .Picture property that changes.


-JR-

[Megatron]

Use the BitBlt API function.

[Jareware]

How would I use it (little experience with API)?


-JR-

[Megatron]

Add to a Form with 2 PictureBoxes and a CommandButton.

Private Declare Function BitBlt Lib "gdi32" (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 Sub Command1_Click()
    Picture1.AutoRedraw = True
    BitBlt Picture1.hDC, 0, 0, 32, 32, Picture2.hDC, 10, 10, vbSrcCopy
    Picture1.Refresh
    Picture1 = Picture1.Image
End Sub

This example will copy 32x32 pixels of Picture2 (starting at pixels 10,10) to Picture1.

[Jareware]

Doesn't seem to be working, gives some windows background and something that IS on screen but not in the picture box. Should I mention that the source picture box is hidden?


-JR-

[Microbasic]

Solution 1: Set the AutoRedraw property to True.
Solution 2: Bitblit the picture into a memory DC before hiding:

'Declarations in Module
Public hDC1 As Long 'local copy
Public hPrevWorkAreaBitmap As Long
Public Declare Function BitBlt Lib "gdi32" (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 DRopEnum) As Long
Enum DRopEnum
    SRCAND = &H8800C6           ' (DWORD) dest = source AND dest
    SRCCOPY = &HCC0020          ' (DWORD) dest = source
    SRCERASE = &H440328         ' (DWORD) dest = source AND (NOT dest )
    SRCINVERT = &H660046        ' (DWORD) dest = source XOR dest
    SRCPAINT = &HEE0086         ' (DWORD) dest = source OR dest
    NOTSRCCOPY = &H330008       ' (DWORD) dest = (NOT source)
    NOTSRCERASE = &H1100A6      ' (DWORD) dest = (NOT src) AND (NOT dest)
    MERGECOPY = &HC000CA        ' (DWORD) dest = (source AND pattern)
    MERGEPAINT = &HBB0226       ' (DWORD) dest = (NOT source) OR dest
    DSTINVERT = &H550009        ' (DWORD) dest = (NOT dest)
    WHITENESS = &HFF0062        ' (DWORD) dest = WHITE
    BLACKNESS = &H42            ' (DWORD) dest = BLACK
End Enum
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

'Create Memory DC - Form_Load()
    hDC1 = CreateCompatibleDC(picSet.hdc)
    hBitmap = CreateCompatibleBitmap(picSet.hdc, picture2.height, picture2.width)
    hPrevWorkAreaBitmap = SelectObject(hDC1, hBitmap)
    picture2.visible=true
    bitblt hdc1, 0, 0, picture2.height, picture2.width, picture2.hdc, 0, 20
    picture2.visible=false

'Delete memory DC - Form_Unload
    hBitmap = SelectObject(hDC1, hPrevWorkAreaBitmap)
    DeleteDC hDC1
    DeleteObject hBitmap

Now you could bitblt like Megatron, except replace picture2.hdc with hdc1.

[Jareware]

So how would I adapt this code to take an area of 336 pixels in width and 425 in height, starting @ x 0 and y 123 and put it to the destination? LoadedSkin.Picture would be the source and LoadedSkinTrans.Picture is the destination. So this is the code that I have so far (and doesn't seem to be working...):

'This is inside an appropriate WITH block
.LoadedSkinTrans.AutoRedraw = True
BitBlt .LoadedSkinTrans.hDC, 0, 0, 336, 425, .LoadedSkin.hDC, 0, 123, vbSrcCopy
.LoadedSkinTrans.Refresh
.LoadedSkinTrans = .LoadedSkinTrans.Image