FiveTech Software tech support forums

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

Dear Nages, I need to save all buttons and I made two function  SaveLinks() LoadLinks() I save all button on ini file  type as [Links]Button1=,,.\bitmaps\admin.png,,Dummy1('Admin'),Admin,20,20Button2=,,c:\work\fwh\bitmaps\pngs\image1.PNG,,Dummy1(1),Procedure1,20,110Button3=,,...

I see the problem. Thanks. Let me fix it Please try this function instead 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...

I see the problem. Thanks. Let me fix it Please try this function instead static function DeleteControl( oPanel, nItem )   local nTop, nLeft, nLen, n   if ( nLen := Len( oPanel:aControls ) ) == 1 .or. nItem == nLen      return .f.  &nb...

nageswaragunupudi wrote:I see the problem. Thanks.
Let me fix it

Nages,
I need to save the buttons in the archive (links.dbf) because the application must display the buttons at other times when the application is used by users
I sent a test

I see the problem. Thanks.
Let me fix it

when I had only two buttons I cannot delete printer button Yes. The function I provided does not allow the last control to be deleted. Yes. I understood. Do have you tried deleting all the btnbmps and moving the scrollbar? It makes this mistake for me https://i.postimg.cc/G34Z81nn/1....

when I had only two buttons I cannot delete printer button

Yes. The function I provided does not allow the last control to be deleted.

This is working perfectly for me #include "fivewin.ch"static cFolder := "c:\fwh\bitmaps\pngs\"function Main()   local oDlg, oFont, oPanel, oBrw   local aImages   aImages  := DIRECTORY( cFolder + "*.png" )   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14   DEFINE ...

This is working perfectly for me #include "fivewin.ch"static cFolder := "c:\fwh\bitmaps\pngs\"function Main()   local oDlg, oFont, oPanel, oBrw   local aImages   aImages  := DIRECTORY( cFolder + "*.png" )   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14   DEFINE D...

Let me check

Not run ok

function DeleteControl( oPanel, nItem )   local nTop, nLeft      for n := Len( oPanel:aControls ) to nItem + 1 STEP -1      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft...

function DeleteControl( oPanel, nItem )   local nTop, nLeft      for n := Len( oPanel:aControls ) to nItem + 1 STEP -1      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop      oPanel:aControls&...

Nages oPanel:aControls[ nItem ]:End() HB_ADel( oPanel:aControls[ nItem ], nItem, .t. ) ASize( oPanel:aControls, Len( oPanel:aControls ) ) oPanel:SetRange() oPanel:refresh() I saw on oPanel:aControls there are also the records https://i.postimg.cc/QNKWmS1C/mm.png also if I make ASize(...