First of all I created a small class From Xbrowse where I inserted some btnbmp buttons located at the end of the xbrowse on the right side and I called them aBtnBrow
I use this trick because in all the procedures when I create the xbrowse I have to insert the buttons which are generally only three in other situations they are 5 and to avoid always having to rewrite them and consequently set them in the resize function of the dialog I thought of making a small class that does nothing but insert the buttons
so in the procedure I use I only have to load the action of the buttons for example
Code: Select all | Expand
oBrw:aBtnBrow[3]:baction:= { || oBrw:aBtnBrow[3]:ShowPopUp( { | oBtn | Contextual_Menu(oBtn,oBrw,oDbf,cIniUser,cSection,oDlg,oBrw:aBtnBrow[4],.t.,.t.,@lmore) } ) }
oBrw:aBtnBrow[5]:baction:= { || oBrw:aBtnBrow[5]:ShowPopUp( { | oBtn | ColonneMenu( oBtn,oBrw,oDbf,oDlg,cSection,cIniUser ) } ) }
Where is the error i.e. why the End() error? It comes out sometimes and not always?