Guest User

Untitled

a guest
Nov 15th, 2011
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance,force
  2. #persistent
  3. SetBatchLines,-1
  4. SetTitleMatchMode,1
  5. menu,tray,icon,%windir%\system32\stobject.dll,28
  6. #ifWinActive Trim Editor ahk_class #32770
  7.     $LButton::TrimEditor_MouseClickHandler()
  8.     PgDn::TrimEditor_IncPos(24)
  9.     PgUp::TrimEditor_IncPos(-24)
  10. #ifWinActive
  11.  
  12. TrimEditor_MouseClickHandler()
  13. {
  14.     CoordMode,mouse,relative
  15.     MouseGetPos,mx,my,mw,mctl
  16.     if( mctl != "msctls_trackbar321" )
  17.     {
  18.         sendEvent, % "{" substr(A_ThisHotkey,2) "}"
  19.         return
  20.     }
  21.  
  22.     MouseGetPos,mx,my,mw,mctl
  23.     ControlGetPos,cx,cy,cw,ch,msctls_trackbar321,A
  24.  
  25.     SendMessage,TBM_GETPOS:=0x400,0,0,msctls_trackbar321,A
  26.     cpos:=ErrorLevel
  27.  
  28.     SendMessage,TBM_GETRANGEMIN:=0x401,0,0,msctls_trackbar321,A
  29.     cmin:=ErrorLevel
  30.  
  31.     SendMessage,TBM_GETRANGEMAX:=0x402,0,0,msctls_trackbar321,A
  32.     cmax:=ErrorLevel
  33.  
  34.     SendMessage,TBM_SETPOS:=0x405,-1,% newpos>=0 ? newpos : (mx<cx ? 0 : ((mx>cx+cw) ? cmax : round((mx-cx-16)/(cw-32)*(cmax-cmin),0))),msctls_trackbar321,A
  35.     ControlClick,msctls_trackbar321,A,,L
  36. }
  37.  
  38.  
  39. TrimEditor_IncPos( step )
  40. {
  41.     SendMessage,TBM_GETPOS:=0x400,0,0,msctls_trackbar321,A
  42.     SendMessage,TBM_SETPOS:=0x405,-1,% ErrorLevel+step,msctls_trackbar321,A
  43.     ControlSend,msctls_trackbar321,% step>0 ? "{Right}" : "{Left}",A
  44. }
  45.  
  46.  
Advertisement
Add Comment
Please, Sign In to add comment