Recoil Posted June 28, 2015 Share Posted June 28, 2015 Before I jack up my whole VSO project again, I am trying to remove the tmpItem and tmpBank panels, and just draw straight to the screen. Right now the following code is allowing me to still change slots, but it is not drawing the item while I am moving them: Public Sub DrawInventoryItem(ByVal locX As Long, ByVal locY As Long)     Dim rec As Rectangle, recPos As Rectangle     Dim itemnum As Long, itempic As Long     itemnum = GetPlayerInvItemNum(MyIndex, DragInvSlotNum)     'TmpItemWindow.Clear() 'ToSFMLColor(frmMainGame.pnlTmpInv.BackColor))     If itemnum > 0 And itemnum <= MaxItems Then       itempic = Item(itemnum).Pic       If itempic = 0 Then Exit Sub       With rec         .Y = 0         .Height = PIC_Y         .X = 0 'ItemsGFXInfo(itempic).width ' / 2         .Width = PIC_X       End With       With recPos         .Y = 0         .Height = PIC_Y         .X = 0         .Width = PIC_X       End With       ItemIcons(itempic).DrawControl(GameWindow, recPos.X, recPos.Y)       'With frmMainGame.pnlTmpInv       '  .Top = locY - 16       '  .Left = locX - 16       '  .Visible = True       '  .BringToFront()       'End With     End If     'TmpItemWindow.Display() Link to comment Share on other sites More sharing options...
jcsnider Posted June 28, 2015 Share Posted June 28, 2015 Draw it at locX - 16 and locY - 16 instead of recPos.X, recPos.y Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now