Saludos tengo un problema al visualiza mi Xbrowse desde recursos, Cuando se visualiza mi xbrowse se presentan 10 filas pero la informacion de la primera fila y la ultima fila se duplican. y el cursor se coloca en la ultima fila al desplasarme para arriba duplica la informacion de la primera fila en todas la filas. hacia abajo no tengo problema.
como hago para poner el cursor de mi xbrowse en la primera fila siempre. no se como incorporar una imagen para que lo entiendan mejor. anexo codigo
como hago para poner el cursor de mi xbrowse en la primera fila siempre. no se como incorporar una imagen para que lo entiendan mejor. anexo codigo
FUNCTION Look_Art(cArt, lArt)
LOCAL oDlgArt, oBrwCoAr, oColCoAr, oDbf, cBusSuc, oSay, xClave := "", oFoto, m_Foto
SELECT ARTICULO
* ARTICULO->(DbGoTop())
DEFINE DIALOG oDlgArt RESOURCE "DLGARTCON" OF oWnd
oBrwCoAr := TXBrowse():New( oDlgArt )
oBrwCoAr:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrwCoAr:nColDividerStyle := LINESTYLE_INSET
oBrwCoAr:nRowDividerStyle := LINESTYLE_INSET
oBrwCoAr:lColDividerComplete := .t.
oBrwCoAr:nHeaderHeight := 30 // Altura cabeceras de col
oBrwCoAr:lFooter := .t. // Que tendrá footer
oBrwCoAr:nFooterLines := 1 // Lineas del footer
oBrwCoAr:nFooterHeight := 24 // Altura del Footer
oBrwCoAr:lRecordSelector := .t. // poner o no, COL de la flechita de la izq
oBrwCoAr:bClrHeader := {|| { nRGB(140, 0, 0), nRGB(229,0,0) } } // VERDECITO
oBrwCoAr:bClrFooter := oBrwCoAr:bClrHeader
oBrwCoAr:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
oBrwCoAr:bClrSel := {|| { nRGB(255,255,255), nRGB(241,222,088) } } // para barra de linea selecc cuando el control no tiene el foco
oBrwCoAr:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(248,195, 34) } } // para barra de linea selecc cuando el control tiene el foco
oBrwCoAr:nRowSel := 10 // Current row selected based on current display
oBrwCoAr:nRowHeight := 20 //altura entre lineas
oBrwCoAr:lFastEdit := .t.
oBrwCoAr:bKeyDown := { | nKey | TeclasLook(nKey, oBrwCoAr, @cArt, lArt, oDlgArt, ARTICULO->Clave_Art) }
oBrwCoAr:bLDblClick := {|| cArt:=(ARTICULO->Clave_Art), lArt:Refresh(), oDlgArt:End() }
oColCoAr := oBrwCoAr:AddCol()
oColCoAr:bStrData := { || ARTICULO->Clave_Art }
oColCoAr:cHeader := "Clave"
oColCoAr := oBrwCoAr:AddCol()
oColCoAr:bStrData := { || ARTICULO->Descrip }
oColCoAr:cHeader := "Descripcion"
oBrwCoAr:aCols[01]:bLClickHeader := {|| SelTag("ARTICULO", "ArtiClave", oBrwCoAr) }
oBrwCoAr:aCols[02]:bLClickHeader := {|| SelTag("ARTICULO", "ArtiDesc", oBrwCoAr) }
oBrwCoAr:SetRDD()
oBrwCoAr:CreateFromResource(102)
oBrwCoAr:bChange := {|| IIF(!EMPTY(ARTICULO->Dir_Foto), (oFoto:LoadBmp(ALLTRIM(ARTICULO->Dir_Foto)), oFoto:Refresh()),;
oFoto:LoadBmp(ALLTRIM("\"+CURDIR()+"\AmiBitmap\NoImagen.BMP")) ) }
REDEFINE BITMAP oFoto ID 103 FILE (ALLTRIM("\"+CURDIR()+"\AmiBitmap\NoImagen.BMP")) ;
OF oDlgArt ADJUST
REDEFINE SAY oSay VAR xClave ID 101 OF oDlgArt UPDATE PICTURE "@!"
oBrwCoAr:bSeek := {|c| (DbSeek(UPPER(c)) ) }; oBrwCoAr:=oSay
ACTIVATE DIALOG oDlgArt ON INIT oBrwCoAr:SetFocus()
RETURN nil