Page 1 of 1

TSButton

Posted: Sat Feb 04, 2006 4:50 pm
by 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

Posted: Sat Feb 04, 2006 8:47 pm
by Marco A. Delgado
Hola

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

Code: Select all

             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

Posted: Sun Feb 05, 2006 12:35 am
by wmormar
Marco A. Delgado wrote:Hola

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

Code: Select all

             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