I was wondering, is a round window like the below achievable with purebasic?
round window showing video
Re: round window showing video
Yes it can be done with PB
Search the forum for x-ray
Quick hack for Windows
Search the forum for x-ray
Quick hack for Windows
Code: Select all
If InitMovie() = 0
MessageRequester("Error", "Can't initialize movie playback !", 0)
End
EndIf
If OpenWindow(0, 0, 0, 400, 400, "Magnify", #PB_Window_ScreenCentered|#PB_Window_BorderLess)
StickyWindow(0, 1)
Region = CreateEllipticRgn_(100, 100, 300, 300)
SetWindowRgn_(WindowID(0), Region, #True)
DeleteObject_(Region)
MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
If MovieName$
If LoadMovie(0, MovieName$)
PlayMovie(0, WindowID(0))
EndIf
EndIf
EndIf
Repeat
Select WaitWindowEvent(1)
Case #WM_KEYDOWN
If EventwParam() = 27
Quit = 1
EndIf
EndSelect
Until quit = 1
Egypt my love
Re: round window showing video
Wow amazing. Thanks!!