[Hwgui-developers] Browse On RIGHCLICK

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

Not work on TAB control

Error BASE/1005  Message not found: HTAB:_OPOPUP
Called from ->__ERRRT_SBASE(0)
Called from ../../../tobject.prg->HTAB:ERROR(0)
Called from ../../../tobject.prg->(b)HBOBJECT(0)
Called from ../../../tobject.prg->HTAB:MSGNOTFOUND(0)
Called from ../../../tobject.prg->HTAB:_OPOPUP(0)
Called from source\menu.prg->HMENU:SHOW(34)


@ 13,60 BROWSE oBrowse1 DATABASE SIZE 536,290 OF oTab ;
STYLE WS_TABSTOP ;
ON RIGHTCLICK {|This, nLine,nCol| oBrowse1_onRightClick( This, nLine,nCol )
}

FUNCTION oBrowse1_onRightClick
Parameters This, nLine,nCol
LOCAL oPopup

CONTEXT MENU oPopup
MENUITEM "Reset to default" ACTION MsgINFO('1')
SEPARATOR
MENUITEM "Zoom" ACTION msginfo("Not yet!")
ENDMENU

oPopup:SHOW( this:oParent )
DBSKIP( nLine - This:rowPos )
This:refresh()
return nil

Best regards,

Itamar M. Lins Jr.