Changeset 627

Timestamp:

07/08/08 23:22:57 (5 years ago)

Author:

martin_r

Message:

neo20-all-in-one.ahk und -.exe aktualisiert

Location:

windows/autohotkey

Files:

• neo20-all-in-one.ahk (modified) (21 diffs)
• neo20-all-in-one.exe (modified) (previous)

windows/autohotkey/neo20-all-in-one.ahk

@@ -138 +138 @@
                   - Testen ob die Capslockl�sung (siehe *1:: ebene 1) auch f�r Numpad gebraucht wird
                   - Sind Ebenen vom Touchpad noch richtig?
-                                  - Die Bildschirmtastatur mit Mod4 deaktiviert den Mod4-Lock
+                  - Die Bildschirmtastatur mit Mod4 deaktiviert den Mod4-Lock
     
     Ideen:        - Symbol �ndern (Neo-Logo abwarten)
                   - bei Ebene 4 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden
+
     CHANGEHISTORY:
 
-
-
-
-        Revision: 616
+                  Revision 624(von Martin Roppelt):
+                  - Lang-s-Tastatur (ein- und auszuschalten durch Mod4+�)
                   Revision 616 (von Dennis Heidsiek):
-                  - Der nicht funktionierender Mod5-Lock-Fix wurde wieder entfernt, da
+                  - Der nicht funktionierende Mod5-Lock-Fix wurde wieder entfernt, da
                     er sogar neue Fehler produzierte.
                   Revision 615 (von Dennis Heidsiek):
                   - Erfolgloser Versuch, den Mod4-Lock wiederherzustellen
-                    (durch eine Tilde von den Scancodes der Bildschirmtastatur).
+                    (durch eine Tilde vor den Scancodes der Bildschirmtastatur).
                   - Rechtschreibfehler korrigiert.
                   - Zwei AHK-Links eingef�gt.
@@ -160 +159 @@
                   - Bessere Testm�glichkeit �All.ahk� f�r AHK-Entwickler hinzugef�gt, bei der
                     sich die Zeilenangaben in Fehlermeldungen auf die tats�chlichen Module und
-                    nicht auf das grosse �vereinigte� Skript beziehen.
+                    nicht auf das gro�e �vereinigte� Skript beziehen.
                   Revision 608 (von Martin Roppelt):
                   - Rechtschreibfehler korrigiert und Dateinamen aktualisiert und sortiert.
@@ -277 +276 @@
 
 ; Im folgenden gilt (soweit nicht anders angegeben) Ja = 1, Nein = 0:
-ahkTreiberKombi := 0 ; Sollen Ebenen 1-4 ignoriert werden? (kann z.B. vom dll Treiber �bernommen werden)
-einHandNeo := 0 ; Soll der Treiber im Einhandmodus betrieben werden?
-lernModus := 0 ; Soll der Lernmodus aktiviert werden?
-bildschirmTastaturEinbinden := 1 ; Sollen die Bilder f�r die Bildschirmtastatur in die EXE-Datei miteingebunden werden (Nachteil: gr�ssere Dateigr�sse, Vorteil: Referenz f�r Anfanger stets einfach verf�gbar)
-UseMod4Light := 1 ; Aktivierter Mod4 Lock wird �ber die Rollen-LED des Keybord angezeigt (analog zu CapsLock)
+ahkTreiberKombi := 0             ; Sollen Ebenen 1-4 ignoriert werden? (kann z.B. vom dll Treiber �bernommen werden)
+einHandNeo := 0                  ; Soll der Treiber im Einhandmodus betrieben werden?
+lernModus := 0                   ; Soll der Lernmodus aktiviert werden?
+bildschirmTastaturEinbinden := 1 ; Sollen die Bilder f�r die Bildschirmtastatur in die EXE-Datei miteingebunden werden (Nachteil: gr�ssere Dateigr�sse, Vorteil: Referenz f�r Anf�nger stets einfach verf�gbar)
+UseMod4Light := 1                ; Aktivierter Mod4 Lock wird �ber die Rollen-LED des Keybord angezeigt (analog zu CapsLock)
+LangSTastatur := 0               ; Sollen Lang-s auf s, s auf � und � auf M3+� gelegt werden?
 
 Process, Priority,, High
