Anexo el codigo cuando genero la consulta con xbrowse no pinta la esquina del titulo. deberia pintarla con el color que se define con oLbx:nRecSelColor := 16745090
oLbx := TXBrowse():New( oDlgbrow )
oLbx:CreateFromResource( 4001 )
oLbx:nColDividerStyle := LINESTYLE_RAISED //LINESTYLE_BLACK
oLbx:nRowDividerStyle := LINESTYLE_RAISED // LINESTYLE_BLACK
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:l2007 := .T.
oLbx:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 0.50,16294002,15263976 }, ;
{ 0.50,15263976,16294002 } }, ;
{ { 0.50,8388608,15263976 }, ;
{ 0.50,15263976,8388608 } } ) }
oLbx:bClrHeader := { || { 0,0 } } //antes CLR_BLACK,X_BROHEAD
oLbx:bClrFooter := { || { 0,0 } } // antes CLR_BLACK,X_BROFOTT
oLbx:bClrSelFocus = { || { CLR_BLACK,X_BROFOCU } } //{ || { 16777215,16288063 } }
// oLbx:bClrSel = { || { X_BROCELST,X_BROCELSF } } //16777215,16288063
oLbx:lHScroll := .T.
oLbx:lVScroll := .T.
oLbx:lFooter := .T.
// oLbx:lRecordSelector := .T. // si coloca el selector color va al izquierto
oLbx:nRecSelColor := 16745090 // coloca el selector si lRecordSelector es .t.
oLbx:hRowPen := CreatePen( PS_SOLID, 1,12632256 )
oLbx:lFastEdit := .F.
oLbx:nHeaderHeight := X_BALTHED //25
oLbx:nFooterHeight := X_BALTFOT //25
oLbx:nRowHeight := X_BALTROW //22
aClrCol := { { CLR_BLACK, X_BROPAN1 }, {CLR_BLACK, X_BROPAN2 } } //{ { 0, 16579010 }, { 0, 16777215 } }
oLbx:bClrStd := { || aClrCol[ oLbx:KeyNo % 2 + 1 ] }
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("vend"):value }
oCol:cHeader := "Vend"
oCol:cFooter := "First"
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("nombre"):value }
oCol:cHeader := "Nombre"
oCol:cFooter := "Last"
oCol:nWidth := 360
oCol := oLbx:AddCol()
oCol:AddResource("CHECK_SI")
oCol:AddResource("CHECK_NO")
oCol:bBmpData := { || iif(::oDbfxls:Fields("status"):value=1, 1, 2) }
oCol:bStrData := { || IIF(::oDbfxls:Fields("status"):value=1, "Si","No") }
oCol:cHeader := "Status"
oCol:cFooter := "Married"
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oLbx:oFont := oBrwFont
i := 1
FOR i := 1 TO LEN( oLbx:aCols )
WITH OBJECT oLbx:aCols[i]
oLbx:aCols[i]:oHeaderFont := oHeadFont
oLbx:aCols[i]:oFooterFont := oFootFont
END
NEXT
oLbx:SetAdo(::oDbfxls)