TSButton

[wmormar]

Alguien podria ayudarme con la TSButton, requiero de incluir un menu popup, pero cuando le doy click para desplegar dicho menu, me manda un error de oFont.

Este es el error que me manda.

Error BASE/1004 Class:'NIL' has no exported method: OFONT

Llamadas a la pila:
=============
Llamado desde: OFONT(0)
Llamado desde: MENUMEASUREITEM(2081)
Llamado desde: TSBUTTON:MEASUREITEM(0)
Llamado desde: TWINDOW:HANDLEEVENT(0)
Llamado desde: TCONTROL:HANDLEEVENT(0)
Llamado desde: TSBUTTON:HANDLEEVENT(1152)
Llamado desde: _FWH(0)
Llamado desde: TRACKPOPUP(0)
Llamado desde: TMENU:ACTIVATE(0)
Llamado desde: MNUCATALOGOS(237)
Llamado desde: (b)MKBARRA(191)
Llamado desde: TSBUTTON:LBUTTONDOWN(1227)

Espero ayuda y comentario
Mil gracias de antemano

[Marco A. Delgado]

Hola

debes declarar un FONT para que el menu se escriba puedes hacer esto:

Code: Select all  Expand view

             DEFINE SBUTTON oBtn2[9] OF oBar2 ;
                    CAPTION "Reportes"  ;
                    FONT oDlg:oFont        ;    //AQUI DECLARAS EL FONT
                    MESSAGE " Reportes del Sistema" ;
                    LOOK W97            ;
                    GROUP               ;
                    MENU ACTION MenuPop1( oBtn2[9] )

*******************************
Static Function MenuPop1( oBtn )
  Local oMenu, aRect

  aRect := GetClientRect( oBtn:hWnd )

    MENU oMenu POPUP
       MENUITEM "Recibos de &Operador" + Chr(9) + "F3"
       SEPARATOR
       MENUITEM "Reporte de Recaudadora" + Chr(9) + "F4"
    ENDMENU

    ACTIVATE POPUP oMenu AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBtn

Return(Nil)


Espero te sirva

Saludos
Marco A. Delgado

[wmormar]

Hola

debes declarar un FONT para que el menu se escriba puedes hacer esto:

Code: Select all  Expand view

             DEFINE SBUTTON oBtn2[9] OF oBar2 ;
                    CAPTION "Reportes"  ;
                    FONT oDlg:oFont        ;    //AQUI DECLARAS EL FONT
                    MESSAGE " Reportes del Sistema" ;
                    LOOK W97            ;
                    GROUP               ;
                    MENU ACTION MenuPop1( oBtn2[9] )

*******************************
Static Function MenuPop1( oBtn )
  Local oMenu, aRect

  aRect := GetClientRect( oBtn:hWnd )

    MENU oMenu POPUP
       MENUITEM "Recibos de &Operador" + Chr(9) + "F3"
       SEPARATOR
       MENUITEM "Reporte de Recaudadora" + Chr(9) + "F4"
    ENDMENU

    ACTIVATE POPUP oMenu AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBtn

Return(Nil)


Espero te sirva

Saludos
Marco A. Delgado

Nooop, sigue igual.

Lo he hecho en el orden que me indicas y tampoco.

Saludos, sigo pendiente