@@ -509 +509 @@
       if (IsMod4Locked) 
       {
-;         MsgBox Mod4-Feststellung aufgebehoben
+         MsgBox Mod4-Feststellung aufgebehoben
          IsMod4Locked = 0
-         if (UseMod4Light==1) {
+         if (UseMod4Light==1)
+         {
             KeyboardLED(1,"off")
          }
@@ -517 +518 @@
       else
       {
-;         MsgBox Mod4 festgestellt: Um Mod4 wieder zu l�sen dr�cke beide Mod4 Tasten gleichzeitig
+         MsgBox Mod4 festgestellt: Um Mod4 wieder zu l�sen dr�cke beide Mod4 Tasten gleichzeitig
          IsMod4Locked = 1
-         if (UseMod4Light==1) {
+         if (UseMod4Light==1)
+         {
             KeyboardLED(1,"on")
          }
-         
       }
 return
+
 *SC138::
  altGrPressed := 1
@@ -532 +534 @@
 return 
 
-/* ; das folgende wird seltsamerweise nicht gebraucht :) oder f�hrt zum AltGr Bug; Umschalt+� (Mod4) Zeigt �
+; das folgende wird seltsamerweise nicht gebraucht :) oder f�hrt zum AltGr Bug; Umschalt+� (Mod4) Zeigt �
 SC138 & *<::
       if (IsMod4Locked) 
@@ -545 +547 @@
       }
 return
-*/
+
  
  ; Mod3-Lock durch Mod3+Mod3
@@ -659 +661 @@
      goto neo_sz   
   }
-*SC00D::goto neo_tot2  ; Akkut
+*SC00D::goto neo_tot2  ; Akut                   
 ; Reihe 2
 *Tab::goto neo_tab
@@ -1082 +1084 @@
    2. Abh�ngig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen
    
-   Ablauf bei "lebenden" (sagt man das?) Tasten:
+   Ablauf bei "untoten" Tasten:
    1. Ebene Aktualisieren
    2. Abh�ngig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben
@@ -1102 +1104 @@
    else if Ebene = 2
    {
-      SendUnicodeChar(0x02C7)  ; caron, tot
+      SendUnicodeChar(0x02C7) ; caron, tot
       PriorDeadKey := "c2"
    }
    else if Ebene = 3
    {
-      SendUnicodeChar(0x02D8)   ; brevis
+      SendUnicodeChar(0x02D8) ; brevis
       PriorDeadKey := "c3"
    }
    else if Ebene = 4
    {
-      SendUnicodeChar(0x00B7)  ; Mittenpunkt, tot
+      SendUnicodeChar(0x00B7) ; Mittenpunkt, tot
       PriorDeadKey := "c5"
    }
    else if Ebene = 5
    {
-      send - ; querstrich, tot
+      send -                  ; querstrich, tot
       PriorDeadKey := "c4"
    }
    else if Ebene = 6
    {
-      Send .         ; punkt darunter (colon)
+      Send .                  ; punkt darunter (colon)
       PriorDeadKey := "c6"
    }
@@ -2241 +2243 @@
       else if (PriorDeadKey = "t1")       ; tilde 
          BSSendUnicodeChar(0x2245)   ; ungef�hr gleich
-      else if (PriorDeadKey = "t5")   ; Schr�gstrich 
+      else if (PriorDeadKey = "t5")       ; Schr�gstrich 
          BSSendUnicodeChar(0x2260)   ; ungleich
-      else if (PriorDeadKey = "c4")    ; Querstrich
+      else if (PriorDeadKey = "c4")       ; Querstrich
          BSSendUnicodeChar(0x2261)   ; identisch
-      else if (PriorDeadKey = "c2")      ; caron 
+      else if (PriorDeadKey = "c2")       ; caron 
          BSSendUnicodeChar(0x225A)   ; EQUIANGULAR TO
-      else if (PriorDeadKey = "a6")      ; ring dr�ber 
+      else if (PriorDeadKey = "a6")       ; ring dr�ber 
          BSSendUnicodeChar(0x2257)   ; ring equal to
       else
@@ -2286 +2288 @@
    }
    else if Ebene = 5
-      SendUnicodeChar(0x03D5)  ;  phi symbol (varphi)
+      SendUnicodeChar(0x03D5) ; phi symbol (varphi)
    else if Ebene = 6
       SendUnicodeChar(0x211A) ; Q (rationale Zahlen)
@@ -2297 +2299 @@
       if GetKeyState("CapsLock","T")
       {
-         SendUnicodeChar(0x1E9E) ; versal-�
+         SendUnicodeChar(0x1E9E) ; verssal-�
       }
       else
       {
-         send �
-      }      
+         if (LangSTastatur = 1)
+         {
+            sendinput {blind}s
+         }
+         else
+         {
+            send �
+         }
+      }
    else if Ebene = 2
       if GetKeyState("CapsLock","T")
       {
-         send �
+         if (LangSTastatur = 1)
+         {
+            sendinput {blind}s
+         }
+         else
+         {
+            send �
+         }
       }
       else
@@ -2313 +2329 @@
       }
    else if Ebene = 3
-      SendUnicodeChar(0x017F)   ; langes s
+   {
+      if (LangSTastatur = 1)
+         send �
+      else
+         SendUnicodeChar(0x017F) ; langes s
+   }
    else if Ebene = 4
-      {} ; leer    
+   {
+       LangSTastatur := not(LangSTastatur) ; schaltet die Lang-s-Tastatur ein und aus
+   }
    else if Ebene = 5
       SendUnicodeChar(0x03C2) ; varsigma
    else if Ebene = 6
