xbrowse.. y barras.
Posted: Wed Oct 17, 2018 5:49 pm
Estimados amigos.. trabajo con xbrowse.. FW13.2, xharbour,, usando tdolphin...
el tema es que cuando genero el browse... no me aparecen o salen las barras horizontales y verticales... he intentado de todo pero no me salen,
aca parte del codigo
oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } }
oBrw:lColDividerComplete := (.t.)
oBrw:nHeaderHeight := 35
oBrw:nRowHeight := 25
oBrw:nHeaderLines := 3
oBrw:nDataLines := 2
oBrw:nFooterHeight := 20
oBrw:nFooterLines := 2
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:bClrStd := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:l2007:=.T.
oBrw:lFooter := (.T.)
oBrw:lHScroll := (.T.) // lo he cambiado por .F.. he sacado esta linea y nada...
oBrw:lVScroll := (.T.)
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:bLDblClick := {|| Add_Producto(.F.,oBrw, cTab_Art), cTab_Art:Refresh() }
oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art) }
oBrw:oFont := oFont2
oBrw:SetDolphin(cTab_Art,.T.,.T.)
alguien me orienta...no veo el error.
el tema es que cuando genero el browse... no me aparecen o salen las barras horizontales y verticales... he intentado de todo pero no me salen,
aca parte del codigo
oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } }
oBrw:lColDividerComplete := (.t.)
oBrw:nHeaderHeight := 35
oBrw:nRowHeight := 25
oBrw:nHeaderLines := 3
oBrw:nDataLines := 2
oBrw:nFooterHeight := 20
oBrw:nFooterLines := 2
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:bClrStd := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:l2007:=.T.
oBrw:lFooter := (.T.)
oBrw:lHScroll := (.T.) // lo he cambiado por .F.. he sacado esta linea y nada...
oBrw:lVScroll := (.T.)
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:bLDblClick := {|| Add_Producto(.F.,oBrw, cTab_Art), cTab_Art:Refresh() }
oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art) }
oBrw:oFont := oFont2
oBrw:SetDolphin(cTab_Art,.T.,.T.)
alguien me orienta...no veo el error.