topic-44656

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Xbrowser - how to not display oBar?
Posted: Tue Jul 02, 2024 07: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

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Xbrowser - how to not display oBar?
Posted: Tue Jul 02, 2024 04:14 PM

//Ocultar botones del XBROWSER

Code (fw): Select all Collapse

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

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Xbrowser - how to not display oBar?
Posted: Tue Jul 02, 2024 04:25 PM

Ocultar todos los botones:

Code (fw): Select all Collapse

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

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Xbrowser - how to not display oBar?
Posted: Wed Jul 03, 2024 02:36 AM

Thank you very much Francisco

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

FiveTech Support Forums

Continue the discussion