Ayuda Seleccionar Columna en Xbrowse "SOLUCIONADO"

Post Reply
remtec
Posts: 431
Joined: Fri May 12, 2017 2:50 pm

Ayuda Seleccionar Columna en Xbrowse "SOLUCIONADO"

Post by remtec »

Hola Amigos.

Tengo un problema, tengo un Xbrowse que tiene 4 columnas, en las columnas 3 y 4, al dar Doble Click sobre ellas, cada una debe mandar a una rutina diferente.

El Problema que al hacer Click, siempre va a la ultima columna.

Muchos Saludos
Antonio

Dejo el codigo:

Code: Select all

     @ 30,10 XBROWSE oBrw SIZE 300,-35 PIXEL OF oDlg1 DATASOURCE "Profe" ;
            HEADERS 'Nombre del Profesional','Especialidad','Vigencia','Agenda';
            COLUMNS 'Nom_Pro','Tip_Esp','Est_Pro','Ate_Hor';
            PICTURES "@!","@!" ,"!","!";
            COLSIZES 280, 85, 70, 70;
      CELL LINES AUTOSORT NOBORDER;
                             oBrw:nMarqueeStyle :=MARQSTYLE_HIGHLROW
                             oBrw:nColDividerStyle := LINESTYLE_RAISED
                             oBrw:nRowDividerStyle := LINESTYLE_RAISED
                                 oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
                                 oBrw:nOpacity    := 230
                                 oBrw:nHeaderHeight      := 35
                                 oBrw:nFreeze       := 2

                                 oBrw:lSeekBar:= .t.

                                 oBrw:bClrStd  := { || If( Eval( oBrw:bKeyNo,,oBrw1) % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) },;
                                          { CLR_BLACK, RGB( 232, 255, 232 ) } ) }    // Efecto Cebra
                                 oBrw:aCols[ 1 ]:oDataFont := oFont7

                                 oBrw:bClrStd       := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                                 oBrw:bClrSelFocus  := {|| { nRGB(  255,  255,  255), nRGB(102, 178, 255) } }
                                 oBrw:bClrSel       := {|| { nRGB(  0,  0,255), nRGB(241,222,088) } }  // para barra de linea selecc cuando el control no tiene el foco
                                 oBrw:lAutoSort := .t.
                                 oBrw:lFooter := .f.
                                 oBrw:lHScroll := .f.
                             oBrw:lIncrFilter   := .F.
                             oBrw:lSeekWild     := .F.                   &&  .T. Busca Contenido, .F. Que comience con lo que digita
                                 oBrw:SetStyle( 2018)
                                 oBrw:nColorPen := CLR_RED
                                 oBrw:bChange := {|| oBrw:Refresh() }
                                 oBrw:aCols[1]:bClrHeader := { || { CLR_HRED,CLR_WHITE } }       // Aplico Color a Una Columna
                                 oBrw:aCols[ 1 ]:oHeaderFont :=  oFont7                  // Aplico Font a una Columna
                                 oBrw:aCols[ 3]:nDataStrAlign := AL_CENTER
                                 oBrw:aCols[ 4]:nDataStrAlign := AL_CENTER

                                WITH OBJECT oBrw:Vigencia

                                            oBrw:bLDblClick:={||Cambia_Esta(), oBrw:Refresh()}

                                END WITH
                                WITH OBJECT oBrw:Agenda

                                            oBrw:bLDblClick:={||Cambia_Agen(), oBrw:Refresh()}
                                        

                                END WITH



                                  oBrw:CreateFromCode()


    @ 253,90 BTNBMP SIZE 30, 30 PROMPT "SALIR"  OF oDlg1 PIXEL 2007 Resource "#8002"  FONT oFont7 ;
            ToolTip  "SALIR DEL SISTEMA";
            ACTION oDlg1:End()


   ACTIVATE DIALOG oDlg1 CENTERED  ON INIT (oBrw:SetFocus())

 
Last edited by remtec on Wed Jan 15, 2020 2:26 am, edited 1 time in total.
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Ayuda Seleccionar Columna en Xbrowse

Post by nageswaragunupudi »

Code: Select all

WITH OBJECT oBrw:Vigencia
   :bLDClickData  := { || Cambia_Esta(), oBrw:Refresh() }
END WITH

WITH OBJECT oBrw:Agenda
   :bLDClickData  := { || Cambia_Agen(), oBrw:Refresh() }
END WITH
 
Regards

G. N. Rao.
Hyderabad, India
remtec
Posts: 431
Joined: Fri May 12, 2017 2:50 pm

Re: Ayuda Seleccionar Columna en Xbrowse

Post by remtec »

Hola Regards,

Muchas gracias por siempre darme tu ayuda.

Funciono PERFECTO.

Muchos Saludos

Antonio.
Post Reply