To Nageswrao Del Objs on TscrollPanel

[Silvio.Falconi]

I see the problem. Thanks.
Let me fix it

Please try this function instead

Code: Select all  Expand view

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

[Silvio.Falconi]

Dear Nages,

I need to save all buttons and I made two function 

SaveLinks()
LoadLinks()

I save all button on ini file  type as

Code: Select all  Expand view

[Links]
Button1=,,.\bitmaps\admin.png,,Dummy1('Admin'),Admin,20,20
Button2=,,c:\work\fwh\bitmaps\pngs\image1.PNG,,Dummy1(1),Procedure1,20,110
Button3=,,c:\work\fwh\bitmaps\pngs\image2.PNG,,Dummy1(2),Procedure2,20,200
Button4=,,c:\work\fwh\bitmaps\pngs\image3.PNG,,Dummy1(3),Procedure3,20,290
Button5=,,c:\work\fwh\bitmaps\pngs\image4.PNG,,Dummy1(4),Procedure4,120,20
Button6=,,c:\work\fwh\bitmaps\pngs\image5.PNG,,Dummy1(5),Procedure5,120,110
 

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 

[Silvio.Falconi]

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