Anyway to hide oBar when using Xbrowser? Or is there anyway to hide most buttons of oBar?
TIA
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
oBrw:oWnd:bInit := { |oDlg| AEval( oDlg:aControls, { |o| If( o:ClassName() == "TBTNBMP", o:Hide, nil ) } ) } )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 52 guests