FiveTech Support Forums

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.

Loren wrote:
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

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

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

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

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

Loren wrote: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

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

Sr.:

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

Mil gracias de nuevo, maestro.
LORENZO