I try to use it within Resource. but not work. Someone know it? Thank you.
- Code: Select all Expand view
oVMenu := TVistaMenu():Redefine( 1000, oDlg, , )
oVMenu:nColumns := 1
oVMenu:nType := 2
oItem := oVMenu:AddItem( "Sistema y mantenimiento " )
- Error description: Error BASE/1123 Argument error: AADD
Args:
[ 1] = U
[ 2] = O TVISTAMENUITEM
Stack Calls
===========
Called from: => AADD( 0 )
Called from: .\source\classes\VISTAMNU.PRG => TVISTAMENU:ADDITEM( 135 )