Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Dialog Video
#1
Hello there!

I was wondering if we could show a video in a Dialog the same way we show images.
For example:

Function imagens_no_dialog
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

if(!ShowDialog("imagens_no_dialog" &imagens_no_dialog)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 Button 0x54032000 0x0 8 10 48 14 "Button"
;END DIALOG
;DIALOG EDITOR: "" 0x2030000 "" "" ""

ret
;messages
int x(100) y(10) wid(200) hei(128) ;;change this
__MemBmp-- mb
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2

,case WM_PAINT
,PAINTSTRUCT p; int dc=BeginPaint(hDlg &p)
,BitBlt dc x y wid hei mb.dc 0 0 SRCCOPY
,EndPaint hDlg &p

ret
;messages2
sel wParam
,case 3
,if(!OpenSaveDialog(0 _s "bmp, jpg, gif[]*.bmp;*.jpg;*.gif[]")) ret
,int hb=LoadPictureFile(_s); if(!hb) ret
,hb=CopyImage(hb IMAGE_BITMAP wid hei LR_COPYDELETEORG|LR_COPYRETURNORG)
,mb.Attach(hb)
,RedrawWindow hDlg 0 0 RDW_INVALIDATE
,
,case IDOK
,case IDCANCEL
ret 1

I want to be able to do this but with video. Is it possible?

Thank you very much one more time!

Take care! Big Grin
#2
Finding All similar Files + flash in dialog + text color
#3
Hey Gintaras,

So I read the topic you gave me but the thing is that when the Dialog opens the Video, I don't get any sound =\

This is my code:

Function Dialog3
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

typelib ShockwaveFlashObjects {D27CDB6B-AE6D-11CF-96B8-444553540000} 1.0

if(!ShowDialog("Dialog3" &Dialog3)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 292 205 "Dialog"
;3 ActiveX 0x54030000 0x0 4 6 292 205 "ShockwaveFlashObjects.ShockwaveFlash {D27CDB6E-AE6D-11CF-96B8-444553540000}"
;END DIALOG
;DIALOG EDITOR: "" 0x2030509 "" "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,ShockwaveFlashObjects.ShockwaveFlash sh3
,sh3._getcontrol(id(3 hDlg))
,sh3.LoadMovie(0 _s.expandpath("$desktop$\paulo.swf"))
,sh3.Play
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
#4
Nevermind!
Problem with the file not the code!!

Thanks Gintaras one more time! Big Grin


Forum Jump:


Users browsing this thread: 1 Guest(s)