AutoHotkey Community

;_________________________________
; OSD for OS X Volume hotkey declaration

volume_up::

   SoundSet, +100/16
   gosub, buildOSD

return

volume_down::

   SoundSet, -100/16
   gosub, buildOSD

return

volume_mute::

   SoundGet,checkmute,,MUTE
   if checkmute = Off
   {
      quietnow = 1
   }
   else
   {
      quietnow = 0
   }

   SoundSet, +1, , mute
   gosub, buildOSD

return

;______________________
; Build OSD for OS X Volume
; Parameter:
;     quietnow - indicates if mute status is off and should switch to on
;     transparent - the transparency at start of the fading

buildOSD:

   transparent = 192 ; starting transparency
   
   ; calculate position by Tekl
   distY = %A_ScreenHeight%
   posY = %A_ScreenHeight%
   distY /= 4
   posY -= %distY%
   
   ; create OSD background
   Gui, Add, pic,x0 y0, %A_ScriptDir%\area.bmp

   ; create OSD speaker
   SoundGet,checkmute,,MUTE
   if checkmute = On
   {
      if quietnow = 1
      {
         currsnd = 0.0
         currsnd +=0.0
         quietnow = 0
      }
      else
      {
         SoundGet, currsnd
      }
      Gui, Add, pic,x55 y50, %A_ScriptDir%\quiet.bmp
   }
   else
   {
      SoundGet, currsnd
      Gui, Add, pic,x55 y50, %A_ScriptDir%\loud.bmp
   }

   ; create OSD noise level bullets
   bullets = 16
   bullets += 0.0
   dermax = 100.0
   dermax += 0.0
   currbullet = %currsnd%
   currbullet /= %dermax%
   currbullet *= %bullets%
   Transform,currbullet,Round,%currbullet%
   Transform,bullets,Round,%bullets%
   loop, %bullets%
   {
      Transform,xbullet, Round, %bullets%
      xbullet *=9
      xbullet +=24
       ifgreaterorequal,currbullet,%bullets%
       {
         Gui, Add, pic,x%xbullet% y168, %A_ScriptDir%\fullbullet.bmp
       }
       else
       {
         Gui, Add, pic,x%xbullet% y168, %A_ScriptDir%\emptybullet.bmp
       }
       bullets -= 1
   }

   DetectHiddenWindows on
   WinWait, %A_ScriptName%  ; Set the "last found" window to GUI window.
   WinSet, TransColor,FF00FF %transparent%
   WinSet, AlwaysOnTop, On
   Gui, -Caption
   Gui, Show, w211 h206 y%posY%

   ; play the blob sound to hear the noise level
   SoundPlay, %A_ScriptDir%\sound.wav


   ; fade down the OSD by Tekl
   Loop, %transparent%
   {
      transparent -= 1
      WinSet, TransColor,FF00FF %transparent%
   }
   Gui, Destroy

return

#Persistent
IniRead, vol_Step, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, Step, 4
IniRead, vol_DisplayTime, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, DisplayTime, 2000
IniRead, vol_BackgroungPic, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, BackgroungPic
IniRead, vol_Transparency, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, Transparency, 200
IniRead, vol_UpHotkey, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, VolumeUpHotkey, #Up
IniRead, vol_DownHotkey, %A_SCRIPTDIR%\Finderbar_Engine.ini, SoundVolume, VolumeDownHotkey, #Down
HotKey, %vol_UpHotkey%, vol_MasterUp
HotKey, %vol_DownHotkey%, vol_MasterDown
Menu,Tray, Add, Mute Sound, Mute
Menu,Tray, Default, Mute Sound
SetTimer, WatchSound, 500
return

Mute:
   SoundSet, +0, , Mute
   Return

