summaryrefslogtreecommitdiff
path: root/windows/neo-vars/src/source/langstastatur.ahk
blob: 8d3a4807563d9980f983f1f9a2f0bb565fc1566e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
IniRead,LangSTastatur,%ini%,Global,LangSTastatur,0
If (LangSTastatur)
  CharProcLnS1()

CP3F11 := "PLnSt"

CharProcLnSt() {
  global
  ;Lang-s-Tastatur: Toggle
  LangSTastatur := !(LangSTastatur)
  if (LangSTastatur) {
    CharProcLnS1()
    if (zeigeModusBox)
      TrayTip,Lang-S-Tastatur,Die Lang-S-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
  } else {
    CharProcLnS0()
    if (zeigeModusBox)
      TrayTip,Lang-S-Tastatur,Lang-S-Belegungsvariante wurde deaktiviert.,10,1
  }
} 

CharProcLnS1() {
  global
  ; Lange-s-Tastatur aktivieren
  ED("VKBASC01A",1,"U0073","U1E9E","U00DF",""     ,"U03C2","U2218") ; ß
  ED("VK48SC023",1,"U017F","U0053","U003F","U00BF","U03C3","U03A3") ; s
  KeyboardLED(2,"on")
}

CharProcLnS0() {
  global
  ; Lange-s-Tastatur deaktivieren
  ED("VKBASC01A",1,"U00DF","U1E9E","U017F",""     ,"U03C2","U2218") ; ß
  ED("VK48SC023",1,"U0073","U0053","U003F","U00BF","U03C3","U03A3") ; s
  KeyboardLED(2,"off")
  if (zeigeModusBox)
    TrayTip,Lange-s-Tastatur,Die Lange-s-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
}