Jako że mam klawiaturę bez diody to Al mi zrobiła skrypt dla AutoHotKey v.2 który wykrywa stan klawisza Caps Lock i pokazuje odpowiednią ikonę w Tray.
Ikony należy sobie samemu zrobić i ustawić ścieżkę w skrypcie.
Może komuś się to przyda. Przypominam że skrypt musi być w autostarcie. Mam Windows 10.
Ikony są np. TUTAJ
#Requires AutoHotkey v2.0
#SingleInstance Force
; Przy uruchomieniu skryptu ustaw początkowy stan ikony w zasobniku
UpdateCapsLockState()
; Reaguj na naciśnięcie Caps Lock (~ zachowuje domyślne działanie klawisza w systemie)
~CapsLock::
{
; Krótkie opóźnienie, aby system zdążył zmienić stan przełącznika
Sleep(50)
UpdateCapsLockState()
}
UpdateCapsLockState()
{
; Sprawdzanie stanu (1 = włączony, 0 = wyłączony)
isON := GetKeyState("CapsLock", "T")
; 1. Aktualizacja ikony oraz podpowiedzi w zasobniku systemowym (Tray)
if (isON) {
; numer ikony jest liczony pionowo
A_IconTip := "Caps Lock: WŁĄCZONY"
; ścieżka do ikony
TraySetIcon("D:\ikony\caps_on.ico")
} else {
A_IconTip := "Caps Lock: WYŁĄCZONY"
; ścieżka do ikony
TraySetIcon("D:\ikony\caps_off.ico")
}
; 2. Wyświetlenie powiadomienia OSD na ekranie
statusText := isON ? "CAPS LOCK: ON" : "CAPS LOCK: OFF"
statusColor := isON ? "Green" : "Red"
ShowOSD(statusText, statusColor)
}
ShowOSD(text, bgColor)
{
static myGui := 0
; Usuń poprzednie okno, jeśli istnieje
if (myGui)
myGui.Destroy()
; Tworzenie bezramkowego okna OSD na wierzchu (+AlwaysOnTop -Caption +ToolWindow +E0x20)
; E0x20 sprawia, że okno jest przezroczyste dla kliknięć myszy
myGui := Gui("+AlwaysOnTop -Caption +ToolWindow +E0x20")
myGui.BackColor := bgColor
myGui.SetFont("s16 w700 cWhite", "Segoe UI")
myGui.Add("Text", "Center x15 y10", text)
; Wyświetlenie bez zabierania fokusu z aktywnego okna
myGui.Show("NoActivate")
; Ukrycie okna po 1,2 sekundy
SetTimer () => myGui.Destroy(), -1200
}
