;TransparentMove ;By jgpaiva ;date: September 2006 ;Function: When the user presses ctrl and drags the window, it becomes trasnparent and is moved. ScriptVersion := 1.0 ScriptName = TransparentMove ScriptUrl = http://www.donationcoder.com/Forums/bb/index.php?topic=5536 ScriptSugest = Cheeaun FileInstall,Cody.png,Cody.png,1 ;to include images on the executable Menu,tray,NoStandard Menu,Tray,add,About,ShowGui Menu,tray,default,About Menu,Tray,Tip,%ScriptName% v%ScriptVersion% Menu,Tray,add,Exit,exit SetWinDelay, -1 Return #InstallMouseHook #installKeybdhook #MaxThreadsPerHotkey,1 ^lbutton:: CoordMode,Mouse,Screen MouseGetPos,OldMouseX,OldMouseY WinGetPos,OldWindowX,OldWindowY,WindowWidth,WindowHeight,A WinGetClass,WindowClass,A WingetTitle,WindowTitle,A If (WindowClass = "Progman" OR WindowClass = "Shell_TrayWnd" OR WindowClass = "" OR WindowTitle = "") return WinSet,Transparent,150,A loop { MouseGetPos,MouseX,MouseY KeyWait,LButton,D,t0.01 if errorlevel { break } if (OldMouseX - MouseX != 0 OR OldMouseY - MouseY != 0) { WinMove,A,,% OldWindowX + MouseX - OldMouseX,% OldWindowY + MouseY - OldMouseY OldMouseX := MouseX OldMouseY := MouseY WinGetPos,OldWindowX,OldWindowY,WindowWidth,WindowHeight,A } } WinSet,Transparent,OFF,A return ;ABOUTBOX: ShowGui: Gui, add, tab,w420 h420,About| ;*****************About Gui,tab,About ;The following loads the icon file into the about box, based on the script's name: IfExist, %Scriptname%.ico Gui, add, Picture, x15, y25,%Scriptname%.ico else IfExist %Scriptname%.exe Gui, add, picture, x15, y35, %Scriptname%.exe,1 ;The usual text, most of it dynamicly written, based on the variables set at the beggining of the script: Gui, font, bold s10 Gui, add, text, x65 y45, %Scriptname% v%ScriptVersion% by jgpaiva`n Gui, Font, Gui, Font, s10 ;this is the only text that needs to be changed: Gui, Add ,Text,x15 y95 w410 ,This is a small script useful for moving windows in style. Pressing ctrl and dragging a window will make it become transparent. Gui, Add ,Text,X15 Y220,It was suggested by %ScriptSugest% at DonationCoder.com forums, `nin the following thread: Gui, Font,CBlue Underline Gui, Add ,Text,X15 Y255 GPost,%ScriptUrl% Gui, Font Gui, Font, s10 Gui, Add ,Text, y280 X15,`nPlease visit us at: Gui, Font,CBlue Underline s10 Gui, Add ,Text, y313 X15 GMainSite,http://www.donationcoder.com/ Gui, Font ;if the cody.png image exists, it's placed in the about box: IfExist,Cody.png Gui, Add ,Picture, Y290 X280,Cody.png Gui, Add ,Button,y350 x15 gdonateAuthor w116 h30,Donate to the &Author Gui, Font, s9 Gui, Add ,Text,y400 x15 h10,If you like this program please make a donation to help further development. Gui, Show return ;now, the stuff needed for the about box buttons: Post: Run,%ScriptUrl% GoSub,GuiCLOSE return MainSite: Run,http://www.donationcoder.com/ GoSub,Guiclose return DonateSite: Run,http://www.donationcoder.com/Donate/index.html GoSub,Guiclose return DonateAuthor: Run,https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=jgpaiva`%40gmail`%2ecom&item_name`=donate`%20to`%20jgpaiva&item_number`=donationcoder`%2ecom&no_shipping=1&cn=Please`%20drop`%20me`%20a`%20line`%20`%3aD&tax`=0¤cy_code=EUR&bn=PP`%2dDonationsBF&charset=UTF`%2d8 GoSub,Guiclose return GuiClose: buttonok: gui,destroy return Exit: exitapp