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 Expand view RUN
@ 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())
