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
Slider Effects
Started by
Invalid User
, Sep 07 2005 08:35 AM
3 replies to this topic
This mocks The slider effect from Cool Edit Pro2.0
#1
-
Posted 07 September 2005 - 08:35 AM
my lame sig
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
#2
-
Posted 07 September 2005 - 09:09 AM
my lame sig
They look really cool. The first version reacts to the arrow keys better (smother) on my PC.
#3
-
Posted 07 September 2005 - 02:48 PM
Lol, thanks for reminding me about the arrows. I forgot of them as input to this control.
#4
-
Posted 07 September 2005 - 06:25 PM
my lame sig