Xbrowser - how to not display oBar?

[hua]

Anyway to hide oBar when using Xbrowser? Or is there anyway to hide most buttons of oBar?

TIA

[FranciscoA]

//Ocultar botones del XBROWSER

Code: Select all  Expand view

XBROWSER cAlias TITLE cTit ;
  COLUMNS "Td", "Fechemis", "NumDoc", "CodiCont", "Nombre", "Debe", "Haber", "Concepto", "Benefi", "Import" ;
     SHOW SLNUM ;
    SETUP ( oBrw:nHeadStrAligns := AL_CENTER ,;
            oBrw:lFooter := .t. ,;
            oBrw:Debe:nFooterType  := AGGR_TOTAL, oBrw:Debe:cEditPicture  := "@Z 99,999,999,999.99" ,;
            oBrw:Haber:nFooterType := AGGR_TOTAL, oBrw:Haber:cEditPicture := "@Z 99,999,999,999.99" ,;
            oBrw:MakeTotals() ,;
            oBrw:bPrint := {|| MiraImpr(cTit) } ,;
            oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 5 ]:Hide() ,;   // Btn Agr
                                                       oDlg:aControls[ 6 ]:Hide() ,;   // Btn Mod
                                                       oDlg:aControls[ 7 ]:Hide() } )  // Btn Bor
 

Saludos.

[FranciscoA]

Ocultar todos los botones:

Code: Select all  Expand view

oBrw:oWnd:bInit := { |oDlg| AEval( oDlg:aControls, { |o| If( o:ClassName() == "TBTNBMP", o:Hide, nil ) } ) } )
 

[hua]

Thank you very much Francisco