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.),)}
