based on CLASS Tvlc from carlos vargas
https://forums.fivetechsupport.com/viewtopic.php?t=36205
i wrote CLASS FWTVlc which include Codeblock Slot for Events and Menu
https://forums.fivetechsupport.com/viewtopic.php?t=42025
- Code: Select all Expand view
- // ActiveX have no Property bRClicked so ADD it
::bRClicked = { | nRow, nCol | VLC_Menu( oWnd, nRow, nCol, ::oControl, ::nIndex ) }
i have try Method VLC_Menu() but it "hang" so i use Function VLC_Menu()
- Code: Select all Expand view
- FUNCTION VLC_Menu( oDlg, nRow, nCol, oVLCX, nIndex )
LOCAL oPopup
LOCAL lisObj := .F.
DEFAULT nIndex TO 1
IF hb_isObject( oVLCX )
lisObj := .T.
MENU oPopup POPUP
MENUITEM "&POPUP Menu" ACTION MsgInfo( "Hello world " + VAR2CHAR( nIndex ) )
SEPARATOR
MENUITEM "&load Media" ACTION MP_LoadFile( oVLCX, nIndex )
SEPARATOR
MENUITEM "play &Next" ACTION MP_PlayNext( oVLCX, nIndex )
ENDMENU
ACTIVATE POPUP oPopup WINDOW oDlg AT nRow, nCol
ENDIF
RETURN nil
now i want to call
- Code: Select all Expand view
- PROCEDURE MP_PlayNext( oVLCX, nIndex )
IF hb_isObject( oVLCX )
// SysRefresh()
MsgInfo( "ready to play Next" )
oVLCX:Stop()
oVLCX:Play_Next()
ELSE
MsgInfo( "Error Object", "MP_PlayNext()" )
ENDIF
RETURN
---
when use SysRefresh() it still "hang" but when using MsgInfo() it work
![Surprised :o](./images/smilies/icon_surprised.gif)
so my Question : what can i use instead of MsgInfo() and "why" is it working while other "hang"
![Question :?:](./images/smilies/icon_question.gif)