Duda Tsbrowse

[mantonio_08]

Amigos:

Necesito saber como obtener la posicion del elemento seleccionado, en el Tsbrowse con un arreglo como el que se muestra en el codigo

Desde ya muchas gracias.

Saludos,
Antonio

*** Codigo

Arr1 := {}
AADD( Arr1, {"A","Administrador"} )
AADD( Arr1, {"S","Supervisor "} )
AADD( Arr1, {"G","Gerencia "} )
AADD( Arr1, {"D","Digitación "} )


REDEFINE BROWSE oBrw GRID ;
COLORS CLR_BLACK,CLR_NBLUE ;
ID 106 OF oFld FONT aFont1

oBrw:SetArray( Arr1 )

ADD COLUMN TO BROWSE oBrw;
ARRAY ELM 1;
TITLE "CODIGO";
SIZE 40;
ALIGN DT_CENTER, DT_VERT ; // V.7.0 alignment changes for bitmaps
3DLOOK FALSE, TRUE, TRUE // 3D look only for header and footer

ADD COLUMN TO BROWSE oBrw;
ARRAY ELM 2;
TITLE "Nivel de Usuario"; // multi-line feature on headers
SIZE 200;
3DLOOK FALSE, TRUE, TRUE; // 3D look only for header and footer
ALIGN DT_LEFT, DT_LEFT, DT_RIGHT

oBrw:nFreeze := 1
oBrw:lNoHScroll := .T.


oBrw:SetColor( { 4},{{RGB(255,255,255), RGB(130, 99, 53)}}) // Color de Titulos


oBrw:SetColor( { 1, 2,15 }, ;
{ CLR_BLACK, CLR_NBLUE, CLR_HRED, ;
{ CLR_WHITE, nRGB( 236, 160, 19 ) }, ; // degraded cursor background color ****** clr_black
CLR_WHITE, CLR_BLACK } ) // text colors

oBrw:SetColor( { 1, 2,14 }, ;
{ { CLR_MAGENTA, CLR_MAGENTA }, ; // degraded cells background color
{ CLR_WHITE, CLR_NBLUE}, ; // degraded headers backgroud color
{ CLR_HGREEN, CLR_NBLUE } } ) // degraded order column background color
oBrw:nHeightCell += 1
oBrw:nHeightHead += 2

oBrw:SetColor( { 1},{{RGB(255,255,255), RGB(130, 99, 53)}},2) // Color de Titulos
oBrw:Setcolor( { CLR_FOCUSF, CLR_FOCUSB }, { CLR_WHITE, nRGB( 236, 160, 19 ) } ) // Pone Color a Foco o Ubicacion de la Linea

oBrw:SetColor( { 4},{{RGB(255,255,255), RGB(130, 99, 53)}}) // Color de Titulos
oBrw:lNoHScroll := .F. //Conecta la barra scroll horizontal

oBrw:SetSelectMode( .T., { | oBrw, nI, lSel | ;
If( lSel, (oBrw:Refresh(),oDlg:End(),.t.), .f. ) } )
oBrw:nLineStyle := LINES_VERT

oBrw:aColumns[ 1 ]:lSeek := .T.

oBrw:lNoResetPos := .F.

oBrw:lLockFreeze := .T.

oBrw:Bkeydown := { |nKey|iif(nKey=13,(oBrw:Refresh(),oDlg:End(),oDlg:End(),oDlg:End(),.t.),)}

[Aitue]

Hola:

Nadie sabe, tengo la misma duda, como saber la posicion dentro del arreglo al momento de dar doble click o enter.

Saludos

Rafael

[mmercado]

Nadie sabe, tengo la misma duda, como saber la posicion dentro del arreglo al momento de dar doble click o enter

oBrw:nAt

Saludos

Manuel Mercado

[mantonio_08]

Manuel:

Mil gracias por tu ayuda.

Saludos,

Antonio

[Aitue]

Manuel

Me agrego a los agradecimiento, siempre dispuesto a entregar.

Rafael