Página 1 de 1

Xailer 1.1 TMenu

Publicado: Mié Oct 18, 2006 11:13 am
por Ingo Junge-Herrmann
Ignacio,
this code:
METHOD BrwContextMenu( oSender, nPosX, nPosY ) CLASS MP1REG
LOCAL oMenu
IF !oSender:SelectCellFromPoint( nPosX, nPosY )
return nil
ENDIF
MENU oMenu POPUP
MENUITEM "Akte ö&ffnen" BITMAP "BBEARB";
ACTION ::Akte()
SEPARATOR
MENUITEM "&neue Akte anlegen" BITMAP "BNEU" ;
ACTION ::NeuAkte(.F.)
MENUITEM "Akte &duplizieren" BITMAP "DUPLEX";
ACTION ::NeuAkte(.T.)
SEPARATOR
MENUITEM "Akte &löschen" BITMAP "BDEL";
ACTION ::Delete()
ENDMENU
oSender:ShowPopupMenu(oMenu,nPosX,nPosY)
RETURN 0
shows now only a white rectangle with 2 separator lines.
How to work around?
Thanks in advance
Ingo