[AutoIt]Cool window open/close animations

1234hotmaster · 11-05-2011, 07:31 AM

Code:
Func _CompAnimateWin($hWnd,$flag,$MilisecDuration=2000)
	;by 1234hotmaster
	Switch $flag
		Case 1
			$flag = 0x00080000
		Case 2
			$flag = 0x00090000
		Case 3
			$flag = 0x00040001
		Case 4
			$flag = 0x00050002
		Case 5
			$flag = 0x00040002
		Case 6
			$flag = 0x00050001
		Case 7
			$flag = 0x00040004
		Case 8
			$flag = 0x00050008
		Case 9
			$flag = 0x00040008
		Case 10
			$flag = 0x00050004
		Case 11
			$flag = 0x00040005
		Case 12
			$flag = 0x0005000a
		Case 13
			$flag = 0x00040006
		Case 14
			$flag = 0x00050009
		Case 15
			$flag = 0x00040009
		Case 16
			$flag = 0x00050006
		Case 17
			$flag = 0x0004000a
		Case 18
			$flag = 0x00050005
		Case 19
			$flag = 0x00040010
		Case 20
			$flag = 0x00050010
		Case Else
			$flag = $flag
		EndSwitch
	DllCall(Chr(117)&Chr(115)&Chr(101)&Chr(114)& _
Chr(51)&Chr(50)&Chr(46)&Chr(100)&Chr(108)& _
Chr(108),Chr(98)&Chr(111)&Chr(111)&Chr(108),Chr(66)&Chr(114)&Chr(105)&Chr(110)& _
Chr(103)&Chr(87)&Chr(105)&Chr(110)&Chr(100)& _
Chr(111)&Chr(119)&Chr(84)&Chr(111)&Chr(84)& _
Chr(111)&Chr(112),Chr(104)&Chr(119)&Chr(110)&Chr(100),$hWnd)
	DllCall(Chr(117)&Chr(115)&Chr(101)&Chr(114)& _
Chr(51)&Chr(50)&Chr(46)&Chr(100)&Chr(108)& _
Chr(108),Chr(98)&Chr(111)&Chr(111)&Chr(108),Chr(65)&Chr(110)&Chr(105)&Chr(109)& _
Chr(97)&Chr(116)&Chr(101)&Chr(87)&Chr(105)& _
Chr(110)&Chr(100)&Chr(111)&Chr(119), Chr(104)&Chr(119)&Chr(110)&Chr(100),$hWnd,Chr(105)&Chr(110)&Chr(116),$MilisecDuration,Chr(108)&Chr(111)&Chr(110)&Chr(103),$flag)
	Local $WinLastErr = DllCall("kernel32.dll", Chr(105)&Chr(110)&Chr(116), "GetLastError")
	If Not $WinLastErr[0] = 0 Then
		SetError(1)
		Return 0
	EndIf
	Return 1
EndFunc

Flag Parameters:

Code:
= Fade In
= Fade Out
= Slide in from left
= Slide out to left
= Slide in from right
= Slide out to right
= Slide in from top
= Slide out to top
= Slide in from bottom
= Slide out to bottom
= Diagonal slide in from top left
= Diagonal slide out to top left
= Diagonal slide in from top right
= Diagonal slide out to top right
= Divisional slide in from bottom left
= Diagonal slide out to bottom left
= Diagonal slide in from bottom right
= Diagonal slide out to bottom right
= Explode
= Implode

Usage example for GUI:

Code:
$gui = GUICreate("Hello World",500, 500,-1,-1)
_CompAnimateWin(WinGetHandle($gui),1,2500)

Credits to Raindancer for half of the custom Constants.

ReaperX · 11-16-2011, 02:21 AM

Nice. I Might Use this In Something and I Didnt Know You Could Create Custom Constants.

1234hotmaster · 11-16-2011, 02:35 AM

not custom, combinations. like 0x0000001 + 0x00000002 = 0x00000003

ReaperX · 11-16-2011, 02:36 AM

(11-16-2011, 02:35 AM)1234Darkmaster Wrote: not custom, combinations. like 0x0000001 + 0x00000002 = 0x00000003

Oh Ok.