Changeset 1088

Timestamp:

11/02/08 15:00:02 (5 years ago)

Author:

mösi

Message:

Willkommen-Nachricht bei (De-)Aktivieren der VM-Belegungsvariante implementiert
EinHandNEO-Modus aktiviert:
• Mod3+F10 toggelt den EinHandNEO-Modus
• Space und Space up werden jetzt über die normalen AllStar-Routine abgewickelt
• TransformKey reaktiviert
• Bei Key-Release auch Proc-Aufruf ermöglicht (für Space Up)
• Einhand-Modus umgesetzt durch TransformKey-Funktion und TKEH_%PhysKey%-Variablen, die auf diejenige Taste verweisen, die anstelle von %PhysKey% simuliert werden soll.
• Bei Space-Down (EHSd)wird ein Space up-Proc-Aufruf zu EHSu gesetzt, die wiederum entweder die normale Space-Funktion aktiviert oder nichts, wenn dazwischen eine Taste durch den Einhandmodus umgelegt worden ist

Location:

windows/neo-vars

Files:

• keydefinitions.ahk (modified) (1 diff)
• keyhooks.ahk (modified) (3 diffs)
• neo20-vars.ahk (modified) (7 diffs)
• recycle.ahk (modified) (2 diffs)

windows/neo-vars/keydefinitions.ahk

@@ -77 +77 @@
 ED("esc"  ,0,"U001B","U001B","U001B","PRlod","U001B","U001B")
 ED("tab"  ,0,"U0009","U0009","SComp","U0009","U0009","U0009")
-ED("F10"  ,0,"S_F10","S_F10","S_F10","P_VMt","S_F10","S_F10")
+ED("F10"  ,0,"S_F10","S_F10","P_EHt","P_VMt","S_F10","S_F10")
 ED("F11"  ,0,"S_F11","S_F11","S_F11","PLnSt","S_F11","S_F11")
 ED1("enter"    ,"U000D")

windows/neo-vars/keyhooks.ahk

@@ -57 +57 @@
 *VKBESC034:: ; . (.)
 *VKBDSC035:: ; - (j)
+*space::
 
 ; Numpad
@@ -164 +165 @@
 *VKBESC034 up:: ; . (.)
 *VKBDSC035 up:: ; - (j)
+*space up::
 
 ; Numpad
@@ -215 +217 @@
   AllStar(A_ThisHotkey)
 return
-
-*space::
-  if ((einHandNeo))
-   spacepressed := 1
-  else
-   AllStar(A_ThisHotkey)
-return
-
-*space up::
-  if ((einHandNeo)) {
-    if ((keypressed)) {
-     keypressed := 0
-     spacepressed := 0
-    } else {
-      AllStar("space")    ;???
-      AllStar("space up")
-    }
-  } else
-    AllStar(A_ThisHotkey)
-return

windows/neo-vars/neo20-vars.ahk

@@ -33 +33 @@
   } else
     IsDown := 1
-  ActKey := PhysKey ; das k�nnte sp�ter f�r eine Transformation benutzt werden
+  ActKey := TransformKey(PhysKey)
   if ((striktesMod2Lock == 0) && (NOC%ActKey% == 1))
     Ebene := EbeneNC
