Visual Inventory Problem

[jsventor]

Code:

Dim Q As Long
        Dim Qq As Long
        Dim IT As Long
        Dim sDc As Long
        Dim DC As Long
              
        If GetTickCount > IT + 500 And frmMirage.picInv3.Visible = True Then
            For Q = 0 To MAX_INV - 1
                Qq = Player(MyIndex).Inv(Q + 1).Num
                
              
                If frmMirage.picInv(Q).Picture  LoadPicture() Then
                    frmMirage.picInv(Q).Picture = LoadPicture()
                Else
                    If Qq = 0 Then
                        frmMirage.picInv(Q).Picture = LoadPicture()
                    Else
                    'sDc = DD_ItemSurf.GetDC
                   'DD_ItemSurf.ReleaseDC (sDc)
                   DC = DD_ItemSurf.GetDC
                   'Call BitBlt(frmMirage.picInv(Q).hDC, 0, 0, PIC_X, PIC_Y, DC, 0, 0, vbSrcCopy)
                   Call BitBlt(frmMirage.picInv(Q).hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, 0, Item(GetPlayerInvItemNum(MyIndex, frmMirage.lstInv.SelCount + Q)).Pic * PIC_Y, SRCCOPY)
                   DD_ItemSurf.ReleaseDC (DC)
                    End If
                End If
            Next Q
        End If

This code is not displaying the inventory properly, it usus same items as a blank Mirage. thanks for any help!

[William]

Instead of your:

Code:

Item(GetPlayerInvItemNum(MyIndex, frmMirage.lstInv.SelCount + Q)).Pic * PIC_Y

Try:

Code:

Item(Qq).Pic * PIC_Y