Ocultar Header Xbrowse (Solucionado)
Posted: Sat Aug 19, 2017 2:12 am
amigos necesito ocultar los encabezados del xbrowse
Saludps
Saludps
www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
Con PellesC
Window Style 0x50010000 ( tú tienes puesto 0x50310000 )
Si omites lo siguiente, apararecen las barras:
oBrSaldo:lHScroll := .F.
oBrSaldo:lVScroll := .F.
//--------------
oLbx := TXBrowse():New( oDlg )
oLbx:cAlias:="MCONTAB"
//ESTILOS DE LINEAS
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW //normal
oLbx:nColDividerStyle := LINESTYLE_DARKGRAY //LINESTYLE_INSET
oLbx:nRowDividerStyle := LINESTYLE_DARKGRAY //LINESTYLE_INSET
oLbx:lColDividerComplete := .t. //completa pintado hasta el footer cuando lineas no llenan todo el browse
oLbx:nStretchCol := STRETCHCOL_LAST //llenar espacio con ultima columna
oLbx:lTransparent := .t.
oLbx:lContrastClr := .f. //para que no cambie color de texto automaticamente segun intensidad del fondo
//HEADERS Y FOOTERS
oLbx:nHeaderHeight := 30 //Altura cabeceras de col
oLbx:lRecordSelector := .t. //poner o no, COL de la flechita de la izq
oLbx:lAllowRowSizing := .f. // If true horizontal row sizing is allowed
oLbx:lAllowColSwapping := .f. // If true col swapping is allowed
//COLORES (texto y fondo del texto)
oLbx:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oLbx:bClrFooter := oLbx:bClrHeader
oLbx:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
oLbx:bClrSel := {|| { nRGB( 0, 0, 0), aGradRowSel } } // para barra de linea selecc cuando el control no tiene el foco
oLbx:bClrSelFocus := { || { CLR_BLACK, aGradBarSel } } // para barra de linea selecc cuando el control tiene el foco
oLbx:nRowHeight := 20 //altura entre lineas
oLbx:lHScroll := .F.
oLbx:lVScroll := .F.