Usando o Flash no Dialog

[gralak]

Galera tentei usar aki o evento do flash para emular os arquivos .swf se for no form MAIN function blzinha mas eu preciso fazer funcionar no Dialog alguém tem alguma idéia de como fazer pois quando eu executo o metodo da erro que e o Windows executou uma operação ilegal ....

[esbasso]

Poderia postar o codigo e o erro que ocorre

[gralak]

ok Segue o código lembrando que o erra que da é o erro do WINDOWS que ( executou uma operação ilegal e preicsa ser fec

flash.prg

esse não funciona

(931 Bytes) Baixado 108 vezes

hado ) ok

[esbasso]

DAILOGS e WINDOWS tem criação diferente.
o DIALOG é criado por ultimo , apos os objetos, ao contrario do WINDOW que é criado antes dos objetos
Portando existe uma diferença quando se relaciona um determinado objeto

INIT WINDOW oMainWnd TITLE "FlashPlayer example" AT 200,0 SIZE 500,400

MENU OF oMainWnd
MENU TITLE "File"
MENUITEM "E&xit" ACTION oMainWnd:Close()
ENDMENU
ENDMENU

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

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

ACTIVATE WINDOW oMainWnd


INIT DIALOG oMainWnd TITLE "Teste Flash" ;
AT 0,0 SIZE 500,400;
CLIPPER NOEXIT ;
STYLE WS_SYSMENU + WS_VISIBLE;
ON INIT {|this| oFlash := FlashPlayer( this:oPanel, mypath+"teste.swf", 0, 0, 500, 366 ) }

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

ACTIVATE DIALOG oMainWnd

RETURN oMainWnd:lresult

PORQUE oPanel é criado somente depois do ACTIVATE

[gralak]

Filé do Mundo ....
Vlw obrigado té+++