Eliminar Botones de xBrowse

[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:



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



gracias por la ayuda...

[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

[JoseAlvarez]

Excelent Mr. Rao !!

Thanks a lot !