topic-37180

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

erase button on ribbonbar- Resolved
Posted: Fri May 17, 2019 09:23 AM

I must erase 4 button on a ribbonbar on a group to recreate it each time I open a function

I made

IF oApp():oNavigaZoom != nil
         oApp():oNavigaZoom:end()
         For n= 1 to 4
            oBtnNav[n]:destroy()  //end()
            next
         oApp():oNavigaZoom := oApp():oReBar:AddGroup( 300, "Navigazione", 1,,, )
        else
         oApp():oNavigaZoom := oApp():oReBar:AddGroup( 300, "Navigazione", 1,,, )
      Endif

 @ 9,5 ADD BUTTON oBtnNav[1]......

and try also with

I

Code (fw): Select all Collapse

F oApp():oNavigaZoom != nil
                AEVal( oBtnNav, { | oBtn | oBtn:end() } )
         oApp():oNavigaZoom:end()
         oApp():oNavigaZoom := oApp():oReBar:AddGroup( 300, "Navigazione", 1,,, )
        else
         oApp():oNavigaZoom := oApp():oReBar:AddGroup( 300, "Navigazione", 1,,, )
      Endif

but it make error on second time I try to end the button and recreate it

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: erase button on ribbonbar
Posted: Fri May 17, 2019 10:39 AM

Resolved

Code (fw): Select all Collapse

For n= 1 to Len( oApp():oNavigaZoom:aControls)
            oApp():oNavigaZoom:aControls[n]:end()
           next

FiveTech Support Forums

Continue the discussion