Problema con bRClicked y con cTooltip con la clase SBUTTON

[Loren]

Estimados compañeros:

Tengo 2 problemas:
1) Quiero que se muestre un menu pop-up al hacer click con el 2º boton del raton, pero el menú se me muestra en la parte superior izqda. de la pantalla.
Este el código:
Define Dialog....
redefine sbutton aforo[1] ....
aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol ) }
Activate Dialog.....

funct dblmenu( nRow, nCol)
Local oMenu
C5MENU oMenu POPUP
c5menuitem 'prueba'
C5ENDMENU
ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog
Return

2) En la clase TSBUTTON del Maestro Manuel Mercado, intento establecer un Tooltip en el sbutton, pero no me genera nada.

Define Dialog....
redefine sbutton aforo[1] ....
aforo[1]:cTooltip:='Esto es una prueba'
Activate Dialog.....

Podría hacerlo mediante Redefine sbutton aforo[1] tooltip 'hola'.....
pero necesito hacerlo tal y como muestro en el ejemplo.

Mil gracias
LORENZO.

[mmercado]

1) Quiero que se muestre un menu pop-up al hacer click con el 2º boton del raton, pero el menú se me muestra en la parte superior izqda. de la pantalla.

aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol ) }

funct dblmenu( nRow, nCol)
Local oMenu
C5MENU oMenu POPUP
c5menuitem 'prueba'
C5ENDMENU
ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog
Return

Cambia tu código:

Code: Select all

aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol, aforo[1] ) } 

funct dblmenu( nRow, nCol, oBtn ) 
Local oMenu 
C5MENU oMenu POPUP 
c5menuitem 'prueba' 
C5ENDMENU 
ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn 
Return 

2) En la clase TSBUTTON del Maestro Manuel Mercado, intento establecer un Tooltip en el sbutton, pero no me genera nada.
aforo[1]:cTooltip:='Esto es una prueba'

Cambia tu código:

Code: Select all

aforo[1]:cTooltip := aforo[1]:cTipTool := 'Esto es una prueba'

Saludos

Manuel Mercado

[Loren]

Estimado Maestro:
Lo primero es darle Mil gracias por su respuesta

Respecto a la 2º duda (Tooltip), funcionó perfecto.
Respecto a la 1º duda, comentarle que:

Mi codigo es:

for x=1 to 620
aforo[x]:bRClicked:={ |nRow, nCol, nFlags, x | GenBlock1(nRow, nCol, aforo[x], x) }
next

funct GenBlock1( nRow, nCol, oBtn , x )
return { || dblmenu( nRow, nCol, oBtn ,x ) }

funct dblmenu( nRow, nCol, oBtn, x )
Local oMenu
C5MENU oMenu POPUP
c5menuitem 'prueba'
C5ENDMENU
ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn
Return

Pero me genera un error del tipo "Error BASE/1068 Argument error: array access", y creo que es porque X adquiere un valor fuera del array: en este caso X=621

¿ Como soluciono este problema ?
Mil gracias de nuevo.
LORENZO

[mmercado]

for x=1 to 620
aforo[x]:bRClicked:={ |nRow, nCol, nFlags, x | GenBlock1(nRow, nCol, aforo[x], x) }
next

funct GenBlock1( nRow, nCol, oBtn , x )
return { || dblmenu( nRow, nCol, oBtn ,x ) }

funct dblmenu( nRow, nCol, oBtn, x )
Local oMenu
C5MENU oMenu POPUP
c5menuitem 'prueba'
C5ENDMENU
ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn
Return

Si es lo que me imagino, así debería funcionar:

Code: Select all

For x := 1 To 620
   aforo[x]:bRClicked:={ |oBtn, nRow, nCol | dblmenu( oBtn, nRow, nCol ) }
   aforo[x]:Cargo := x
Next

Function dblmenu( oBtn, nRow, nCol )

   Local oMenu, ;
         nAsiento := oBtn:Cargo

   C5MENU oMenu POPUP
   C5menuitem 'prueba' ACTION LoQueQuierasCon( nAsiento )
   C5ENDMENU
   ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn
Return Nil

Espero te sirva

Manuel Mercado

[Loren]

Sr.:

Imaginaba Ud. muy bien..... Su sabiduría me sorprende... Funcionó perfecto

Mil gracias de nuevo, maestro.
LORENZO