Page 1 of 1
BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 3:15 pm
by joseluisysturiz
Saludos, no se si ya esto existe, me gustaria saber si es posible que el boton que se usa en las celdas del xBrowse, creo Edit_Btn, puede ser como un popup, es decir que despliegue para varias opciones cuando se pulse sobre el.? si es asi como se hace y si no, cuales alternativas hay para hacer algo parecido? gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 8:59 pm
by acuellar
José Luis
Quizas ésto te ayude.
Code: Select all
oBrw:bRClicked = { | nRow, nCol | MenuPop( nRow, nCol) } //Con botón derecho
.....
Function MenuPop( nRow, nCol )
Local oMenu
MENU oMenu POPUP 2010
MENUITEM "Nueva" RESOURCE "ADD" ACTION AddRec()
MENUITEM "Elimina" RESOURCE "BORRA" ACTION Borra()
ENDMENU
ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
Return
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 9:07 pm
by cnavarro
Si pones una imagen del botón al que haces referencia me quedará más claro
También ten en cuenta que existe la data
Code: Select all
METHOD CreateButtons( ....
if ValType( ::bCreateBtn ) == 'B'
Eval( ::bCreateBtn, Self )
endif
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 9:32 pm
by joseluisysturiz
cnavarro wrote:Si pones una imagen del botón al que haces referencia me quedará más claro
También ten en cuenta que existe la data
Code: Select all
METHOD CreateButtons( ....
if ValType( ::bCreateBtn ) == 'B'
Eval( ::bCreateBtn, Self )
endif
Navarro, gracias por la rapida respuesta, el boton que me refiero es el que se puede hacer en la celda de un xbrowse asi como este del link que coloco
https://forums.fivetechsupport.com/view ... 36#p227277
saludos, gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 9:34 pm
by joseluisysturiz
acuellar wrote:José Luis
Quizas ésto te ayude.
Code: Select all
oBrw:bRClicked = { | nRow, nCol | MenuPop( nRow, nCol) } //Con botón derecho
.....
Function MenuPop( nRow, nCol )
Local oMenu
MENU oMenu POPUP 2010
MENUITEM "Nueva" RESOURCE "ADD" ACTION AddRec()
MENUITEM "Elimina" RESOURCE "BORRA" ACTION Borra()
ENDMENU
ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
Return
Acuellar gracias por tu rapida respuesta, pero eso no es lo que necesito si no en el boton que se puede usar en una celda del xbrowse, asi como el de este link
https://forums.fivetechsupport.com/view ... 36#p227277
saludos, gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 9:55 pm
by joseluisysturiz
acuellar wrote:José Luis
Quizas ésto te ayude.
Code: Select all
oBrw:bRClicked = { | nRow, nCol | MenuPop( nRow, nCol) } //Con botón derecho
.....
Function MenuPop( nRow, nCol )
Local oMenu
MENU oMenu POPUP 2010
MENUITEM "Nueva" RESOURCE "ADD" ACTION AddRec()
MENUITEM "Elimina" RESOURCE "BORRA" ACTION Borra()
ENDMENU
ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
Return
Acuellar gracias por tu rapida respuesta, pero eso no es lo que necesito si no en el boton que se puede usar en una celda del xbrowse, asi como el de este link
https://forums.fivetechsupport.com/view ... 36#p227277
saludos, gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 9:57 pm
by cnavarro
Te refieres a los botones "+" y "-" ?
Pd.: estás duplicando los mensajes
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 10:33 pm
by cnavarro
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 10:59 pm
by joseluisysturiz
Navarro me refiero a este :nEditType := EDIT_BUTTON, mi pregunta es puede como se hace con el popupbrowse que despliegue botones y asignarle accion a cada uno, asi como se hace en los MENU cuando se usa popup, mi idea es usar una columna que llamo ACCIONES y en cada fila al final si deseo EDITAR, ELIMINAR, IMPRIMIR, etc el registro, hacerlo con una sola columnas, ya que ahora o hago pero para cada accion uso una columna, usando una sola a parte de verse mejor esteticamente, se ahorraria columnas para mostrar otra campo, espero se me entienda lo que sugiero o pregunto. gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 11:33 pm
by cnavarro
A ver si ahora me he enterado de lo que necesitas
Después del CreateFromCode
Code: Select all
obrw:aCols[ n ]:oBtnList:bAction := { || MenuPopup() } // La posicion del menu la puedes calcular por el nBottom del boton, no lo he probado
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Thu Nov 14, 2019 12:09 am
by joseluisysturiz
cnavarro wrote:A ver si ahora me he enterado de lo que necesitas
Después del CreateFromCode
Code: Select all
obrw:aCols[ n ]:oBtnList:bAction := { || MenuPopup() } // La posicion del menu la puedes calcular por el nBottom del boton, no lo he probado
Navarro gracias por tu rapida respuesta o posible solucion, probare lo que dices y comento, no tengo idea como calcular lo de la posicion del menu, lo probare como lo envias y luego vere que puedo hacer, gracias...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Thu Nov 14, 2019 12:28 am
by cnavarro
Jose Luis, me refiero que al hacer el POPMENU, en el activate has de decirle la fila y columna donde aparece
Code: Select all
ACTIVATE MENU oMnu AT nRow, nCol OF oWnd // Aqui será el propio browse, no oWnd
Por lo que le tendrás que pasar a la function que hace el menu el nBottom del boton y el nleft del boton ( porque querrás que el menu te lo ponga debajo del boton, no? ), o pasarle el objeto oBtnList, y calcular nRow y nCol en la propia function, además de pasarle claro el objeto oBrw que es lo más sencillo y haces todos los cálculos en la function que hace el browse. A la hora de pasarle los parámetros tienes muchas posibilidades.