FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 03:15 PM

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... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 08:59 PM
José Luis

Quizas ésto te ayude.
Code (fw): Select all Collapse
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
Saludos,



Adhemar C.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 09:07 PM
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 (fw): Select all Collapse
METHOD CreateButtons( .... 

      if ValType( ::bCreateBtn ) == 'B'
         Eval( ::bCreateBtn, Self )
      endif
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 09:32 PM
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 (fw): Select all Collapse
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

viewtopic.php?f=3&t=38036#p227277

saludos, gracias... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 09:34 PM
acuellar wrote:José Luis

Quizas ésto te ayude.
Code (fw): Select all Collapse
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

viewtopic.php?f=3&t=38036#p227277

saludos, gracias... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 09:55 PM
acuellar wrote:José Luis

Quizas ésto te ayude.
Code (fw): Select all Collapse
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

viewtopic.php?f=3&t=38036#p227277

saludos, gracias... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 09:57 PM

Te refieres a los botones "+" y "-" ?

Pd.: estás duplicando los mensajes

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 10:33 PM

Mira aqui y la data bBtnAction, creo que se llama

http://forums.fivetechsupport.com/viewt ... 15#p225076

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 10:59 PM
cnavarro wrote:Mira aqui y la data bBtnAction, creo que se llama

http://forums.fivetechsupport.com/viewt ... 15#p225076


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... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Wed Nov 13, 2019 11:33 PM
A ver si ahora me he enterado de lo que necesitas
Después del CreateFromCode
Code (fw): Select all Collapse
    obrw:aCols[   n    ]:oBtnList:bAction := { || MenuPopup() }   // La posicion del menu la puedes calcular por el nBottom del boton, no lo he probado
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Thu Nov 14, 2019 12:09 AM
cnavarro wrote:A ver si ahora me he enterado de lo que necesitas
Después del CreateFromCode
Code (fw): Select all Collapse
    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... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP
Posted: Thu Nov 14, 2019 12:28 AM
Jose Luis, me refiero que al hacer el POPMENU, en el activate has de decirle la fila y columna donde aparece
Code (fw): Select all Collapse
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.
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion

Static archive · New replies & topics via GitHub Discussions