#include "hwgui.ch"
#include "hbclass.ch"

Function Main
Local oMainWnd, oPanel
Local mypath := curdrive()+":\" + CURDIR() + IIF( EMPTY( CURDIR() ), "", "\" )
Private oFlash


INIT DIALOG oMainWnd TITLE "Teste Flash" ;
AT 0,0 SIZE 500,400;
CLIPPER  NOEXIT  ;
STYLE WS_SYSMENU + WS_VISIBLE;

   @ 0,0 PANEL oPanel SIZE 500,366 ON SIZE {|o,x, y| o:Move(,,x,y)}

   oFlash := FlashPlayer( oPanel, mypath+"teste.swf", 0, 0, 500, 366 )

RETURN oMainWnd:lresult

CLASS ShockwaveFlash FROM HActiveX
CLASS VAR winclass INIT "ShockwaveFlash"
  METHOD New()
ENDCLASS


METHOD New(p1,p2,p3,p4,p5,p6) CLASS ShockwaveFlash
  Super:New(p1,p2,p3,p4,p5,p6)
RETURN

function FlashPlayer(oWindow, cFlashFile, col, row, nHeight, nWidth)
    local oFlash

    oFlash := ShockwaveFlash():New( oWindow, "ShockwaveFlash.ShockwaveFlash.1", 0, 0, nHeight, nWidth )
    oFlash:LoadMovie(0,cFlashFile)

return oFlash