Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Slider Effects


  • Please log in to reply
3 replies to this topic
Invalid User
  • Members
  • 447 posts
  • Last active: Mar 27 2012 01:04 PM
  • Joined: 14 Feb 2005
This mocks The slider effect from Cool Edit Pro2.0
WinTitle = Slider_Snap

;Sensitivity level for change

Sen = 100

;Sensitivity level for return

RSen = 1

Gui, Add, Slider, vSlideVal Range-50-50 x6 y7 w170 h30, 0

Gui, Add, Text, vDispVal x6 y47 w170 h20, 0

Gui, Add, Text, vChangeVal x6 y67 w170 h20

Gui, Show, x223 y23 h88 w182, %WinTitle%

SetTimer, MonitorMouse

SetTimer, MonitorSlider, 200

SetTimer, MonitorSlider, Off

Return

;-----Timers

MonitorMouse:

MouseGetPos, XPos, YPos, %WinTitle%, Ctrl

;MsgBox %Ctrl%

If Ctrl = msctls_trackbar321

{

	SetTimer, MonitorMouse, Off

	SetTimer, MonitorSlider, On

}

Return



MonitorSlider:

MouseGetPos, ,, %WinTitle%, Ctrl

If Ctrl <> msctls_trackbar321

{

	SetTimer, MonitorSlider, Off

	SetTimer, MonitorMouse, On

	Return

}

GetKeyState, Lbs, LButton, P

If Lbs = D

{

	Loop

	{

		GetKeyState, Lbs, LButton, P

		If Lbs = U	

		{

			Gui, Submit, Nohide

			GuiControl, , ChangeVal, ----

			StringLeft, PosNeg, SlideVal, 1

			I = %SlideVal%

			If PosNeg = -

			{

				StringTrimLeft, I, SlideVal, 1

				PosNeg = 1	

			}

			Loop, %I%

			{

				Sleep, %RSen%

				If PosNeg = 1 ;it is negative

					GuiControl,, SlideVal, +1

				Else

					GuiControl,, SlideVal, +-1

			}	

			GuiControl, , ChangeVal, 0

			Break

		}

		Else

		{

			Sleep, %Sen%

			Gui, Submit, NoHide

			DispVal += %SlideVal%

			GuiControl, , Dispval, %DispVal%

			GuiControl, , ChangeVal, %SlideVal%

		}

	}

	GuiControl, , SlideVal, 0

}

Return



F9::Reload

GuiClose:

ExitApp

my lame sig :)

Invalid User
  • Members
  • 447 posts
  • Last active: Mar 27 2012 01:04 PM
  • Joined: 14 Feb 2005
Another smooth effect
WinTitle = Slider_Snap

;Sensitivity level for change

Sen = 100

;Sensitivity level for return

RSen = 50

Gui, Add, Slider, vSlideVal Range-1000-1000 x6 y7 w170 h30, 0

Gui, Add, Text, vDispVal x6 y47 w170 h20, 0

Gui, Add, Text, vChangeVal x6 y67 w170 h20

Gui, Show, x223 y23 h88 w182, %WinTitle%

SetTimer, MonitorMouse

SetTimer, MonitorSlider, 200

SetTimer, MonitorSlider, Off

Return

;-----Timers

MonitorMouse:

MouseGetPos, XPos, YPos, %WinTitle%, Ctrl

;MsgBox %Ctrl%

If Ctrl = msctls_trackbar321

{

	SetTimer, MonitorMouse, Off

	SetTimer, MonitorSlider, On

}

Return



MonitorSlider:

MouseGetPos, ,, %WinTitle%, Ctrl

If Ctrl <> msctls_trackbar321

{

	SetTimer, MonitorSlider, Off

	SetTimer, MonitorMouse, On

	Return

}

GetKeyState, Lbs, LButton, P

If Lbs = D

{

	Loop

	{

		GetKeyState, Lbs, LButton, P

		If Lbs = U	

		{

			Gui, Submit, Nohide

			GuiControl, , ChangeVal, ----

			StringLeft, PosNeg, SlideVal, 1

			I = %SlideVal%

			If PosNeg = -

			{

				StringTrimLeft, I, SlideVal, 1

				PosNeg = 1	

			}

			I := Sqrt(I)

			I2 = %I% 

			Loop, %I%

			{

				I2--

				Sleep, %RSen%

				CVal := I2 * 2

				

				If PosNeg = 1 ;it is negative

					GuiControl,, SlideVal, +%Cval%

				Else

					GuiControl,, SlideVal, +-%Cval%

			}	

			GuiControl, , ChangeVal, 0

			Break

		}

		Else

		{

			Sleep, %Sen%

			Gui, Submit, NoHide

			DispVal += %SlideVal%

			GuiControl, , Dispval, %DispVal%

			GuiControl, , ChangeVal, %SlideVal%

		}

	}

	GuiControl, , SlideVal, 0

}

Return



F9::Reload

GuiClose:

ExitApp

my lame sig :)

Laszlo
  • Moderators
  • 4713 posts
  • Last active: Mar 31 2012 03:17 AM
  • Joined: 14 Feb 2005
They look really cool. The first version reacts to the arrow keys better (smother) on my PC.

Invalid User
  • Members
  • 447 posts
  • Last active: Mar 27 2012 01:04 PM
  • Joined: 14 Feb 2005
Lol, thanks for reminding me about the arrows. I forgot of them as input to this control.
my lame sig :)