;KeyInfo
;By jgpaiva (& prosayist)
;date: June 2006 (July 2006)
;function: Gives information about the state of the keyboard keys in the systray. (using only one tray icon)

ScriptVersion = 1.0.0.0.0.0.0.0.7

#singleinstance,force
;This is the order of the icons:
;1 - all off
;2 - Caps on  Num off Scroll off
;3 - Caps off Num on  Scroll off
;4 - Caps off Num off Scroll on
;5 - Caps on  Num on  scroll off
;6 - Caps on  Num off Scroll on
;7 - Caps off Num on  Scroll on
;8 - all on

Menu, Tray, UseErrorLevel
Menu,TRAY, Icon, 1.ico
;Menu,TRAY, Tip, KeyInfo by jgpaiva
loop
{
Caps   :=GetKeyState("CapsLock","T")
Num    :=GetKeyState("NumLock","T")
Scroll :=GetKeyState("ScrollLock","T")

If Caps
  If Num
    If Scroll
      {
      Menu,TRAY, Icon, 8.ico
      Menu,TRAY, Tip, Caps ON`nNum ON`nScroll ON
      sleep,500
      Tooltip,
      }
    else
      {
      Menu,TRAY, Icon, 5.ico
      Menu,TRAY, Tip, Caps ON`nNum ON`nScroll OFF
      sleep,500
      Tooltip,
      }
  else
    If Scroll
      {
      Menu,TRAY, Icon, 6.ico
      Menu,TRAY, Tip, Caps ON`nNum OFF`nScroll ON
      sleep,500
      Tooltip,
      }
    else
      {
      Menu,TRAY, Icon, 2.ico
      Menu,TRAY, Tip, Caps ON`nNum OFF`nScroll OFF
      sleep,500
      Tooltip,
      }
else
  If Num
    If Scroll
      {
      Menu,TRAY, Icon, 7.ico
      Menu,TRAY, Tip, Caps OFF`nNum ON`nScroll ON
      sleep,500
      Tooltip,
      }
    else
      {
      Menu,TRAY, Icon, 3.ico
      Menu,TRAY, Tip, Caps OFF`nNum ON`nScroll OFF
      sleep,500
      Tooltip,
      }
  else
    If Scroll
      {
      Menu,TRAY, Icon, 4.ico
      Menu,TRAY, Tip, Caps OFF`nNum ON`nScroll ON
      sleep,500
      Tooltip,
      }
    else
      {
      Menu,TRAY, Icon, 1.ico
      Menu,TRAY, Tip, Caps OFF`nNum OFF`nScroll OFF
      sleep,500
      Tooltip,
      }
sleep 200
}