-      SendUnicodeChar(0x2218)  ; Verkn�pfungsoperator
+      SendUnicodeChar(0x2218) ; Verkn�pfungsoperator
    PriorDeadKey := ""   CompKey := ""
 return
@@ -2768 +2791 @@
    if Ebene = 1
    {
-      if (PriorDeadKey = "c1")           ; circumflex
+      if (PriorDeadKey = "c1")      ; circumflex
          BSSendUnicodeChar(0x015D)
-      else if (PriorDeadKey = "a1")      ; akut 
+      else if (PriorDeadKey = "a1") ; akut 
          BSSendUnicodeChar(0x015B)
-      else if (PriorDeadKey = "c2")     ; caron
+      else if (PriorDeadKey = "c2") ; caron
          BSSendUnicodeChar(0x0161)
-      else if (PriorDeadKey = "a3")    ; cedilla
+      else if (PriorDeadKey = "a3") ; cedilla
          BSSendUnicodeChar(0x015F)
-      else if (PriorDeadKey = "a5")  ; punkt dar�ber 
+      else if (PriorDeadKey = "a5") ; punkt dar�ber 
          BSSendUnicodeChar(0x1E61)
       else if (PriorDeadKey = "c6") ; punkt darunter 
          BSSendUnicodeChar(0x1E63)
-      else   
-         sendinput {blind}s
+      else
+      {
+         if (LangSTastatur = 1)
+         {
+            if GetKeyState("CapsLock","T")
+               sendinput {blind}s
+            else
+               SendUnicodeChar(0x017F) ; langes s
+         }
+         else
+            sendinput {blind}s
+      }
       if (PriorDeadKey = "comp")
          CompKey := "s_small"
@@ -2789 +2822 @@
    else if Ebene = 2
    {
-      if (PriorDeadKey = "c1")           ; circumflex
+      if (PriorDeadKey = "c1")      ; circumflex
          BSSendUnicodeChar(0x015C)
-      else if (PriorDeadKey = "c2")     ; caron
+      else if (PriorDeadKey = "c2") ; caron
          BSSendUnicodeChar(0x0160)
-      else if (PriorDeadKey = "a1")      ; akut 
+      else if (PriorDeadKey = "a1") ; akut 
          BSSendUnicodeChar(0x015A)
-      else if (PriorDeadKey = "a3")    ; cedilla 
+      else if (PriorDeadKey = "a3") ; cedilla 
          BSSendUnicodeChar(0x015E)
-      else if (PriorDeadKey = "a5")  ; punkt dar�ber 
+      else if (PriorDeadKey = "a5") ; punkt dar�ber 
          BSSendUnicodeChar(0x1E60)
       else if (PriorDeadKey = "c6") ; punkt darunter 
          BSSendUnicodeChar(0x1E62)
       else
-         sendinput {blind}S
+      {
+         if GetKeyState("CapsLock","T") && (LangSTastatur = 1)
+            SendUnicodeChar(0x017F)
+         else 
+            sendinput {blind}S
+      }
       if (PriorDeadKey = "comp")
          CompKey := "s_capital"
@@ -3359 +3397 @@
                
          }
-         else {
+         else
+         {
            send {blind},
          }
@@ -4381 +4420 @@
 */
    }
-   else if (IsMod3Pressed()) { ;#
+   else if (IsMod3Pressed()) ;#
+   {
+      #Include *i %a_scriptdir%\ComposeLaunch.ahk
+      #Include *i %a_scriptdir%\Source\ComposeLaunch.ahk
       PriorDeadKey := "comp"
       CompKey := ""
    }
-   else {
+   else
+   {
       send {blind}{Tab}
       PriorDeadKey := ""
@@ -4601 +4644 @@
 Ebenen laut Referenz:
 1. Ebene (kein Mod)      4. Ebene (Mod4)
-2. Ebene (Umschalt)      5. Ebene (Mod3+Umschalt)
+2. Ebene (Umschalt)      5. Ebene (Umschalt+Mod3)
 3. Ebene (Mod3)          6. Ebene (Mod3+Mod4)
 */
@@ -4626 +4669 @@
             { ; Umschalt UND Mod3 
             if ( IsMod4Pressed() )
-            {  ; Umschald UND Mod3 UND Mod4 
+            {  ; Umschalt UND Mod3 UND Mod4 
                ; Ebene 8 impliziert Ebene 6
                Ebene = 6
@@ -4638 +4681 @@
         {  ; Umschalt NICHT Mod3
             if ( IsMod4Pressed() )
-            {  ; Umschald UND Mod4 NICHT Mod3
+            {  ; Umschalt UND Mod4 NICHT Mod3
                ; Ebene 7 impliziert Ebene 4 
                 Ebene = 4
             }
             else
-            { ; Umschald NICHT Mod3 NICHT Mod4
+            { ; Umschalt NICHT Mod3 NICHT Mod4
                Ebene = 2    
             }