Zopto Posted January 21, 2014 Author Share Posted January 21, 2014 so i got problem i hover my item and description windows shows all the way up same for spell description….![](http://gyazo.com/ffeebf7ec0d0e278eec97b65380a040a.png)blt itemdesc and blt spell decs idk if it helps but i tryed to copy same code from my older version of engines and it dont help```Public Sub BltItemDesc(ByVal ItemNum As Long)Dim rec As RECT, rec_pos As RECTDim itempic As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerfrmMain.picItemDescPic.ClsIf ItemNum > 0 And ItemNum <= MAX_ITEMS Thenitempic = Item(ItemNum).PicIf itempic = 0 Then Exit Sub' Load item if not loaded, and reset timerItemTimer(itempic) = GetTickCount + SurfaceTimerMaxIf DDS_Item(itempic) Is Nothing ThenCall InitDDSurf("Items\" & itempic, DDSD_Item(itempic), DDS_Item(itempic))End IfWith rec.top = 0.Bottom = .top + PIC_Y.Left = DDSD_Item(itempic).lWidth / 2.Right = .Left + PIC_XEnd WithWith rec_pos.top = 0.Bottom = 64.Left = 0.Right = 64End WithEngine_BltToDC DDS_Item(itempic), rec, rec_pos, frmMain.picItemDescPic, FalseEnd If' Error handlerExit Suberrorhandler:HandleError "BltItemDesc", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPublic Sub BltSpellDesc(ByVal spellnum As Long)Dim rec As RECT, rec_pos As RECTDim spellpic As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerfrmMain.picSpellDescPic.ClsIf spellnum > 0 And spellnum <= MAX_SPELLS Thenspellpic = Spell(spellnum).IconIf spellpic <= 0 Or spellpic > NumSpellIcons Then Exit Sub' Load item if not loaded, and reset timerSpellIconTimer(spellpic) = GetTickCount + SurfaceTimerMaxIf DDS_SpellIcon(spellpic) Is Nothing ThenCall InitDDSurf("SpellIcons\" & spellpic, DDSD_SpellIcon(spellpic), DDS_SpellIcon(spellpic))End IfWith rec.top = 0.Bottom = .top + PIC_Y.Left = 0.Right = .Left + PIC_XEnd WithWith rec_pos.top = 0.Bottom = 64.Left = 0.Right = 64End WithEngine_BltToDC DDS_SpellIcon(spellpic), rec, rec_pos, frmMain.picSpellDescPic, FalseEnd If' Error handlerExit Suberrorhandler:HandleError "BltSpellDesc", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub```anyone have idea how to fix this? Link to comment Share on other sites More sharing options...
Guest Posted January 21, 2014 Share Posted January 21, 2014 Some one had fixed this already here: [http://www.eclipseorigins.com/community/index.php?/topic/135006](http://fc04.deviantart.net/fs70/f/2011/182/5/0/my_new_fursona_by_xjupi-d3kld0d.swf) Link to comment Share on other sites More sharing options...
SpiceyWolf Posted January 21, 2014 Share Posted January 21, 2014 > so i got problem > > i hover my item and description windows shows all the way up same for spell description….> > > > ![](http://gyazo.com/ffeebf7ec0d0e278eec97b65380a040a.png)> > > > > > > > blt itemdesc and blt spell decs idk if it helps but i tryed to copy same code from my older version of engines and it dont help> > ```> Public Sub BltItemDesc(ByVal ItemNum As Long)> Dim rec As RECT, rec_pos As RECT> Dim itempic As Long> > ' If debug mode, handle error then exit out> If Options.Debug = 1 Then On Error GoTo errorhandler> > frmMain.picItemDescPic.Cls> > If ItemNum > 0 And ItemNum <= MAX_ITEMS Then> itempic = Item(ItemNum).Pic> > If itempic = 0 Then Exit Sub> > ' Load item if not loaded, and reset timer> ItemTimer(itempic) = GetTickCount + SurfaceTimerMax> > If DDS_Item(itempic) Is Nothing Then> Call InitDDSurf("Items\" & itempic, DDSD_Item(itempic), DDS_Item(itempic))> End If> > With rec> .top = 0> .Bottom = .top + PIC_Y> .Left = DDSD_Item(itempic).lWidth / 2> .Right = .Left + PIC_X> End With> > With rec_pos> .top = 0> .Bottom = 64> .Left = 0> .Right = 64> End With> Engine_BltToDC DDS_Item(itempic), rec, rec_pos, frmMain.picItemDescPic, False> End If> > ' Error handler> Exit Sub> errorhandler:> HandleError "BltItemDesc", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext> Err.Clear> Exit Sub> End Sub> > Public Sub BltSpellDesc(ByVal spellnum As Long)> Dim rec As RECT, rec_pos As RECT> Dim spellpic As Long> > ' If debug mode, handle error then exit out> If Options.Debug = 1 Then On Error GoTo errorhandler> > frmMain.picSpellDescPic.Cls> > If spellnum > 0 And spellnum <= MAX_SPELLS Then> spellpic = Spell(spellnum).Icon> > If spellpic <= 0 Or spellpic > NumSpellIcons Then Exit Sub> > ' Load item if not loaded, and reset timer> SpellIconTimer(spellpic) = GetTickCount + SurfaceTimerMax> > If DDS_SpellIcon(spellpic) Is Nothing Then> Call InitDDSurf("SpellIcons\" & spellpic, DDSD_SpellIcon(spellpic), DDS_SpellIcon(spellpic))> End If> > With rec> .top = 0> .Bottom = .top + PIC_Y> .Left = 0> .Right = .Left + PIC_X> End With> > With rec_pos> .top = 0> .Bottom = 64> .Left = 0> .Right = 64> End With> Engine_BltToDC DDS_SpellIcon(spellpic), rec, rec_pos, frmMain.picSpellDescPic, False> End If> > ' Error handler> Exit Sub> errorhandler:> HandleError "BltSpellDesc", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext> Err.Clear> Exit Sub> End Sub> > ```> anyone have idea how to fix this?Just for the sake of putting it here… its been a while since ive dealt with VB6 especially DX7 xD But im going to guess try replacing this:With rec_pos.top = 0.Bottom = 64.Left = 0.Right = 64End Withwith thisWith rec_pos.top = 0.Bottom = .top + PIC_Y.Left = 0.Right = 64End With Link to comment Share on other sites More sharing options...
Zopto Posted January 21, 2014 Author Share Posted January 21, 2014 nop that wont workwell i think problem is not in bltitem desc it is somewhere else but idk where :/ Link to comment Share on other sites More sharing options...
hisherwin Posted January 21, 2014 Share Posted January 21, 2014 I don't exactly get what's the problem? 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