Page 1 of 1

Xbrowser - how to not display oBar?

Posted: Tue Jul 02, 2024 7:41 am
by hua
Anyway to hide oBar when using Xbrowser? Or is there anyway to hide most buttons of oBar?

TIA

Re: Xbrowser - how to not display oBar?

Posted: Tue Jul 02, 2024 4:14 pm
by FranciscoA
//Ocultar botones del XBROWSER

Code: Select all | Expand

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.

Re: Xbrowser - how to not display oBar?

Posted: Tue Jul 02, 2024 4:25 pm
by FranciscoA
Ocultar todos los botones:

Code: Select all | Expand

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

Re: Xbrowser - how to not display oBar?

Posted: Wed Jul 03, 2024 2:36 am
by hua
Thank you very much Francisco