; die Nachfolgenden sind nützlich um sich die Qwertz-Tasten abzugewöhnen, da alle auf der 4. Ebene vorhanden.
lernModus_std_Return := 0
lernModus_std_Backspace := 0
lernModus_std_PgUp := 0
lernModus_std_PgDn := 0
lernModus_std_Einf := 0
lernModus_std_Entf := 0
lernModus_std_Pos0 := 0
lernModus_std_Ende := 0
lernModus_std_Hoch := 0
lernModus_std_Runter := 0
lernModus_std_Links := 0
lernModus_std_Rechts := 0
lernModus_std_ZahlenReihe := 0
lernModus_neo_Backspace := 0
lernModus_neo_Entf := 1

CP3F9 := "P_LMt"
IniRead,lernModus,%ini%,Global,lernModus,0
If (lernModus)
  CharProc_LM1()


CharProc_LMt() {
  global
  ; Lernmodus togglen
  lernModus := !(lernModus)
  if (lernModus) {
    CharProc_LM1()
    if (zeigeModusBox)
      TrayTip,NEO-Lernmodus,NEO-Lernmodus wurde aktiviert. Zum Deaktivieren`, Mod3+F9 drücken.,10,1
  } else {
    CharProc_LM0()
    if (zeigeModusBox)
      TrayTip,NEO-Lernmodus,Lernmodus wurde deaktiviert.,10,1
  }
}

CharProc_LM1() {
  global
  ; Lernmodus aktivieren
  if (!lernModus_std_Return)
    ED1("enter","")
  if (!lernModus_std_Backspace)
    ED1("backspace","")
  if (!lernModus_std_PgUp)
    ED1("pgup","")
  if (!lernModus_std_PgDn)
    ED1("pgdn","")
  if (!lernModus_std_Einf)
    ED1("ins","")
  if (!lernModus_std_Entf)
    ED1("del","")
  if (!lernModus_std_Pos0)
    ED1("home","")
  if (!lernModus_std_Ende)
    ED1("end","")
  if (!lernModus_std_Hoch)
    ED1("up","")
  if (!lernModus_std_Runter)
    ED1("down","")
  if (!lernModus_std_Links)
    ED1("left","")
  if (!lernModus_std_Rechts)
    ED1("right","")
  if (!lernModus_neo_Backspace)
    CP4VK57SC011 := "" ; Ebene 4 unter v (QWERTZ: w)
  if (!lernModus_neo_Entf)
    CP4VK52SC013 := "" ; Ebene 4 unter c (QWERTZ: r)
}

CharProc_LM0() {
  global
  ; Lernmodus deaktivieren
  ED1("enter"    ,"U000D")
  ED1("backspace","U0008")
  ED1("pgup"     ,"SPgUp")
  ED1("pgdn"     ,"SPgDn")
  ED1("ins"      ,"S_Ins")
  ED1("del"      ,"S_Del")
  ED1("home"     ,"SHome")
  ED1("end"      ,"S_End")
  ED1("up"       ,"S__Up")
  ED1("down"     ,"SDown")
  ED1("left"     ,"SLeft")
  ED1("right"    ,"SRght")
  CP4VK57SC011 := "U0008"
  CP4VK52SC013 := "S_Del"
}
