this is client side btw.
Code:
Private Sub scrlFrame_Change()
lblFrameNum.Caption = scrlFrame.Value
Call SpellEditorBltSpell
frmSpellEditor.scrlFrame.Max = (DDS_Spell(scrlFrame.Value).SurfDescription.lWidth \ SIZE_X) - 1
End Sub
lol.. i didnt know witch one you were talking about so.
Code:
Public Sub SpellEditorBltSpell()
Dim SpellPic As Long
Dim sRECT As DXVBLib.RECT
Dim dRECT As DXVBLib.RECT
SpellPic = frmSpellEditor.scrlPic.Value
If SpellPic < 1 Or SpellPic > NumSpells Then
frmSpellEditor.picPic.Cls
Exit Sub
End If
Call DD_ReadySurface("spells\" & SpellPic, DDS_Spell(SpellPic))
sRECT.Top = 0
sRECT.Bottom = SIZE_Y
sRECT.Left = frmSpellEditor.scrlFrame.Value * SIZE_X
sRECT.Right = sRECT.Left + SIZE_X
dRECT.Top = 0
dRECT.Bottom = SIZE_Y
dRECT.Left = 0
dRECT.Right = SIZE_X
Call DD_BltToDC(DDS_Spell(SpellPic).Surface, sRECT, dRECT, frmSpellEditor.picPic)
End Sub