Hiermit kannste ein AVI-Video ohne Rahmen,
ect abspielen, benutzt wird dazu ein Controll.
Das Controll sollte genau die grösse haben,
wie das AVI-Video ...
'AVI Animate unter Profan 32, ohne Fenster
DEF @CreateAnimate(6) @control("SysAnimate32",@$(2),$50800007,@%(3),@%(4),@%(5),@%(6),@%(1),101, %HInstance)
WindowStyle 26
WindowTitle " Animate 32"
Window 1,1-320,240
Settruecolor 1
cls rgb(75,75,192)
declare ende%
declare animate&
declare b1%,b2%, b3%
Declare avi#
proc PlayAVI
parameters avi$,nx1%, ny1%, nx2%, ny2%
Dim avi#,255
let Animate&=CreateAnimate(%Hwnd,"",nx1%,ny1%,nx2%,ny2%)
String avi#,0=avi$
sendmessage(Animate&,$464,0,avi#) 'ACM_OPEN = WM_USER + 100
Dispose avi#
endproc
let b1% = @Createbutton(%Hwnd,"Start",10,10,90,20)
let b2% = @CreateButton(%Hwnd,"Stop" ,100,10,90,20)
let b3% = @Createbutton(%Hwnd,"Close",200,10,90,20)
PlayAVI "film.avi" ,70,70,150,80
Dim avi#,255
String avi#,0 = "film.avi"
Let Ende%=0
Whilenot Ende%
Case getfocus(b2%) : sendmessage(Animate&,$466,0,0) 'ACM_STOP = WM_USER + 102
Case getfocus(b1%) : sendmessage(Animate&,$464,0,avi#) 'ACM_OPEN = WM_USER + 100
Case or(equ(%Key,4),getfocus(b3%)) : ende% = 1
wend
Dispose avi#
'---------------------------
'ICC_ANIMATE_CLASS = $80
'ANIMATE_CLASS = "SysAnimate32"
'WM_USER = $400
'ACS_CENTER = $1
'ACS_TRANSPARENT = $2
'ACS_AUTOPLAY = $4
'ACM_OPEN = WM_USER + 100
'ACM_PLAY = WM_USER + 101
'ACM_STOP = WM_USER + 102
'WS_EX_TRANSPARENT = $20
'-------------------------
|