Duda Tsbrowse

Duda Tsbrowse

Postby mantonio_08 » Fri Apr 25, 2008 9:36 pm

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.),)}
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Postby Aitue » Sat Apr 26, 2008 4:11 pm

Hola:

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

Saludos

Rafael
Aitue
 
Posts: 14
Joined: Tue Apr 08, 2008 9:17 pm

Postby mmercado » Sat Apr 26, 2008 4:42 pm

Aitue wrote: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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby mantonio_08 » Sat Apr 26, 2008 4:51 pm

Manuel:

Mil gracias por tu ayuda.

Saludos,

Antonio
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Postby Aitue » Sat Apr 26, 2008 4:53 pm

Manuel

Me agrego a los agradecimiento, siempre dispuesto a entregar.

Rafael
Aitue
 
Posts: 14
Joined: Tue Apr 08, 2008 9:17 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 51 guests