WatchSound:
   SoundGet, vol_Mute, , Mute
   If vol_Mute = On
      {
      Menu, Tray, Check, Mute Sound
      Menu, Tray, Icon, %A_ScriptDir%\images\Volume0.ico
      Return
      }
   IfEqual, vol_Mute, Off, Menu, Tray, Uncheck, Mute Sound
   SoundGet, vol_Master, Master
   If vol_Master < 1
      Menu, Tray, Icon, %A_ScriptDir%\images\Volume0.ico
   If vol_Master between 1 and 20
      Menu, Tray, Icon, %A_ScriptDir%\images\Volume1.ico
   If vol_Master between 20 and 50
      Menu, Tray, Icon, %A_ScriptDir%\images\Volume2.ico
   If vol_Master > 50
      Menu, Tray, Icon, %A_ScriptDir%\images\Volume3.ico
   Return

vol_ShowBars:
   IfWinNotExist, %A_ScriptName%
      {
      Gui, 3:Add, Pic, x0 y0 w213 h208, %A_ScriptDir%\%vol_BackgroungPic%
      Gui, 3:Add, Progress, x35 y160 w144 h12 -Smooth, 50
      Gui, 3:+ToolWindow
      DetectHiddenWindows, On
         WinWait, %A_ScriptName%
         WinSet, TransColor,0000FF %vol_Transparency%
         WinSet, AlwaysOnTop, On, %A_ScriptName%
         Gui, 3:-Caption
       Gui, 3:Show, h208 w213
         }
   SoundGet, vol_Master, Master
   GuiControl, 3:, msctls_progress321, %vol_Master%
   SoundPlay, %A_ScriptDir%\images\sound.wav
   SetTimer, vol_BarOff, %vol_DisplayTime%
   Return

vol_BarOff:
   transparent =%vol_Transparency%
   SetTimer, vol_BarOff, off
      Loop, %transparent%
         {
         transparent -= 1
         WinSet, TransColor, 0000FF %transparent%, %A_ScriptName%
         }
      Gui, 3:Destroy
   Return

vol_MasterUp:
   SoundSet, +%vol_Step%
   Gosub, vol_ShowBars
   Return

vol_MasterDown:
   SoundSet, -%vol_Step%
   Gosub, vol_ShowBars
   Return

;OSD Gui
WinYPos := ScHeight - 300
Transparent = 192
Gui, 1:Color, FF00FF
Gui, 1:+Lastfound
WinSet, TransColor, FF00FF %Transparent%
Gui, 1:+ToolWindow
Gui, 1:-Caption
WinSet, AlwaysOnTop, On
Gui, 1:Font, s36 Bold, Verdana
Gui, 1:Add, Text, vODSText w670 Center

Gui, 1:Add, Text, x97 y92,-
Loop,25
{
   Temp=Pic%A_Index%
   Gui, 1:Add, Picture, x+6 y100 w12 h50 Hidden Border v%Temp% , OSD_Green.bmp
}
Gui, 1:Add, Text, x+3 y92,+ ; only +3 cause + is wider than -


...


ShowOSD(Message, Value, BarColor)
{
   If SomethingRunningFullscreen()
      return
   Global OSDTextColor, WinYPos
   Gosub GuiHide
   Gui, 1:Font, c%OSDTextColor%
   GuiControl, 1:Font, ODSText
   GuiControl, 1:Font, +
   GuiControl, 1:Font, -
   GuiControl, 1:, ODSText, %Message%
   Loop,25 {
      TempPic=Pic%A_Index%
      If A_Index <= %Value%
      {
         GuiControl, 1:Font, %TempPic%
         GuiControl,1:, %TempPic%, OSD_%BarColor%.bmp
         GuiControl 1:Show, %TempPic%
      }
      else
         GuiControl Hide, %TempPic%
   }
   Gui, 1:Show, y%WinYPos%
   
   Loop, %transparent%
   {
      Transparent -= 1
      WinSet, TransColor,FF00FF %Transparent%, MSI Hotkeys Script Settings
   }
   SetTimer, GuiHide, 1000
}

GuiHide:
   SetTimer, GuiHide, Off
   Gui, 1:Hide
Return