Changeset 2183

Timestamp:

03/10/10 15:34:03 (5 months ago)

Author:

mösi

Message:

BST: Aufteilung in physische Taste (GuiPhysKey) und emulierte Taste für Einhand-Neo

Location:

windows/neo-vars/src/source

Files:

• einhandneo.ahk (modified) (5 diffs)
• screenkeyboard_new.ahk (modified) (2 diffs)

windows/neo-vars/src/source/einhandneo.ahk

@@ -59 +59 @@
   TKEH_VKBCSC033 := "VK43SC02E" ; , -> �  TKEH_VKBESC034 := "VK58SC02D" ; . -> � TKEH_VKBDSC035 := "VK59SC02C" ; j -> � Modify Space
   ED1("space","P__EHSd")
+  GUISYM("P__EHSd","EH")
   ED("EHSpace",0,"U000020","U000020","U000020","S__N__0","U0000A0","U00202F")
-  TransformProc := "Einhand"
+
+  TransformProc     := "Einhand"
+  TransformBSTNProc := "Einhand"
 }
 
@@ -101 +104 @@
   TKEH_VKBDSC035 := "" ; j
   ED("space",0,"U000020","U000020","U000020","S__N__0","U0000A0","U00202F")
-  TransformProc := ""
+  GUISYM("P__EHSd","")
+
+  TransformProc     := ""
+  TransformBSTNProc := ""
 }
 
@@ -108 +114 @@
   ; Space im Einhandmodus gedr�  EHSpacePressed := 1
   PRspace := "P__EHSu"
+  if (useBSTN)
+    BSTNUpdate()
 }
 
@@ -119 +127 @@
   EHKeyPressed := 0
   EHSpacePressed := 0
+  if (useBSTN)
+    BSTNUpdate()
 }
 
@@ -136 +146 @@
   return PhysKey
 }
+
+TransformBSTNEinhand(PhysKey) {
+  global
+  if (EHSpacePressed and (TKEH_%PhysKey% != "")) {
+    return TKEH_%PhysKey%
+  }
+  return PhysKey
+}

windows/neo-vars/src/source/screenkeyboard_new.ahk

@@ -36 +36 @@
         } else
           GuiEb := EbeneC
+        if (TransformBSTNProc != "")
+          GuiVirtKey := TransformBSTN%TransformBSTNProc%(GuiPhysKey)
+        else
+          GuiVirtKey := GuiPhysKey
         CurrentComp := Comp
         GuiComp := ""
 rerun_bstnupdate:
-        GuiComp1 := CurrentComp . CP%GuiEb%%GuiPhysKey%
+        GuiComp1 := CurrentComp . CP%GuiEb%%GuiVirtKey%
         if (GSYM%GuiComp1% != "") {
           GuiComp .= GSYM%GuiComp1%
@@ -47 +51 @@
           GuiComp .= "U00002AU00002A"
         } else if (CF%CurrentComp% != "") {
-          if (IM%GuiPhysKey% != 1)
+          if (IM%GuiVirtKey% != 1)
             GuiComp .= CF%CurrentComp%
           CurrentComp := ""