BOTON CELDA EDIT_BTN EN XBROWSE TIPO POPUP

[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...

[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 


 

[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


 

[joseluisysturiz]

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

[joseluisysturiz]

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

[joseluisysturiz]

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

[cnavarro]

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

Pd.: estás duplicando los mensajes

[cnavarro]

Mira aqui y la data bBtnAction, creo que se llama

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

[joseluisysturiz]

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

[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

 

[joseluisysturiz]

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

[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.