FiveTech Support Forums

nageswaragunupudi wrote:

I see the problem. Thanks.
Let me fix it

Please try this function instead

Code (fw): Select all Collapse

static function DeleteControl( oPanel, nItem )

   local nTop, nLeft, nLen, n

   if ( nLen := Len( oPanel:aControls ) ) == 1 .or. nItem == nLen
      return .f.
   endif

   for n := nLen to nItem + 1 STEP -1
      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop
      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft
   next
   oPanel:aControls[ nItem ]:End()
   HB_ADel( oPanel:aControls, nItem, .t. )

   WITH OBJECT oPanel
      n  := :nPos
      :GoTop()
      :SetRange()
      :GoToPos( MIN( n, oPanel:nScrollRange ) )
      :Refresh()
   END

return .t.

We'll look into other issues later

while deleting some records I noticed that some buttons cannot be pressed and when they are deleted from xbrowse the images do not refresh immediately but after a certain time and if I pass over the mouse

Dear Nages,

I need to save all buttons and I made two function 

SaveLinks()
LoadLinks()

I save all button on ini file  type as
the procedure  on Init load all buttons with   aImages:= LoadLinks( cIniUser, cSection )and set the btnbmp on panel scroll  as you can see on this picture



the problems are only on Manage buttons because when I delete a button not refresh good the panel scroll 

for a sample

If I delete some records  (1,3,4)

I have on xbrowse  admin, procedure2 and procedure 5

but on Tpanel as you can see on this picture



I have 3 buttons   Admin , Procedure 5, Procedure 5

only whe I resize the explorerbar or size the main window the tpanel is refreshed


but the second button is not clickable 

Perhaps there are problem with TscrollPanel because I tried only directly on TaskPanel of Explorerbar and it seem run ok

only I must change the height if the link are many