@@ -110 +110 @@
 CharStarUp(PhysKey) {
   global
-  if (PR%PhysKey% != "")
-    CharOutUp(PR%PhysKey%)     ; resulting from key repeat
-
+  if (PR%PhysKey% != "") {
+    tosend := PR%PhysKey%
+    if (SubStr(tosend,1,1)=="P")
+      CharProc(SubStr(tosend,2))
+    else
+      CharOutUp(tosend)
+  }
   PR%PhysKey% := ""
   PP%PhysKey% := ""
@@ -180 +184 @@
   global
   if (subroutine == "_Rom") {
+    ; starte gro� geschriebene r�mische Zahlen
     IsPressHooked := 1
     PressHookRoutine := "Roman"
     RomanSum := 0
   } else if (subroutine == "_rom") {
+    ; starte klein geschriebene r�mische Zahlen
     IsPressHooked := 1
     PressHookRoutine := "roman"
     RomanSum := 0
   } else if (subroutine == "_Uni") {
+    ; starte Unicode-Hex-in-Zeichen-Umwandlung
     IsPressHooked := 1
     PressHookRoutine := "Uni"
     UniSum := ""
   } else if (subroutine == "DUni") {
+    ; starte Unicode-Zeichen-in-Hex-Umwandlung
     IsPressHooked := 1
     PressHookRoutine := "DUni"
-  }  else if (subroutine == "Rlod")
+  }  else if (subroutine == "Rlod") {
+    ; Neustart des AHK-Skripts
     reload
-  else if (subroutine == "LnSt") {
-    ;Lang-s-Tastatur:
+  } else if (subroutine == "LnSt") {
+    ;Lang-s-Tastatur: Toggle
     LangSTastatur := !(LangSTastatur)
     if (LangSTastatur)
@@ -204 +213 @@
       CharProc("LnS0")
   } else if (subroutine == "LnS1") {
+    ; Lange-s-Tastatur aktivieren
     ED("VKBASC01A",1,"U0073","U1E9E","U00DF",""     ,"U03C2","U2218") ; �
     ED("VK48SC023",1,"U017F","U0053","U003F","U00BF","U03C3","U03A3","U0073") ; s
     KeyboardLED(2,"on")
   } else if (subroutine == "LnS0") {
+    ; Lange-s-Tastatur deaktivieren
     ED("VKBASC01A",1,"U00DF","U1E9E","U017F",""     ,"U03C2","U2218") ; �
     ED("VK48SC023",1,"U0073","U0053","U003F","U00BF","U03C3","U03A3","U017F") ; s
     KeyboardLED(2,"off")
   } else if (subroutine == "_VMt") {
+    ; VM-Tastaturbelegungsvariante togglen
     ; Belegungsvariante VM
     isVM := !(isVM)
-    if (isVM)
+    if (isVM) {
       CharProc("_VM1")
-    else
+      MsgBox,Willkommen bei der NEO-VM-Belegungsvariante! Zum Deaktivieren, Mod4+F10 dr�cken
+    } else {
       CharProc("_VM0")
+      MsgBox,NEO-VM-Belegungsvariante deaktiviert
+    }
   } else if (subroutine == "_VM1") {
+    ; VM-Tastaturbelegungsvariante aktivieren
     ED("VK51SC010",1,"U0079","U0059","U2026","U22EE","U03C5","U2207") ; y
     ED("VK57SC011",1,"U006F","U004F","U005F","U0008","U03BF","U2208") ; o
@@ -231 +247 @@
     ED("VK56SC02F",1,"U0076","U0056","U007E","U000D",""     ,"U2259") ; v
   } else if (subroutine == "_VM0") {
+    ; VM-Tastaturbelegungsvariante deaktivieren
     ED("VK51SC010",1,"U0078","U0058","U2026","U22EE","U03BE","U039E") ; x
     ED("VK57SC011",1,"U0076","U0056","U005F","U0008",""     ,"U2259") ; v
@@ -242 +259 @@
     ED("VKDESC028",1,"U0079","U0059","U0040","U002E","U03C5","U2207") ; y
     ED("VK56SC02F",1,"U0070","U0050","U007E","U000D","U03C0","U03A0") ; p
+  } else if (subroutine == "_EHt") {
+    ; Einhandmodus togglen
+    einHandNeo := !(einHandNeo)
+    if (einHandNeo) {
+      CharProc("_EH1")
+      MsgBox,Willkommen beim NEO-Einhand-Modus! Zum Deaktivieren, Mod3+F10 dr�cken
+    } else {
+      CharProc("_EH0")
+      MsgBox,NEO-Einhand-Modus deaktiviert
+    }
+  } else if (subroutine == "_EH1") {
+    ; Einhand-NEO aktivieren
+    ; Reihe 1
+    TKEH_VK37SC008 := "VK36SC007" ; 7 -> 6
+    TKEH_VK38SC009 := "VK35SC006" ; 8 -> 5
+    TKEH_VK39SC00A := "VK34SC005" ; 9 -> 4
+    TKEH_VK30SC00B := "VK33SC004" ; 0 -> 3
+    TKEH_VKDBSC00C := "VK32SC003" ; � -> 2
+    TKEH_VKDDSC00D := "VK31SC002" ; tot2 -> 1
+    ; Reihe 2
+    TKEH_VK5ASC015 := "VK54SC014" ; k -> w
+    TKEH_VK55SC016 := "VK52SC013" ; h -> c
+    TKEH_VK49SC017 := "VK45SC012" ; g -> l
+    TKEH_VK4FSC018 := "VK57SC011" ; f -> v
+    TKEH_VK50SC019 := "VK51SC010" ; q -> x
+    TKEH_VKBASC01A := "VK09SC00F" ; � -> tab
+    TKEH_VKBBSC01B := "VKDCSC029" ; tot3 -> tot1
+    ; Reihe 3
+    TKEH_VK48SC023 := "VK47SC022" ; s -> o
+    TKEH_VK4ASC024 := "VK46SC021" ; n -> e
+    TKEH_VK4BSC025 := "VK44SC020" ; r -> a
+    TKEH_VK4CSC026 := "VK53SC01F" ; t -> i
+    TKEH_VKC0SC027 := "VK41SC01E" ; d -> u
+    ; Reihe 4
+    TKEH_VK4ESC031 := "VK42SC030" ; b -> z
+    TKEH_VK4DSC032 := "VK56SC02F" ; m -> p
+    TKEH_VKBCSC033 := "VK43SC02E" ; , -> �
+    TKEH_VKBESC034 := "VK58SC02D" ; . -> �
+    TKEH_VKBDSC035 := "VK59SC02C" ; j -> �
+    ; Modify Space
+    ED1("space","PEHSd")
+    ED("EHSpace",0,"U0020","U0020","U0020","SN__0","U00A0","U202F")
+  } else if (subroutine == "_EH0") {
+    ; Einhand-NEO deaktivieren
+    ; Reihe 1
+    TKEH_VK37SC008 := "" ; 7
+    TKEH_VK38SC009 := "" ; 8
+    TKEH_VK39SC00A := "" ; 9
+    TKEH_VK30SC00B := "" ; 0
+    TKEH_VKDBSC00C := "" ; �
+    TKEH_VKDDSC00D := "" ; tot2
+    ; Reihe 2
+    TKEH_VK5ASC015 := "" ; k
+    TKEH_VK55SC016 := "" ; h
+    TKEH_VK49SC017 := "" ; g
+    TKEH_VK4FSC018 := "" ; f
+    TKEH_VK50SC019 := "" ; q
+    TKEH_VKBASC01A := "" ; �
+    TKEH_VKBBSC01B := "" ; tot3
+    ; Reihe 3
+    TKEH_VK48SC023 := "" ; s
+    TKEH_VK4ASC024 := "" ; n
+    TKEH_VK4BSC025 := "" ; r
+    TKEH_VK4CSC026 := "" ; t
+    TKEH_VKC0SC027 := "" ; d
+    ; Reihe 4
+    TKEH_VK4ESC031 := "" ; b
+    TKEH_VK4DSC032 := "" ; m
+    TKEH_VKBCSC033 := "" ; ,
+    TKEH_VKBESC034 := "" ; .
+    TKEH_VKBDSC035 := "" ; j
+    ED("space",0,"U0020","U0020","U0020","SN__0","U00A0","U202F")
+  } else if (subroutine == "EHSd") {
+    ; Space im Einhandmodus gedr�ckt
+    EHSpacePressed := 1
+    PRspace := "PEHSu"
+  } else if (subroutine == "EHSu") {
+    ; Space im Einhandmodus losgelassen
+    if (!EHKeyPressed) {
+      AllStar("*EHSpace")
+      AllStar("*EHSpace up")
+    }
+    EHKeyPressed := 0
+    EHSpacePressed := 0
   }
 }
@@ -417 +518 @@
 }
 
+TransformKey(PhysKey) {
+  global
+  if (einHandNeo and EHSpacePressed and (TKEH_%PhysKey% != "")) {
+    ActKey := TKEH_%PhysKey%
+    EHKeyPressed := 1
+  } else if (TK_%PhysKey% != "")
+    ActKey := TK_%PhysKey%
+  else
+    ActKey := PhysKey
+  return ActKey
+}

windows/neo-vars/recycle.ahk

@@ -429 +429 @@
 */
 
+
 +pause::
 Suspend, Permit
@@ -450 +451 @@
       menu, tray, icon, %ResourceFolder%\neo_disabled.ico,,1
     suspend , on  ; Schaltet Suspend ein -> QWERTZ
-  } return
+  }
+return
 
 help: