DEFINE DIALOG oDlg SIZE nWndWidth, nWndHeight ;
STYLE nOr( WS_CHILD, WS_POPUP ) ;
COLOR CLR_BLACK, CLR_WHITE ;
FONT oFont60
DEFINE TIMER oDlgCLose INTERVAL 10000 ACTION iif(MEMVAR->lCloseAll, (MEMVAR->lGoHome := .T., oDlg:End()), )
DEFINE TIMER oTimer[1] INTERVAL 1500 ACTION (lOk := StartScan0(.T., MEMVAR->cImgPath+cTimeFile+'.JPG',.T., oTimer, oSay, oBmp), if(lOk, oDlg:End(), ))
DEFINE TIMER oTimer[2] INTERVAL 100 ACTION (if(oActiveX2:controls:currentPosition > oActiveX2:currentMedia:duration - 0.02, (oActiveX2:controls:currentPosition := 0.02), if(oActiveX2:controls:currentPosition > 0.01, oActiveX2:Show() , ) ))
ACTIVATE DIALOG oDlg CENTER ;
ON INIT (BuildMPlayer2( oDlg, MEMVAR->cGifPath+"idcard.Mp4", 110+MEMVAR->nTopDlg, 151+nPlus2, 720, 406 ), ;
oTimer[1]:Activate(), ;
oTimer[2]:Activate(), ;
oDlgCLose:Activate(), ;
AddGif( oDlg, MEMVAR->cGifPath+"wait.gif" ), oGif:Hide()) ;
ON PAINT (Drawlight(oDlg, nTitleBox, 140+nPlus2, 740, 72 ), ;
Drawlight(oDlg, 90+MEMVAR->nTopDlg, 131+nPlus2, 760, 446 )) ;
VALID (oTimer[2]:Deactivate(), oTimer[2]:End(), ;
oTimer[1]:Deactivate(), oTimer[1]:End(), ;
oDlgCLose:Deactivate(), oDlgCLose:End(), ;
oActiveX2:Url := nil, oActiveX2:Close(), ;
.T.)
*--------------------------------------------------------------------------*
function BuildMPlayer2( oDlg, cFile, nTop, nLeft, nWidth, nHeight )
Memory( -1 )
// oActiveX2 = TActiveX():New( oDlg, "{6BF52A52-394A-11d3-B153-00C04F79FAA6}", nTop, nLeft, nWidth, nHeight )
oActiveX2 = TActiveX():New( oDlg, "WMPlayer.OCX.7", nTop, nLeft, nWidth, nHeight )
// oActiveX2 = TActiveX():New( oDlg, "WMPlayer.OCX", nTop, nLeft, nWidth, nHeight )
oActiveX2:Hide()
oActiveX2:url = cFile
oActiveX2:uiMode('none')
oActiveX2:Settings:Volume = 0
oActiveX2:Settings:AutoStart = .T.
oActiveX2:StretchToFit = .T.
oActiveX2:EnableContextMenu()
oActiveX2:Settings:setMode("loop",.T.)
return nil