Xbrowser - how to not display oBar?

Xbrowser - how to not display oBar?

Postby hua » Tue Jul 02, 2024 7:41 am

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

TIA
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1072
Joined: Fri Oct 28, 2005 2:27 am

Re: Xbrowser - how to not display oBar?

Postby FranciscoA » Tue Jul 02, 2024 4:14 pm

//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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Xbrowser - how to not display oBar?

Postby FranciscoA » Tue Jul 02, 2024 4:25 pm

Ocultar todos los botones:
Code: Select all  Expand view
oBrw:oWnd:bInit := { |oDlg| AEval( oDlg:aControls, { |o| If( o:ClassName() == "TBTNBMP", o:Hide, nil ) } ) } )
 
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Xbrowser - how to not display oBar?

Postby hua » Wed Jul 03, 2024 2:36 am

Thank you very much Francisco
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1072
Joined: Fri Oct 28, 2005 2:27 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests