iamtheky Posted January 12, 2011 Posted January 12, 2011 (edited) throws twelve squares in checkerboard fashion over a flash video and removes them one by one. Currently it only looks appealing for unveiling smaller flash videos within the larger one. So for a single video, Anybody know where I can find a nice set of GDI curtains? If I have to do small boxes I would prefer to not write it out a hundred times so any methods of doing it with GUIs, albeit a tad more dynamically would be very welcome as well. Edit:: Better Example expandcollapse popup#include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <array.au3> Opt("GUIOnEventMode", 1) Opt("GUICloseOnESC", 1) $width = @desktopwidth $height = @desktopheight Global $Object = ObjCreate("SAPI.SpVoice") Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10") Global $flash = GUICreate("Videos", @desktopwidth, @desktopheight + 20, 0, 0, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GuiSetState (@SW_SHOW , $flash) GUICtrlCreateObj($oRP, 0, 0, @DesktopWidth, @DesktopHeight + 20) With $oRP .bgcolor = "#000000" .Movie = "http://www.youtube.com/v/x6DD1k4BAUg?fs=1&hl=en_US&autoplay=1" .ScaleMode = 1 .Loop = 'True' .wmode = "transparent" .FlashVars = "" .menu = 'True' .play() EndWith $xCenter = (@DesktopWidth / 2) - 150 $yCenter = (@DesktopHeight / 2) - 150 Global $flash1 = GUICreate("Videos1", 300 , 300, $xCenter - 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash1) Global $boRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10") Global $flash2 = GUICreate("Videos2", 300 , 300, $xCenter + 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUICtrlCreateObj($boRP, -1, -1, $xCenter - 80, $yCenter + 80) GUISetBkColor (0x000000 , $flash2) With $boRP .bgcolor = "#000000" .Movie = "http://www.youtube.com/v/Q8_6aa-TTvI?amp;hl=en_US&autoplay=1" .ScaleMode = 1 .Loop = 'True' .wmode = "transparent" .FlashVars = "" .menu = 'True' .play() EndWith Global $flash2a = GUICreate("Videos2a", 300 , 300, $xCenter + 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash2a) Global $flash3 = GUICreate("Videos3", 300 , 300, $xCenter , $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash3) Global $flash4 = GUICreate("Videos4", 300 , 300, $xCenter , $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash4) Global $flash5 = GUICreate("Videos5", 300 , 300, $xCenter - 600, $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash5) Global $flash6 = GUICreate("Videos6", 300 , 300, $xCenter - 600, $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash6) Global $flash7 = GUICreate("Videos7", 300 , 300, $xCenter + 600, $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash7) Global $flash8 = GUICreate("Videos8", 300 , 300, $xCenter + 600, $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash8) Global $flash9 = GUICreate("Videos9", 300 , 300, $xCenter + 300, $yCenter - 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash9) Global $flash10 = GUICreate("Videos10", 300 , 300, $xCenter + 300, $yCenter + 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash10) Global $flash11 = GUICreate("Videos11", 300 , 300, $xCenter - 300, $yCenter - 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash11) Global $flash12 = GUICreate("Videos12", 300 , 300, $xCenter - 300, $yCenter + 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST)) GUISetBkColor (0x000000 , $flash12) GUISetState (@SW_SHOW , $flash1) GuiSetState (@SW_SHOW , $flash2a) GuiSetState (@SW_SHOW , $flash3) GuiSetState (@SW_SHOW , $flash4) GuiSetState (@SW_SHOW , $flash5) GuiSetState (@SW_SHOW , $flash6) GuiSetState (@SW_SHOW , $flash7) GuiSetState (@SW_SHOW , $flash8) GuiSetState (@SW_SHOW , $flash9) GuiSetState (@SW_SHOW , $flash10) GuiSetState (@SW_SHOW , $flash11) GuiSetState (@SW_SHOW , $flash12) sleep (2000) GUIDelete ($flash9) sleep (2000) GUIDelete ($flash6) sleep (2000) GUIDelete ($flash7) sleep (2000) GUIDelete ($flash12) sleep (2000) GUIDelete ($flash5) sleep (2000) GUIDelete ($flash3) sleep (2000) GUIDelete ($flash8) sleep (2000) GUIDelete ($flash11) sleep (2000) GUIDelete ($flash10) sleep (2000) GUIDelete ($flash1) sleep (2000) GUIDelete ($flash4) sleep (2000) GUIDelete ($flash2a) GuiSetState (@SW_SHOW , $flash2) while 1 GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_CLOSE") Wend Func GUI_Close() GUICtrlDelete ($oRP) GUIDelete($flash) Exit EndFunc Edited January 12, 2011 by iamtheky ,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-. |(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/ (_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_) | | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) ( | | | | |)| | \ / | | | | | |)| | `--. | |) \ | | `-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_| '-' '-' (__) (__) (_) (__)
iamtheky Posted January 13, 2011 Author Posted January 13, 2011 (edited) better, hippie example for the video in video action. My first try on a GDI that erases itself leaving the video behind was quite sketchy so I am bumping this thread in hopes something better comes along. Edited January 13, 2011 by iamtheky ,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-. |(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/ (_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_) | | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) ( | | | | |)| | \ / | | | | | |)| | `--. | |) \ | | `-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_| '-' '-' (__) (__) (_) (__)
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now