Page 1 of 1

Eliminar Botones de xBrowse

PostPosted: Mon Mar 11, 2024 1:47 pm
by JoseAlvarez
Saludos estimados amigos.

tengo este codigo sencillo:

Code: Select all  Expand view
    aDbfTxt := cDbfTxt->( FW_DbfToArray() )
    xBrowser aDbfTxt
 


el cual me muestra esta imagen:

Image

quisiera eliminar la barra de botones del browse, que solo muestre esto:

Image

gracias por la ayuda...

Re: Eliminar Botones de xBrowse

PostPosted: Mon Mar 11, 2024 3:03 pm
by nageswaragunupudi
Code: Select all  Expand view
XBROWSER aDbfText SETUP XbrNoBar( oBrw )


Code: Select all  Expand view
function XbrNoBar( oBrw )

   oBrw:oWnd:bInit := < |oDlg|
      WITH OBJECT oDlg
         :oBar:Hide()
         oBrw:nTop -= :oBar:nHeight
         oBrw:nHeight += :oBar:nHeight
      END
      return nil
      >

return nil

Re: Eliminar Botones de xBrowse

PostPosted: Mon Mar 11, 2024 3:26 pm
by JoseAlvarez
Excelent Mr. Rao !!

Thanks a lot !