From 15b42908ddc1634edb485e449fa77e7ed2a8169c Mon Sep 17 00:00:00 2001 From: martin_r Date: Tue, 12 Aug 2008 00:03:21 +0000 Subject: Zerschossene Lang-s-Tastatur wiederhergestellt Esc(4) setzt Tastatur zurück Variablen Ebene7 und Ebene8 zum Abfragen eingeführt #(2L)-Bug behoben Korrektur gelesen MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@746 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/autohotkey/Source/Changelog-and-Todo.ahk | 91 +- windows/autohotkey/Source/Global-Part.ahk | 168 +- windows/autohotkey/Source/Keys-Neo.ahk | 2547 +++++++++++----------- windows/autohotkey/Source/Methods-Layers.ahk | 2 +- windows/autohotkey/Source/Methods-Other.ahk | 41 +- windows/autohotkey/Source/Warning.ahk | 2 +- 6 files changed, 1423 insertions(+), 1428 deletions(-) (limited to 'windows/autohotkey/Source') diff --git a/windows/autohotkey/Source/Changelog-and-Todo.ahk b/windows/autohotkey/Source/Changelog-and-Todo.ahk index c21db54..49111e0 100644 --- a/windows/autohotkey/Source/Changelog-and-Todo.ahk +++ b/windows/autohotkey/Source/Changelog-and-Todo.ahk @@ -1,100 +1,100 @@ -/* -************************************* -* NEO 2.0 (beta) Autohotkey-Treiber * +/************************************ +* NEO 2.0 (beta) AutoHotkey-Treiber * ************************************* + Autoren: Stefan Mayer -Nora Geissler +Nora Geißler Matthias Berg Martin Roppelt Dennis Heidsiek -Matthias Wächter +Matthias Wächter ... - - ********* * TODO: * ********* -- Die Bildschirmtastatur mit Mod4 hat den Mod4-Lock deaktiviert! - Compose vollständig implementieren (Welche Methode ist hierzu am besten geeignet?) - ausgiebig testen... (besonders Vollständigkeit bei Deadkeys) - Bessere Lösung für das Leeren von PriorDeadKey finden, damit die Sondertasten nicht mehr abgefangen werden müssen. - Testen, ob die Capslocklösung (siehe *1:: ebene 1) auch für Numpad gebraucht wird - Die Ebenen vom Tastenblock an die neue Referenz anpassen (wenn da ein Konsens gefunden wurde) - ********** * IDEEN: * ********** -- Tastatur-Reset: mod4+escape (oder ev. ein anderer Hotkey) soll die Tastatur wieder in den Normalzustand versetzen (d.h. alle Ebenen unlocken und Einhand, Lang-s oder Sonstwelche-Modi deaktivieren) -- Die Varianten (lernModus, einHandNeo, Lang-s-Tastatur, Qwertz/pausieren) sollten einheitlich (de-)aktiviert werden, etwa über Mod4 F9-F12 -- bei Ebene 4 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden - - +- Die Varianten (lernModus, einHandNeo, Lang-s-Tastatur, Qwertz/pausieren) sollten einheitlich (de-)aktiviert werden, etwa über M4+F9-F12 ****************** * CHANGEHISTORY: * ****************** +Revision 746 (von Martin Roppelt) +- Zurücksetzen der Tastatur über M4+Esc +- #(2L) sendet nicht mehr ' +- Variablen Ebene7 und Ebene8 zum Abfragen eingeführt +- s(12)(2L)-Bug von Matthias Wächter behoben Revision 744 (von Stefan Mayer) - Ebene4-Ziffernblock: auf neo_d nun Komma (wie Referenz), "NumPadKomma" gibt es nicht Revision 743 (von Matthias Wächter, commit durch Stefan Mayer) - Ebene4-Ziffernblock: NumPadAdd und NumPadSub korrigiert Revision 740 (von Matthias Wächter, commit durch HCW) - "Mega-Patch" (Skript verkürzt, Ebenenabfrage verändert, ...), siehe CHANGES.txt +- Blinde tote Tasten auf M4+F9 (Toggle) +- Blinde Compose auf M4+F10 (Toggle) Revision 728 (von Dennis Heidsiek): -- Ist die Datei [...]\Anwendungsdaten\NEO2\NEO2.ini vorhanden, werden dort eventuell vonhandene Werte für die Globalen Schalter beim Start übernommen +- Ist die Datei %APPDATA%\NEO2\NEO2.ini vorhanden, werden dort eventuell vorhandene Werte für die Globalen Schalter beim Start übernommen +- »LangSTastaturStandardmäßigEingeschaltet.ahk« wird nicht mehr unterstützt, weil sonst immer neu kompiliert werden muss Revision 707 (von Dennis Heidsiek): -- Die Resourcen-Dateien (PNGs, ICOs) werden nun nach "Von Windows vorgegebenes TEMP Verzeichnis\NEO2\ extrahiert und nicht mehr in das Verzeichnis, in dem sich die EXE befindet +- Die Resourcen-Dateien (PNGs, ICOs) werden nun nach %TEMP%\NEO2\ extrahiert und nicht mehr in das Verzeichnis, in dem sich die EXE befindet - Die doppelten französischen Anführungszeichen werden nun ebenfalls über SendUnicodeChar gesendet Revision 694 (von Martin Roppelt): -- LangSTastatur auf F11 (Ebene 4) +- LangSTastatur auf M4+F11 - Entwickler können durch das Erstellen einer Datei »LangSTastaturStandardmäßigEingeschaltet.ahk« mit dem Inhalt »LangSTastatur := 1« diese standardmäßig aktivieren - Mehrere DeadKeys aktualisiert (T*, Ebene 4 und T*, Ebene 5) Revision 687 (von Dennis Heidsiek): - Die SendUnicodeChar-Methode um den GDK-Workarround von Matthias Wächter ergänzt - (An/Aus) Icons an Favicon der neuen Homepage angepasst Revision 645 (von Martin Roppelt): -- Ellipse zusätzlich auf M3+x; +- Ellipse zusätzlich auf M3+x - Lang-s-Tastatur probeweise auf M4+Esc Revision 640 (von Dennis Heidsiek): - Der untote Zirkumflex (^) auf Ebene 3 funktioniert jetzt auch in Java-Programmen Revision 639 (von Martin Roppelt): - Lang-s-Tastatur kann nicht mehr durch einen Hotkey aktiviert werden Revision 629 (von Martin Roppelt): -- Spitze Klammern (bra und ket) testweise auf M5+8/9 +- Spitze Klammern (bra und ket) auf M5+8/9 Revision 624 (von Martin Roppelt): - Lang-s-Tastatur (ein- und auszuschalten durch Mod4+ß) Revision 616 (von Dennis Heidsiek): -- Der nicht funktionierende Mod5-Lock-Fix wurde wieder entfernt, da er sogar neue Fehler produzierte. +- 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 vor den Scancodes der Bildschirmtastatur). -- Rechtschreibfehler korrigiert. -- Zwei AHK-Links eingefügt. +- Erfolgloser Versuch, den Mod4-Lock wiederherzustellen (durch eine Tilde vor den Scancodes der Bildschirmtastatur) +- Rechtschreibfehler korrigiert +- Zwei AHK-Links eingefügt Revision 609 (von Dennis Heidsiek): -- Vorläufiger Abschluss der AHK-Modularisierung. -- 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 große »vereinigte« Skript beziehen. +- Vorläufiger Abschluss der AHK-Modularisierung +- 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 große »vereinigte« Skript beziehen Revision 608 (von Martin Roppelt): -- Rechtschreibfehler korrigiert und Dateinamen aktualisiert und sortiert. +- Rechtschreibfehler korrigiert und Dateinamen aktualisiert und sortiert Revision 590 (von Dennis Heidsiek): -- Erste technische Vorarbeiten zur logischen Modularisierung des viel zu lange gewordenen AHK-Quellcodes. +- Erste technische Vorarbeiten zur logischen Modularisierung des viel zu lange gewordenen AHK-Quellcodes - Neue Batch-Datei Build-Update.bat zur einfachen Aktualisierung der EXE-Datei Revision 583 (von Dennis Heidsiek): -- Kleinere Korrekturen (Mod3+Numpad5, Mod5+Numpad5 und Mod3+Numpad9 stimmen wieder mit der Referenz überein). +- Kleinere Korrekturen (M3+NP5, M5+NP5 und M3+NP9 stimmen wieder mit der Referenz überein) Revision 580 (von Matthias Berg): - Bildschirmtastatur jetzt mit Mod4+F* statt Strg+F*, dies deaktiviert jedoch leider den Mod4-Lock Revision 570 (von Matthias Berg): - Hotkeys für einHandNeo und lernModus durch entsprechende ScanCodes ersetzt Revision 568 (von Matthias Berg): - Sonderzeichen, Umlaute, z und y durch ScanCodes ersetzt - * jetzt wird auch bei eingestelltem US Layout Neo verwendet. (z.B. für Chinesische InputMethodEditors) - * rechter Mod3 geht noch nicht bei US Layout (weder ScanCode noch "\") + * jetzt wird auch bei eingestelltem US Layout Neo verwendet (z.B. für Chinesische InputMethodEditors) + * rechter Mod3 geht noch nicht bei US-Layout (weder ScanCode noch "\") Revision 567 (von Dennis Heidsiek): -- Aktivierter Mod4 Lock wird jetzt über die Rollen-LED des Keybord angezeigt (analog zu CapsLock), die NUM-LED behält ihr bisheriges Verhalten +- Aktivierter Mod4-Lock wird jetzt über die Rollen-LED des Keybord angezeigt (analog zu CapsLock), die Num-LED behält ihr bisheriges Verhalten - Neue Option im Skript: UseMod4Light Revision 561 (von Matthias Berg): -- Ebene 4 Tab verhält sich jetzt wie das andere Tab dank "goto neo_tab" +- M4+Tab verhält sich jetzt wie das andere Tab dank "goto neo_tab" Revision 560 (von Dennis Heidsiek): - Neue Option im Skript: bildschirmTastaturEinbinden bindet die PNG-Bilder der Bildschirmtastur mit in die exe-Datei ein, so dass sich der Benutzer nur eine Datei herunterladen muss Revision 559 (von Matthias Berg): @@ -109,7 +109,7 @@ Revision 556 (von Matthias Berg): - lernModus (an/aus mit Strg+Komma) * im Skript konfigurierbar * Schaltet z.B. Qwertz Tasten aus, die es auf der 4. Ebene gibt (Return, Backspace,...) - * Kann auch Backspace und/oder Entfernen der 4. Ebene ausschalten (gut zum Lernen richtig zu schreiben) + * Kann auch Backspace und/oder Entfernen der 4. Ebene ausschalten (gut zum Lernen, richtig zu schreiben) - Bug aufgetaucht: Icons werden nicht mehr angezeigt Revision 544 (von Stefan Mayer): - ,.:; auf dem Mod4-Ziffernblock an die aktuelle Referenz angepasst @@ -119,32 +119,32 @@ Revision 542 (von Matthias Berg): - AltGr-Bug hoffentlich wieder behoben. Diesmal mit extra altGrPressed Variable - nurEbenenFuenfUndSechs umbenannt in ahkTreiberKombi und auf Ebene 4 statt 5 und 6 geändert Revision 540 (von Matthias Berg): -- stark überarbeitet um Wartbarkeit zu erhöhen und Redundanz zu veringern +- stark überarbeitet um Wartbarkeit zu erhöhen und Redundanz zu verringern - nurEbenenFuenfUndSechs sollte nun auch auf Neo Treiber statt Qwertz laufen * aber es muss noch jemand testen * Problem: was kann man abfangen, wenn eine tote Taste gedrückt wird - einHandNeo: - * An-/Ausschalten mit STRG+Punkt + * An-/Ausschalten mit Strg+Punkt * Buchstaben der rechten Hand werden mit Space zur linken Hand * Nebeneffekt: es gibt beim Festhalten von Space keine wiederholten Leerzeichen mehr Revision 532 (von Matthias Berg): - BildschirmTastatur - * aktiviert mit strg+F1 bis 7 schaltet Keyboard ein oder aus - * strg+F7 zeigt die zuletzt angezeigte Ebene an (und wieder aus). - * strg+F8 schaltet AlwaysOnTop um + * aktiviert mit Strg+F1 bis 7, schaltet Keyboard ein oder aus + * Strg+F7 zeigt die zuletzt angezeigte Ebene an (und wieder aus) + * Strg+F8 schaltet AlwaysOnTop um Revision 529 (von Stefan Mayer): - Icon wird automatisch geladen, falls .ico-Dateien im selbem Ordner -- in der .exe sind die .ico mitgespeichert und werden geladen +- In der .exe sind die .ico mitgespeichert und werden geladen Revision 528 (von Matthias Berg): - Neo-Icon - Neo-Prozess jetzt automatisch auf hoher Prioritaet (siehe globale Schalter) - Mod3-Lock (nur wenn rechtes Mod3 zuerst gedrückt wird, andere Lösung führte zum Caps-Bug) -- Mod4-Lock (nur wenn das linke Mod4 zuerst gedrückt wird, andere Lösung fühte zum AltGr-Bug) +- Mod4-Lock (nur wenn das linke Mod4 zuerst gedrückt wird, andere Lösung führte zum AltGr-Bug) - Ein paar falsche Zeichen korrigiert Revision 527 (von Matthias Berg): -- AltGr Problem hoffentlich behoben -- Umschalt+Mod4 Bug behoben +- AltGr-Problem hoffentlich behoben +- Umschalt+Mod4-Bug behoben Revision 526 (von Matthias Berg): - Ebenen 1 bis 4 ausschalten per Umschalter siehe erste Codezeile nurEbenenFuenfUndSechs = 0 - Mod4-Lock durch Mod4+Mod4 @@ -161,7 +161,7 @@ Revision 523 (von Matthias Berg): - CapsLock geht jetzt auch bei allen Zeichen ('send Zeichen' statt 'send {blind} Zeichen') - vertikale Ellipse eingebaut - Umschalt+Umschalt für Capslock statt Mod3+Mod3 -- bei Suspend wird jetzt wirklich togglesuspend aufgerufen (auch beim aktivieren per shift+pause) +- bei Suspend wird jetzt wirklich togglesuspend aufgerufen (auch beim Aktivieren per shift+pause) Revsion 490 (von Stefan Mayer): - SUBSCRIPT von 0 bis 9 sowie (auf Ziffernblock) + und - • auch bei Ziffernblock auf der 5. Ebene @@ -171,10 +171,5 @@ Revsion 490 (von Stefan Mayer): • Brüche (auf Zahlenreihe und Hardware-Ziffernblock) • römische Zahlen • Ligaturen und Copyright - - - */ - - diff --git a/windows/autohotkey/Source/Global-Part.ahk b/windows/autohotkey/Source/Global-Part.ahk index 06d051f..d5e7e35 100644 --- a/windows/autohotkey/Source/Global-Part.ahk +++ b/windows/autohotkey/Source/Global-Part.ahk @@ -1,8 +1,8 @@ -/******************** - Verzeichnisse * -********************* +/**************** +* Verzeichnisse * +***************** */ ; Setzt den Pfad zu einem temporären Verzeichnis EnvGet, WindowsEnvTempFolder, TEMP @@ -16,15 +16,14 @@ FileCreateDir, %ApplicationFolder% -/****************** - Globale Schalter * -******************* +/******************* +* Globale Schalter * +******************** */ ; Im folgenden gilt (soweit nicht anders angegeben) Ja = 1, Nein = 0: ; Syntaxhinweis: IniRead, Variable, InputFilename, Section, Key [, DefaultValue] - ; Sollen die Bilder für die Bildschirmtastatur in die compilierte EXE-Datei miteingebunden werden? (Nachteil: grössere Dateigrösse, Vorteil: Referenz für Anfänger stets einfach verfügbar) bildschirmTastaturEinbinden := 1 @@ -37,36 +36,40 @@ IniRead, einHandNeo, %ApplicationFolder%\NEO2.ini, Global, einHandNeo, 0 ; Soll der Lernmodus aktiviert werden? IniRead, lernModus, %ApplicationFolder%\NEO2.ini, Global, lernModus, 0 -; Aktivierter Mod4-Lock wird über die Rollen-LED des Keybord angezeigt (analog zu CapsLock) +; Soll aktivierter Mod4-Lock über die Rollen-LED des Keybord angezeigt werden (analog zu CapsLock)? IniRead, UseMod4Light, %ApplicationFolder%\NEO2.ini, Global, UseMod4Light, 1 -; Soll Lang-s auf s, s auf ß und ß auf Mod3+ß gelegt (bzw. vertauscht) werden? +; Soll Lang-s auf s, s auf ß und ß auf Lang-s gelegt (bzw. vertauscht) werden? IniRead, LangSTastatur, %ApplicationFolder%\NEO2.ini, Global, LangSTastatur, 0 +; Sollen tote Tasten blind angezeigt werden? +IniRead, DeadCompose, %ApplicationFolder%\NEO2.ini, Global, DeadCompose, 0 +;Sollen Compose-Tasten blind angezeigt werden? +IniRead, DeadSilence, %ApplicationFolder%\NEO2.ini, Global, DeadSilence, 0 -/************************* - Recourcen-Verwaltung * -************************** -*/ +/*********************** +* Recourcen-Verwaltung * +************************ +*/ if(FileExist("ResourceFolder") <> false) { - ; Versuche, alle möglicherweise in die EXE eingebundenen Dateien zu extrahieren - FileInstall, neo.ico, %ResourceFolder%\neo.ico, 1 - FileInstall, neo_disabled.ico, %ResourceFolder%\neo_disabled.ico, 1 - iconBenutzen = 1 - if (bildschirmTastaturEinbinden==1) { - FileInstall, ebene1.png, %ResourceFolder%\ebene1.png, 1 - FileInstall, ebene2.png, %ResourceFolder%\ebene2.png, 1 - FileInstall, ebene3.png, %ResourceFolder%\ebene3.png, 1 - FileInstall, ebene4.png, %ResourceFolder%\ebene4.png, 1 - FileInstall, ebene5.png, %ResourceFolder%\ebene5.png, 1 - FileInstall, ebene6.png, %ResourceFolder%\ebene6.png, 1 - zeigeBildschirmTastatur = 1 - } + ; Versuche, alle möglicherweise in die EXE eingebundenen Dateien zu extrahieren + FileInstall, neo.ico, %ResourceFolder%\neo.ico, 1 + FileInstall, neo_disabled.ico, %ResourceFolder%\neo_disabled.ico, 1 + iconBenutzen = 1 + if (bildschirmTastaturEinbinden==1) { + FileInstall, ebene1.png, %ResourceFolder%\ebene1.png, 1 + FileInstall, ebene2.png, %ResourceFolder%\ebene2.png, 1 + FileInstall, ebene3.png, %ResourceFolder%\ebene3.png, 1 + FileInstall, ebene4.png, %ResourceFolder%\ebene4.png, 1 + FileInstall, ebene5.png, %ResourceFolder%\ebene5.png, 1 + FileInstall, ebene6.png, %ResourceFolder%\ebene6.png, 1 + zeigeBildschirmTastatur = 1 + } } else { - MsgBox, "Das Verzeichnis %ResourceFolder% konnte nicht angelegt werden!" ; Diese Zeile dient nur der eventuellen Fehlersuche und sollte eigentlich niemals auftauchen. + MsgBox, "Das Verzeichnis %ResourceFolder% konnte nicht angelegt werden!" ; Diese Zeile dient nur der eventuellen Fehlersuche und sollte eigentlich niemals auftauchen. } ; Benutze die Dateien auch dann, wenn sie eventuell im aktuellen Verzeichnis vorhanden sind @@ -76,16 +79,15 @@ if ( FileExist("neo.ico") && FileExist("neo_disabled.ico") ) iconBenutzen = 1 -/************************* - lernModus Konfiguration * - nur relevant wenn * - lernModus = 1 * - Strg+Komma schaltet um * -************************** +/************************** +* lernModus Konfiguration * +* nur relevant wenn * +* lernModus = 1 * +* Strg+Komma schaltet um * +*************************** */ ; 0 = aus, 1 = an - ; 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 @@ -101,29 +103,20 @@ lernModus_std_Links = 0 lernModus_std_Rechts = 0 lernModus_std_ZahlenReihe = 0 - - ; im folgenden kann man auch noch ein paar Tasten der 4. Ebene deaktivieren ; nützlich um sich zu zwingen, richtig zu schreiben lernModus_neo_Backspace = 0 lernModus_neo_Entf = 1 - - - -; aus Noras script kopiert: - +; aus Noras Skript kopiert: Process,Priority,,High - #usehook on #singleinstance force #LTrim ; Quelltext kann eingerückt werden, ; msgbox ist trotzdem linksbündig - SetTitleMatchMode 2 SendMode Input - name = Neo 2.0 enable = Aktiviere %name% disable = Deaktiviere %name% @@ -138,39 +131,38 @@ if inputlocalealias <> inputlocale = %inputlocalealias% if inputlocale <> 00000407 { - suspend - regread, inputlocale, HKEY_LOCAL_MACHINE - , SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale% - , Layout Text - msgbox, 48, Warnung!, - ( - Nicht kompatibles Tastaturlayout: - `t%inputlocale% - `nDas deutsche QWERTZ muss als Standardlayout eingestellt - sein, damit %name% wie erwartet funktioniert. - `nÄndern Sie die Tastatureinstellung unter - `tSystemsteuerung - `t-> Regions- und Sprachoptionen - `t-> Sprachen - `t-> Details... `n - ) - exitapp + suspend + regread, inputlocale, HKEY_LOCAL_MACHINE + , SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale% + , Layout Text + msgbox, 48, Warnung!, + ( + Nicht kompatibles Tastaturlayout: + `t%inputlocale% + `nDas deutsche QWERTZ muss als Standardlayout eingestellt + sein, damit %name% wie erwartet funktioniert. + `nÄndern Sie die Tastatureinstellung unter + `tSystemsteuerung + `t-> Regions- und Sprachoptionen + `t-> Sprachen + `t-> Details... `n + ) + exitapp } - ; Menü des Systray-Icons ; ---------------------- if (iconBenutzen) - menu, tray, icon, %ResourceFolder%\neo.ico,,1 + menu, tray, icon, %ResourceFolder%\neo.ico,,1 menu, tray, nostandard menu, tray, add, Öffnen, open - menu, helpmenu, add, About, about - menu, helpmenu, add, Autohotkey-Hilfe, help - menu, helpmenu, add - menu, helpmenu, add, http://&autohotkey.com/, autohotkey - menu, helpmenu, add, http://www.neo-layout.org/, neo + menu, helpmenu, add, About, about + menu, helpmenu, add, Autohotkey-Hilfe, help + menu, helpmenu, add + menu, helpmenu, add, http://&autohotkey.com/, autohotkey + menu, helpmenu, add, http://www.neo-layout.org/, neo menu, tray, add, Hilfe, :helpmenu menu, tray, add menu, tray, add, %disable%, togglesuspend @@ -185,7 +177,7 @@ menu, tray, tip, %name% /* - Variablen initialisieren + Variablen initialisieren */ DeadKey = "" @@ -193,14 +185,12 @@ CompKey = "" PriorDeadKey = "" PriorCompKey = "" Ebene12 = 0 -EbeneAktualisieren() - - +EbeneAktualisieren() /* - EinHandNeo + EinHandNeo */ spacepressed := 0 keypressed:= 0 @@ -237,5 +227,33 @@ gespiegelt_punkt = neo_ gespiegelt_j = neo_ü - - +;Blinde/Sichtbare Tote Tasten +*F9:: + if (isMod4pressed()) + DeadSilence := not(DeadSilence) + else + send {blind}{F9} +return + +;Blinde/Sichtbare Compose +*F10:: + if (isMod4pressed()) + DeadCompose := not(DeadCompose) + else + send {blind}{F10} +return + +;Lang-s-Tastatur: +*F11:: + if (isMod4pressed()) + LangSTastatur := not(LangSTastatur) ; schaltet die Lang-s-Tastatur ein und aus + else + send {blind}{F11} +return + +*Esc:: + if (isMod4pressed()) + reload + else + send {blind}{Esc} +return diff --git a/windows/autohotkey/Source/Keys-Neo.ahk b/windows/autohotkey/Source/Keys-Neo.ahk index 8288e58..9b96747 100644 --- a/windows/autohotkey/Source/Keys-Neo.ahk +++ b/windows/autohotkey/Source/Keys-Neo.ahk @@ -1,69 +1,66 @@ /* Die eigentliche NEO-Belegung und der Hauptteil des AHK-Treibers. + Ablauf bei toten Tasten: + 1. Ebene Aktualisieren + 2. Abhängig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen - Ablauf bei toten Tasten: - 1. Ebene Aktualisieren - 2. Abhängig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen - - Ablauf bei "untoten" Tasten: - 1. Ebene Aktualisieren - 2. Abhängig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben - 3. "PriorDeadKey" mit leerem String überschreiben - - ------------------------------------------------------ - Reihe 1 - ------------------------------------------------------ + Ablauf bei "untoten" Tasten: + 1. Ebene Aktualisieren + 2. Abhängig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben + 3. "PriorDeadKey" mit leerem String überschreiben + + Reihe 1 */ neo_tot1: - EbeneAktualisieren() - if (Ebene = 1) - { - deadUni(0x02C6) ; circumflex, tot - DeadKey := "c1" - } - else if (Ebene = 2) - { - deadUni(0x02C7) ; caron, tot - DeadKey := "c2" - } - else if (Ebene = 3) - { - deadUni(0x02D8) ; brevis - DeadKey := "c3" - } - else if (Ebene = 4) - { - deadUni(0x00B7) ; Mittenpunkt, tot - DeadKey := "c4" - } - else if (Ebene = 5) - { - deadAsc("-") ; querstrich, tot - DeadKey := "c5" - } - else if (Ebene = 6) - { - deadAsc(".") ; punkt darunter (colon) - DeadKey := "c6" - } - CompKey := PriorCompKey + EbeneAktualisieren() + if (Ebene = 1) + { + deadUni(0x02C6) ; Zirkumflex, tot + DeadKey := "c1" + } + else if (Ebene = 2) + { + deadUni(0x02C7) ; Caron, tot + DeadKey := "c2" + } + else if (Ebene = 3) + { + deadUni(0x02D8) ; Brevis, tot + DeadKey := "c3" + } + else if (Ebene = 4) + { + deadUni(0x00B7) ; Mittenpunkt, tot + DeadKey := "c4" + } + else if (Ebene = 5) + { + deadAsc("-") ; Querstrich, tot + DeadKey := "c5" + } + else if (Ebene = 6) + { + deadAsc(".") ; Punkt drunter (Colon), tot + DeadKey := "c6" + } + CompKey := PriorCompKey return neo_1: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x00B9) - or CheckDeadUni("c5",0x2081) - or CheckComp3Uni("r_1",0x217A) ; römisch xi - or CheckComp3Uni("R_1",0x216A)) ; römisch XI - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}1{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}1 + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x00B9) + or CheckDeadUni("c5",0x2081) + or CheckComp3Uni("r_1",0x217A) ; römisch xi + or CheckComp3Uni("R_1",0x216A)) ; römisch XI + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}1{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}1 if (PriorDeadKey = "comp") CompKey := "1" @@ -85,264 +82,264 @@ neo_1: return neo_2: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x00B2) - or CheckDeadUni("c5",0x2082) - or CheckCompUni("r",0x2171) ; römisch ii - or CheckCompUni("R",0x2161) ; römisch II - or CheckComp3Uni("r_1",0x217B) ; römisch xii - or CheckComp3Uni("R_1",0x216B)) ; römisch XII - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}2{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}2 - - if (PriorDeadKey = "comp") - CompKey := "2" - } - else if (Ebene = 2) - SendUnicodeChar(0x2116) ; numero - else if (Ebene = 3) - SendUnicodeChar(0x00B2) ; 2 Hochgestellte - else if (Ebene = 4) - SendUnicodeChar(0x2023) ; aufzaehlungspfeil - else if (Ebene = 5) - SendUnicodeChar(0x26A5) ; Piktogramm Zwitter - else if (Ebene = 6) - SendUnicodeChar(0x2228) ; Logisches Oder + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x00B2) + or CheckDeadUni("c5",0x2082) + or CheckCompUni("r",0x2171) ; römisch ii + or CheckCompUni("R",0x2161) ; römisch II + or CheckComp3Uni("r_1",0x217B) ; römisch xii + or CheckComp3Uni("R_1",0x216B)) ; römisch XII + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}2{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}2 + + if (PriorDeadKey = "comp") + CompKey := "2" + } + else if (Ebene = 2) + SendUnicodeChar(0x2116) ; numero + else if (Ebene = 3) + SendUnicodeChar(0x00B2) ; 2 Hochgestellte + else if (Ebene = 4) + SendUnicodeChar(0x2023) ; aufzaehlungspfeil + else if (Ebene = 5) + SendUnicodeChar(0x26A5) ; Piktogramm Zwitter + else if (Ebene = 6) + SendUnicodeChar(0x2228) ; Logisches Oder return neo_3: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x00B3) - or CheckDeadUni("c5",0x2083) - or CheckCompUni("1",0x2153) ; 1/3 - or CheckCompUni("2",0x2154) ; 2/3 - or CheckCompUni("r",0x2172) ; römisch iii - or CheckCompUni("R",0x2162)) ; römisch III - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}3{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}3 - - if (PriorDeadKey = "comp") - CompKey := "3" - } - else if (Ebene = 2) - send § - else if (Ebene = 3) - SendUnicodeChar(0x00B3) ; 3 Hochgestellte - else if (Ebene = 4) - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 5) - SendUnicodeChar(0x2642) ; Piktogramm Mann - else if (Ebene = 6) - SendUnicodeChar(0x2227) ; Logisches Und + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x00B3) + or CheckDeadUni("c5",0x2083) + or CheckCompUni("1",0x2153) ; 1/3 + or CheckCompUni("2",0x2154) ; 2/3 + or CheckCompUni("r",0x2172) ; römisch iii + or CheckCompUni("R",0x2162)) ; römisch III + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}3{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}3 + + if (PriorDeadKey = "comp") + CompKey := "3" + } + else if (Ebene = 2) + send § + else if (Ebene = 3) + SendUnicodeChar(0x00B3) ; 3 Hochgestellte + else if (Ebene = 4) + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 5) + SendUnicodeChar(0x2642) ; Piktogramm Mann + else if (Ebene = 6) + SendUnicodeChar(0x2227) ; Logisches Und return neo_4: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2074) - or CheckDeadUni("c5",0x2084) - or CheckCompUni("r",0x2173) ; römisch iv - or CheckCompUni("R",0x2163)) ; römisch IV - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}4{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}4 - - if (PriorDeadKey = "comp") - CompKey := "4" - } - else if (Ebene = 2) - SendUnicodeChar(0x00BB) ; », Double guillemot right - else if (Ebene = 3) - Send {blind}› ; Single guillemot right - else if (Ebene = 4) - Send {blind}{PgUp} ; Prev - else if (Ebene = 5) - SendUnicodeChar(0x2113) ; Script small L - else if (Ebene = 6) - SendUnicodeChar(0x22A5) ; Senkrecht + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2074) + or CheckDeadUni("c5",0x2084) + or CheckCompUni("r",0x2173) ; römisch iv + or CheckCompUni("R",0x2163)) ; römisch IV + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}4{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}4 + + if (PriorDeadKey = "comp") + CompKey := "4" + } + else if (Ebene = 2) + SendUnicodeChar(0x00BB) ; », Double guillemot right + else if (Ebene = 3) + Send {blind}› ; Single guillemot right + else if (Ebene = 4) + Send {blind}{PgUp} ; Prev + else if (Ebene = 5) + SendUnicodeChar(0x2113) ; Script small L + else if (Ebene = 6) + SendUnicodeChar(0x22A5) ; Senkrecht return neo_5: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2075) - or CheckDeadUni("c5",0x2085) - or CheckCompUni("1",0x2155) ; 1/5 - or CheckCompUni("2",0x2156) ; 2/5 - or CheckCompUni("3",0x2157) ; 3/5 - or CheckCompUni("4",0x2158) ; 4/5 - or CheckCompUni("r",0x2174) ; römisch v - or CheckCompUni("R",0x2164)) ; römisch V - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}5{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}5 - - if (PriorDeadKey = "comp") - CompKey := "5" - } - else if (Ebene = 2) - SendUnicodeChar(0x00AB) ; «, Double guillemot left - else if (Ebene = 3) - Send {blind}‹ ; Single guillemot left - else if (Ebene = 4) - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 5) - SendUnicodeChar(0x2020) ; Kreuz (Dagger) - else if (Ebene = 6) - SendUnicodeChar(0x2221) ; Winkel + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2075) + or CheckDeadUni("c5",0x2085) + or CheckCompUni("1",0x2155) ; 1/5 + or CheckCompUni("2",0x2156) ; 2/5 + or CheckCompUni("3",0x2157) ; 3/5 + or CheckCompUni("4",0x2158) ; 4/5 + or CheckCompUni("r",0x2174) ; römisch v + or CheckCompUni("R",0x2164)) ; römisch V + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}5{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}5 + + if (PriorDeadKey = "comp") + CompKey := "5" + } + else if (Ebene = 2) + SendUnicodeChar(0x00AB) ; Double guillemot left + else if (Ebene = 3) + Send {blind}‹ ; Single guillemot left + else if (Ebene = 4) + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 5) + SendUnicodeChar(0x2020) ; Kreuz (Dagger) + else if (Ebene = 6) + SendUnicodeChar(0x2221) ; Winkel return neo_6: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2076) - or CheckDeadUni("c5",0x2086) - or CheckCompUni("1",0x2159) ; 1/6 - or CheckCompUni("5",0x215A) ; 5/6 - or CheckCompUni("r",0x2175) ; römisch vi - or CheckCompUni("R",0x2165)) ; römisch VI - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}6{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}6 - - if (PriorDeadKey = "comp") - CompKey := "6" - } - else if (Ebene = 2) - send € - else if (Ebene = 3) - send {blind}¢ - else if (Ebene = 4) - send {blind}£ - else if (Ebene = 5) - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 6) - SendUnicodeChar(0x2225) ; parallel + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2076) + or CheckDeadUni("c5",0x2086) + or CheckCompUni("1",0x2159) ; 1/6 + or CheckCompUni("5",0x215A) ; 5/6 + or CheckCompUni("r",0x2175) ; römisch vi + or CheckCompUni("R",0x2165)) ; römisch VI + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}6{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}6 + + if (PriorDeadKey = "comp") + CompKey := "6" + } + else if (Ebene = 2) + send € + else if (Ebene = 3) + send {blind}¢ + else if (Ebene = 4) + send {blind}£ + else if (Ebene = 5) + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 6) + SendUnicodeChar(0x2225) ; parallel return neo_7: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2077) - or CheckDeadUni("c5",0x2087) - or CheckCompUni("r",0x2176) ; römisch vii - or CheckCompUni("R",0x2166)) ; römisch VII - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}7{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}7 - - if (PriorDeadKey = "comp") - CompKey := "7" - } - else if (Ebene = 2) - send $ - else if (Ebene = 3) - send {blind}¥ - else if (Ebene = 4) - send {blind}¤ - else if (Ebene = 5) - SendUnicodeChar(0x03BA) ; greek small letter kappa - else if (Ebene = 6) - SendUnicodeChar(0x2209) ; nicht Element von + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2077) + or CheckDeadUni("c5",0x2087) + or CheckCompUni("r",0x2176) ; römisch vii + or CheckCompUni("R",0x2166)) ; römisch VII + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}7{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}7 + + if (PriorDeadKey = "comp") + CompKey := "7" + } + else if (Ebene = 2) + send $ + else if (Ebene = 3) + send {blind}¥ + else if (Ebene = 4) + send {blind}¤ + else if (Ebene = 5) + SendUnicodeChar(0x03BA) ; greek small letter kappa + else if (Ebene = 6) + SendUnicodeChar(0x2209) ; nicht Element von return neo_8: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2078) - or CheckDeadUni("c5",0x2088) - or CheckCompUni("1",0x215B) ; 1/8 - or CheckCompUni("3",0x215C) ; 3/8 - or CheckCompUni("5",0x215D) ; 5/8 - or CheckCompUni("7",0x215E) ; 7/8 - or CheckCompUni("r",0x2177) ; römisch viii - or CheckCompUni("R",0x2167)) ; römisch VIII - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}8{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}8 - - if (PriorDeadKey = "comp") - CompKey := "8" - } - else if (Ebene = 2) - send „ - else if (Ebene = 3) - send {blind}‚ - else if (Ebene = 4) - Send {blind}{NumpadDiv} - else if (Ebene = 5) - SendUnicodeChar(0x27E8) ;bra (öffnende spitze klammer) - else if (Ebene = 6) - SendUnicodeChar(0x2204) ; es existiert nicht + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2078) + or CheckDeadUni("c5",0x2088) + or CheckCompUni("1",0x215B) ; 1/8 + or CheckCompUni("3",0x215C) ; 3/8 + or CheckCompUni("5",0x215D) ; 5/8 + or CheckCompUni("7",0x215E) ; 7/8 + or CheckCompUni("r",0x2177) ; römisch viii + or CheckCompUni("R",0x2167)) ; römisch VIII + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}8{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}8 + + if (PriorDeadKey = "comp") + CompKey := "8" + } + else if (Ebene = 2) + send „ + else if (Ebene = 3) + send {blind}‚ + else if (Ebene = 4) + Send {blind}{NumpadDiv} + else if (Ebene = 5) + SendUnicodeChar(0x27E8) ;bra (öffnende spitze klammer) + else if (Ebene = 6) + SendUnicodeChar(0x2204) ; es existiert nicht return neo_9: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2079) - or CheckDeadUni("c5",0x2089) - or CheckCompUni("r",0x2178) ; römisch ix - or CheckCompUni("R",0x2168)) ; römisch IX - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}9{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}9 - - if (PriorDeadKey = "comp") - CompKey := "9" - } - else if (Ebene = 2) - send “ - else if (Ebene = 3) - send {blind}‘ - else if (Ebene = 4) - Send {blind}{NumpadMult} - else if (Ebene = 5) - SendUnicodeChar(0x27E9) ;ket (schließende spitze klammer) - else if (Ebene = 6) - SendUnicodeChar(0x2226) ; nicht parallel + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2079) + or CheckDeadUni("c5",0x2089) + or CheckCompUni("r",0x2178) ; römisch ix + or CheckCompUni("R",0x2168)) ; römisch IX + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}9{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}9 + + if (PriorDeadKey = "comp") + CompKey := "9" + } + else if (Ebene = 2) + send “ + else if (Ebene = 3) + send {blind}‘ + else if (Ebene = 4) + Send {blind}{NumpadMult} + else if (Ebene = 5) + SendUnicodeChar(0x27E9) ;ket (schließende spitze klammer) + else if (Ebene = 6) + SendUnicodeChar(0x2226) ; nicht parallel return neo_0: - EbeneAktualisieren() - if (Ebene = 1) - { - if !(CheckDeadUni("c1",0x2070) - or CheckDeadUni("c5",0x2080) - or CheckComp3Uni("r_1",0x2179) ; römisch x - or CheckComp3Uni("R_1",0x2169)) ; römisch X - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}0{Shift up} - else if (not(lernModus) or lernModus_std_ZahlenReihe) - send {blind}0 + EbeneAktualisieren() + if (Ebene = 1) + { + if !(CheckDeadUni("c1",0x2070) + or CheckDeadUni("c5",0x2080) + or CheckComp3Uni("r_1",0x2179) ; römisch x + or CheckComp3Uni("R_1",0x2169)) ; römisch X + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}0{Shift up} + else if (not(lernModus) or lernModus_std_ZahlenReihe) + send {blind}0 if (PriorDeadKey = "comp") CompKey := "0" @@ -363,233 +360,233 @@ neo_0: return neo_strich: - EbeneAktualisieren() - if (Ebene = 1) - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}-{Shift up} - else - send {blind}- ; Bindestrich-Minus - else if (Ebene = 2) - SendUnicodeChar(0x2013) ; Gedankenstrich - else if (Ebene = 3) - SendUnicodeChar(0x2014) ; Englischer Gedankenstrich (Geviertstrich) - else if (Ebene = 4) - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 5) - SendUnicodeChar(0x2011) ; geschützter Bindestrich (Bindestrich ohne Zeilenumbruch) - else if (Ebene = 6) - SendUnicodeChar(0x00AD) ; weicher Bindestrich + EbeneAktualisieren() + if (Ebene = 1) + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}-{Shift up} + else + send {blind}- ; Bindestrich-Minus + else if (Ebene = 2) + SendUnicodeChar(0x2013) ; Gedankenstrich + else if (Ebene = 3) + SendUnicodeChar(0x2014) ; Englischer Gedankenstrich (Geviertstrich) + else if (Ebene = 4) + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 5) + SendUnicodeChar(0x2011) ; geschützter Bindestrich (Bindestrich ohne Zeilenumbruch) + else if (Ebene = 6) + SendUnicodeChar(0x00AD) ; weicher Bindestrich return neo_tot2: - EbeneAktualisieren() - if (Ebene = 1) - { - deadAsc("{´}{space}") ; akut, tot - DeadKey := "a1" - } - else if (Ebene = 2) - { - deadAsc("``{space}") - DeadKey := "a2" - } - else if (Ebene = 3) - { - deadAsc("¸") ; cedilla - DeadKey := "a3" - } - else if (Ebene = 4) - { - deadUni(0x02D9) ; punkt oben drüber - DeadKey := "a4" - } - else if (Ebene = 5) - { - deadUni(0x02DB) ; ogonek - DeadKey := "a5" - } - else if (Ebene = 6) - { - deadUni(0x02DA) ; ring obendrauf - DeadKey := "a6" - } - CompKey := PriorCompKey + EbeneAktualisieren() + if (Ebene = 1) + { + deadAsc("{´}{space}") ; Akut, tot + DeadKey := "a1" + } + else if (Ebene = 2) + { + deadAsc("``{space}") ; Gravis, tot + DeadKey := "a2" + } + else if (Ebene = 3) + { + deadAsc("¸") ; Cedilla, tot + DeadKey := "a3" + } + else if (Ebene = 4) + { + deadUni(0x02D9) ; Punkt obendrüber + DeadKey := "a4" + } + else if (Ebene = 5) + { + deadUni(0x02DB) ; Ogonek + DeadKey := "a5" + } + else if (Ebene = 6) + { + deadUni(0x02DA) ; Ring obendrauf + DeadKey := "a6" + } + CompKey := PriorCompKey return /* - ------------------------------------------------------ - Reihe 2 - ------------------------------------------------------ + + Reihe 2 + */ neo_x: - EbeneAktualisieren() - if (Ebene12) - OutputChar("x","X") - else if (Ebene = 3) - SendUnicodeChar(0x2026) ;Ellipse - else if (Ebene = 5) - SendUnicodeChar(0x03BE) ;xi - else if (Ebene = 6) - SendUnicodeChar(0x039E) ; Xi + EbeneAktualisieren() + if (Ebene12) + OutputChar("x","X") + else if (Ebene = 3) + SendUnicodeChar(0x2026) ;Ellipse + else if (Ebene = 5) + SendUnicodeChar(0x03BE) ;xi + else if (Ebene = 6) + SendUnicodeChar(0x039E) ; Xi return neo_v: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("c6",0x1E7F,0x1E7E))) - OutputChar("v","V") - else if (Ebene = 3) - send {blind}_ - else if (Ebene = 4) - if (not(lernModus) or lernModus_neo_Backspace) - Send {blind}{Backspace} - else - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 6) - SendUnicodeChar(0x2259) ; estimates + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("c6",0x1E7F,0x1E7E))) + OutputChar("v","V") + else if (Ebene = 3) + send {blind}_ + else if (Ebene = 4) + if (not(lernModus) or lernModus_neo_Backspace) + Send {blind}{Backspace} + else + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 6) + SendUnicodeChar(0x2259) ; estimates return neo_l: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x013A,0x0139) - or CheckDeadUni12("a3",0x013C,0x013B) - or CheckDeadUni12("c2",0x013E,0x013D) - or CheckDeadUni12("c4",0x0140,0x013F) - or CheckDeadUni12("c6",0x1E37,0x1E36) - or CheckDeadUni12("t4",0x0142,0x0141))) - OutputChar("l","L") - else if (Ebene = 3) - send {blind}[ - else if (Ebene = 4) - Send {Blind}{Up} - else if (Ebene = 5) - SendUnicodeChar(0x03BB) ; lambda - else if (Ebene = 6) - SendUnicodeChar(0x039B) ; Lambda + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x013A,0x0139) + or CheckDeadUni12("a3",0x013C,0x013B) + or CheckDeadUni12("c2",0x013E,0x013D) + or CheckDeadUni12("c4",0x0140,0x013F) + or CheckDeadUni12("c6",0x1E37,0x1E36) + or CheckDeadUni12("t4",0x0142,0x0141))) + OutputChar("l","L") + else if (Ebene = 3) + send {blind}[ + else if (Ebene = 4) + Send {Blind}{Up} + else if (Ebene = 5) + SendUnicodeChar(0x03BB) ; lambda + else if (Ebene = 6) + SendUnicodeChar(0x039B) ; Lambda return neo_c: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x0107,0x0106) - or CheckDeadUni12("a3",0x00E7,0x00E6) - or CheckDeadUni12("a4",0x010B,0x010A) - or CheckDeadUni12("c1",0x0109,0x0108) - or CheckDeadUni12("c2",0x010D,0x010C) - or CheckCompAsc12("o","©","©") - or CheckCompAsc12("O","©","©"))) - OutputChar("c","C") - else if (Ebene = 3) - send {blind}] - else if (Ebene = 4) - if (not(lernModus) or lernModus_neo_Entf) - Send {blind}{Del} - else - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 5) - SendUnicodeChar(0x03C7) ;chi - else if (Ebene = 6) - SendUnicodeChar(0x2102) ; C (Komplexe Zahlen) + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x0107,0x0106) + or CheckDeadUni12("a3",0x00E7,0x00E6) + or CheckDeadUni12("a4",0x010B,0x010A) + or CheckDeadUni12("c1",0x0109,0x0108) + or CheckDeadUni12("c2",0x010D,0x010C) + or CheckCompAsc12("o","©","©") + or CheckCompAsc12("O","©","©"))) + OutputChar("c","C") + else if (Ebene = 3) + send {blind}] + else if (Ebene = 4) + if (not(lernModus) or lernModus_neo_Entf) + Send {blind}{Del} + else + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 5) + SendUnicodeChar(0x03C7) ;chi + else if (Ebene = 6) + SendUnicodeChar(0x2102) ; C (Komplexe Zahlen) return neo_w: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("c1",0x0175,0x0174))) - OutputChar("w","W") - else if (Ebene = 3) - SendUnicodeChar(0x005E) ; untotes ^ - Unicode-Name: CIRCUMFLEX ACCENT - ;send {^}{space} ; Funktioniert nicht unter Java-Programmen - else if (Ebene = 4) - Send {blind}{Insert} - else if (Ebene = 5) - SendUnicodeChar(0x03C9) ; omega - else if (Ebene = 6) - SendUnicodeChar(0x03A9) ; Omega + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("c1",0x0175,0x0174))) + OutputChar("w","W") + else if (Ebene = 3) + SendUnicodeChar(0x005E) ; untotes ^ - Unicode-Name: CIRCUMFLEX ACCENT + ;send {^}{space} ; Funktioniert nicht unter Java-Programmen + else if (Ebene = 4) + Send {blind}{Insert} + else if (Ebene = 5) + SendUnicodeChar(0x03C9) ; omega + else if (Ebene = 6) + SendUnicodeChar(0x03A9) ; Omega return neo_k: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a3",0x0137,0x0136) - or CheckDeadUni12("c6",0x1E33,0x1E32))) - OutputChar("k","K") - else if (Ebene = 3) - send {blind}{!} - else if (Ebene = 4) - Send ¡ - else if (Ebene = 5) - SendUnicodeChar(0x03F0) ;kappa symbol (varkappa) - else if (Ebene = 6) - SendUnicodeChar(0x221A) ; Wurzel + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a3",0x0137,0x0136) + or CheckDeadUni12("c6",0x1E33,0x1E32))) + OutputChar("k","K") + else if (Ebene = 3) + send {blind}{!} + else if (Ebene = 4) + Send ¡ + else if (Ebene = 5) + SendUnicodeChar(0x03F0) ;kappa symbol (varkappa) + else if (Ebene = 6) + SendUnicodeChar(0x221A) ; Wurzel return neo_h: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a4",0x1E23,0x1E22) - or CheckDeadUni12("c1",0x0125,0x0124) - or CheckDeadUni12("c5",0x0127,0x0126) - or CheckDeadUni12("c6",0x1E25,0x1E24))) - OutputChar("h","H") - else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2264))) ; kleiner gleich - send {blind}< - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2077) - or CheckDeadUni("c5",0x2087))) - Send {blind}{NumPad7} - else if (Ebene = 5) - SendUnicodeChar(0x03C8) ;psi - else if (Ebene = 6) - SendUnicodeChar(0x03A8) ; Psi + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a4",0x1E23,0x1E22) + or CheckDeadUni12("c1",0x0125,0x0124) + or CheckDeadUni12("c5",0x0127,0x0126) + or CheckDeadUni12("c6",0x1E25,0x1E24))) + OutputChar("h","H") + else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2264))) ; kleiner gleich + send {blind}< + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2077) + or CheckDeadUni("c5",0x2087))) + Send {blind}{NumPad7} + else if (Ebene = 5) + SendUnicodeChar(0x03C8) ;psi + else if (Ebene = 6) + SendUnicodeChar(0x03A8) ; Psi return neo_g: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a3",0x0123,0x0122) - or CheckDeadUni12("a4",0x0121,0x0120) - or CheckDeadUni12("c1",0x011D,0x011C) - or CheckDeadUni12("c3",0x011F,0x011E))) - OutputChar("g","G") - else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2265))) ; größer gleich - send {blind}> - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2078) - or CheckDeadUni("c5",0x2088))) - Send {blind}{NumPad8} - else if (Ebene = 5) - SendUnicodeChar(0x03B3) ;gamma - else if (Ebene = 6) - SendUnicodeChar(0x0393) ; Gamma + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a3",0x0123,0x0122) + or CheckDeadUni12("a4",0x0121,0x0120) + or CheckDeadUni12("c1",0x011D,0x011C) + or CheckDeadUni12("c3",0x011F,0x011E))) + OutputChar("g","G") + else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2265))) ; größer gleich + send {blind}> + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2078) + or CheckDeadUni("c5",0x2088))) + Send {blind}{NumPad8} + else if (Ebene = 5) + SendUnicodeChar(0x03B3) ;gamma + else if (Ebene = 6) + SendUnicodeChar(0x0393) ; Gamma return neo_f: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a4",0x1E1F,0x1E1E) - or CheckDeadUni12("t4",0x0192,0x0191))) - OutputChar("f","F") - else if ((Ebene = 3) and !(CheckDeadUni("a6",0x2257) ; ring equal to - or CheckDeadUni("c1",0x2259) ; entspricht - or CheckDeadUni("c2",0x225A) ; EQUIANGULAR TO - or CheckDeadUni("c5",0x2261) ; identisch - or CheckDeadUni("t1",0x2245) ; ungefähr gleich - or CheckDeadUni("t4",0x2260))) ; ungleich - send {blind}`= - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2079) - or CheckDeadUni("c5",0x2089))) - Send {blind}{NumPad9} - else if (Ebene = 5) - SendUnicodeChar(0x03C6) ; phi - else if (Ebene = 6) - SendUnicodeChar(0x03A6) ; Phi + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a4",0x1E1F,0x1E1E) + or CheckDeadUni12("t4",0x0192,0x0191))) + OutputChar("f","F") + else if ((Ebene = 3) and !(CheckDeadUni("a6",0x2257) ; ring equal to + or CheckDeadUni("c1",0x2259) ; entspricht + or CheckDeadUni("c2",0x225A) ; EQUIANGULAR TO + or CheckDeadUni("c5",0x2261) ; identisch + or CheckDeadUni("t1",0x2245) ; ungefähr gleich + or CheckDeadUni("t4",0x2260))) ; ungleich + send {blind}`= + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2079) + or CheckDeadUni("c5",0x2089))) + Send {blind}{NumPad9} + else if (Ebene = 5) + SendUnicodeChar(0x03C6) ; phi + else if (Ebene = 6) + SendUnicodeChar(0x03A6) ; Phi return neo_q: @@ -608,281 +605,298 @@ neo_q: return neo_sz: - EbeneAktualisieren() - if (Ebene = 1) - if (GetKeyState("CapsLock","T")) - SendUnicodeChar(0x1E9E) ; verssal-ß - else if (LangSTastatur = 1) - send {blind}s - else - send ß - else if (Ebene = 2) - if (GetKeyState("CapsLock","T")) - if (LangSTastatur = 1) - send {blind}s - else - send ß - else - SendUnicodeChar(0x1E9E) ; versal-ß - else if (Ebene = 3) + EbeneAktualisieren() + if (Ebene = 1) + if (GetKeyState("CapsLock","T")) + SendUnicodeChar(0x1E9E) ; versal-ß + else if (LangSTastatur = 1) + send {blind}s + else + send ß + else if (Ebene = 2) + if (GetKeyState("CapsLock","T")) if (LangSTastatur = 1) - send ß + send {blind}s else - SendUnicodeChar(0x017F) ; langes s - else if (Ebene = 5) - SendUnicodeChar(0x03C2) ; varsigma - else if (Ebene = 6) - SendUnicodeChar(0x2218) ; Verknüpfungsoperator + send ß + else + SendUnicodeChar(0x1E9E) ; versal-ß + else if (Ebene = 3) + if (LangSTastatur = 1) + send ß + else + SendUnicodeChar(0x017F) ; langes s + else if (Ebene = 5) + SendUnicodeChar(0x03C2) ; varsigma + else if (Ebene = 6) + SendUnicodeChar(0x2218) ; Verknüpfungsoperator return neo_tot3: - EbeneAktualisieren() - if (Ebene = 1) - { - deadUni(0x02DC) ; tilde, tot - DeadKey := "t1" - } - else if (Ebene = 2) - { - deadUni(0x00AF) ; macron, tot - DeadKey := "t2" - } - else if (Ebene = 3) - { - deadUni(0x00A8) ; diaerese - DeadKey := "t3" - } - else if (Ebene = 4) - { - deadUni(0x002F) ; Schrägstrich, tot - DeadKey := "t4" - } - else if (Ebene = 5) - { - deadUni(0x02DD) ;doppelakut - DeadKey := "t5" - } - else if (Ebene = 6) - { - deadUni(0x02CF) ; komma drunter, tot - DeadKey := "t6" - } - + EbeneAktualisieren() + if (Ebene = 1) + { + deadUni(0x02DC) ;Tilde, tot + DeadKey := "t1" + } + else if (Ebene = 2) + { + deadUni(0x00AF) ; Macron, tot + DeadKey := "t2" + } + else if (Ebene = 3) + { + deadUni(0x00A8) ; Diärese + DeadKey := "t3" + } + else if (Ebene = 4) + { + deadUni(0x002F) ; Schrägstrich, tot + DeadKey := "t4" + } + else if (Ebene = 5) + { + deadUni(0x02DD) ;Doppelakut + DeadKey := "t5" + } + else if (Ebene = 6) + { + deadUni(0x02CF) ; Komma drunter, tot + DeadKey := "t6" + } + return /* - ------------------------------------------------------ - Reihe 3 - ------------------------------------------------------ + + Reihe 3 + */ neo_u: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00FA,0x00DA) - or CheckDeadUni12("a2",0x00F9,0x00D9) - or CheckDeadUni12("a5",0x0173,0x0172) - or CheckDeadUni12("a6",0x016F,0x016E) - or CheckDeadUni12("c1",0x00FB,0x00DB) - or CheckDeadUni12("c2",0x01D4,0x01D3) - or CheckDeadUni12("c3",0x016D,0x016C) - or CheckDeadUni12("t1",0x0169,0x0168) - or CheckDeadUni12("t2",0x016B,0x016A) - or CheckDeadAsc12("t3","ü","Ü") - or CheckDeadUni12("t5",0x0171,0x0170))) - OutputChar("u","U") - else if (Ebene = 3) - send {blind}\ - else if (Ebene = 4) - Send {blind}{Home} - else if (Ebene = 5) - { - CompKey := PriorCompKey - DeadKey := PriorDeadKey - } ; leer - else if (Ebene = 6) - SendUnicodeChar(0x222E) ; contour integral + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00FA,0x00DA) + or CheckDeadUni12("a2",0x00F9,0x00D9) + or CheckDeadUni12("a5",0x0173,0x0172) + or CheckDeadUni12("a6",0x016F,0x016E) + or CheckDeadUni12("c1",0x00FB,0x00DB) + or CheckDeadUni12("c2",0x01D4,0x01D3) + or CheckDeadUni12("c3",0x016D,0x016C) + or CheckDeadUni12("t1",0x0169,0x0168) + or CheckDeadUni12("t2",0x016B,0x016A) + or CheckDeadAsc12("t3","ü","Ü") + or CheckDeadUni12("t5",0x0171,0x0170))) + OutputChar("u","U") + else if (Ebene = 3) + send {blind}\ + else if (Ebene = 4) + Send {blind}{Home} + else if (Ebene = 5) + { + CompKey := PriorCompKey + DeadKey := PriorDeadKey + } ; leer + else if (Ebene = 6) + SendUnicodeChar(0x222E) ; contour integral return neo_i: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00ED,0x00CD) - or CheckDeadUni12("a2",0x00EC,0x00CC) - or CheckDeadUni12("a4",0x012F,0x012E) - or CheckDeadUni12("a5",0x0131,0x0130) - or CheckDeadUni12("c1",0x00EE,0x00CE) - or CheckDeadUni12("c2",0x01D0,0x01CF) - or CheckDeadUni12("c3",0x012D,0x012C) - or CheckDeadUni12("t1",0x0129,0x0128) - or CheckDeadUni12("t2",0x012B,0x012A) - or CheckDeadAsc12("t3","ï","Ï"))) - OutputChar("i","I") - else if (Ebene = 3) - send {blind}`/ - else if (Ebene = 4) - Send {Blind}{Left} - else if (Ebene = 5 ) - SendUnicodeChar(0x03B9) ; iota - else if (Ebene = 6) - SendUnicodeChar(0x222B) ; integral + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00ED,0x00CD) + or CheckDeadUni12("a2",0x00EC,0x00CC) + or CheckDeadUni12("a4",0x012F,0x012E) + or CheckDeadUni12("a5",0x0131,0x0130) + or CheckDeadUni12("c1",0x00EE,0x00CE) + or CheckDeadUni12("c2",0x01D0,0x01CF) + or CheckDeadUni12("c3",0x012D,0x012C) + or CheckDeadUni12("t1",0x0129,0x0128) + or CheckDeadUni12("t2",0x012B,0x012A) + or CheckDeadAsc12("t3","ï","Ï"))) + OutputChar("i","I") + else if (Ebene = 3) + send {blind}`/ + else if (Ebene = 4) + Send {Blind}{Left} + else if (Ebene = 5 ) + SendUnicodeChar(0x03B9) ; iota + else if (Ebene = 6) + SendUnicodeChar(0x222B) ; integral return neo_a: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00E1,0x00C1) - or CheckDeadUni12("a2",0x00E0,0x00C0) - or CheckDeadUni12("a5",0x0105,0x0104) - or CheckDeadAsc12("a6","å","Å") - or CheckDeadUni12("c1",0x00E2,0x00C2) - or CheckDeadUni12("c2",0x01CE,0x01CD) - or CheckDeadUni12("c3",0x0103,0x0102) - or CheckDeadUni12("t1",0x00E3,0x00C3) - or CheckDeadUni12("t2",0x0101,0x0100) - or CheckDeadAsc12("t3","ä","Ä"))) - OutputChar("a","A") - else if (Ebene = 3) - send {blind}{{} ; } - else if (Ebene = 4) - Send {Blind}{Down} - else if (Ebene = 5) - SendUnicodeChar(0x03B1) ;alpha - else if (Ebene = 6) - SendUnicodeChar(0x2200) ;fuer alle + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00E1,0x00C1) + or CheckDeadUni12("a2",0x00E0,0x00C0) + or CheckDeadUni12("a5",0x0105,0x0104) + or CheckDeadAsc12("a6","å","Å") + or CheckDeadUni12("c1",0x00E2,0x00C2) + or CheckDeadUni12("c2",0x01CE,0x01CD) + or CheckDeadUni12("c3",0x0103,0x0102) + or CheckDeadUni12("t1",0x00E3,0x00C3) + or CheckDeadUni12("t2",0x0101,0x0100) + or CheckDeadAsc12("t3","ä","Ä"))) + OutputChar("a","A") + else if (Ebene = 3) + send {blind}{{} + else if (Ebene = 4) + Send {Blind}{Down} + else if (Ebene = 5) + SendUnicodeChar(0x03B1) ;alpha + else if (Ebene = 6) + SendUnicodeChar(0x2200) ;für alle return neo_e: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00E9,0x00C9) - or CheckDeadUni12("a2",0x00E8,0x00C8) - or CheckDeadUni12("a4",0x0117,0x0116) - or CheckDeadUni12("a5",0x0119,0x0118) - or CheckDeadUni12("c1",0x00EA,0x00CA) - or CheckDeadUni12("c2",0x011B,0x011A) - or CheckDeadUni12("c3",0x0115,0x0114) - or CheckDeadUni12("t2",0x0113,0x0112) - or CheckDeadAsc12("t3","ë","Ë") - or CheckCompAsc12("a","æ","Æ") - or CheckCompAsc12("A","Æ","Æ") - or CheckCompAsc12("o","œ","Œ") - or CheckCompAsc12("O","Œ","Œ"))) - OutputChar("e","E") - else if (Ebene = 3) ; { - send {blind}{}} - else if (Ebene = 4) - Send {Blind}{Right} - else if (Ebene = 5) - SendUnicodeChar(0x03B5) ;epsilon - else if (Ebene = 6) - SendUnicodeChar(0x2203) ;es existiert + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00E9,0x00C9) + or CheckDeadUni12("a2",0x00E8,0x00C8) + or CheckDeadUni12("a4",0x0117,0x0116) + or CheckDeadUni12("a5",0x0119,0x0118) + or CheckDeadUni12("c1",0x00EA,0x00CA) + or CheckDeadUni12("c2",0x011B,0x011A) + or CheckDeadUni12("c3",0x0115,0x0114) + or CheckDeadUni12("t2",0x0113,0x0112) + or CheckDeadAsc12("t3","ë","Ë") + or CheckCompAsc12("a","æ","Æ") + or CheckCompAsc12("A","Æ","Æ") + or CheckCompAsc12("o","œ","Œ") + or CheckCompAsc12("O","Œ","Œ"))) + OutputChar("e","E") + else if (Ebene = 3) ; { + send {blind}{}} + else if (Ebene = 4) + Send {Blind}{Right} + else if (Ebene = 5) + SendUnicodeChar(0x03B5) ;epsilon + else if (Ebene = 6) + SendUnicodeChar(0x2203) ;es existiert return neo_o: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00F3,0x00D3) - or CheckDeadUni12("a2",0x00F2,0x00D2) - or CheckDeadUni12("a5",0x01EB,0x01EA) - or CheckDeadUni12("c1",0x00F4,0x00D4) - or CheckDeadUni12("c2",0x01D2,0x01D1) - or CheckDeadUni12("c3",0x014F,0x014E) - or CheckDeadUni12("t1",0x00F5,0x00D5) - or CheckDeadUni12("t2",0x014D,0x014C) - or CheckDeadAsc12("t3","ö","Ö") - or CheckDeadUni12("t4",0x00F8,0x00D8) - or CheckDeadUni12("t5",0x0151,0x0150))) - OutputChar("o","O") - else if (Ebene = 3) - send {blind}* - else if (Ebene = 4) - Send {blind}{End} - else if (Ebene = 5) - SendUnicodeChar(0x03BF) ; omicron - else if (Ebene = 6) - SendUnicodeChar(0x2208) ; element of + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00F3,0x00D3) + or CheckDeadUni12("a2",0x00F2,0x00D2) + or CheckDeadUni12("a5",0x01EB,0x01EA) + or CheckDeadUni12("c1",0x00F4,0x00D4) + or CheckDeadUni12("c2",0x01D2,0x01D1) + or CheckDeadUni12("c3",0x014F,0x014E) + or CheckDeadUni12("t1",0x00F5,0x00D5) + or CheckDeadUni12("t2",0x014D,0x014C) + or CheckDeadAsc12("t3","ö","Ö") + or CheckDeadUni12("t4",0x00F8,0x00D8) + or CheckDeadUni12("t5",0x0151,0x0150))) + OutputChar("o","O") + else if (Ebene = 3) + send {blind}* + else if (Ebene = 4) + Send {blind}{End} + else if (Ebene = 5) + SendUnicodeChar(0x03BF) ; omicron + else if (Ebene = 6) + SendUnicodeChar(0x2208) ; element of return neo_s: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x015B,0x015A) - or CheckDeadUni12("a3",0x015F,0x015E) - or CheckDeadUni12("a4",0x1E61,0x1E60) - or CheckDeadUni12("c1",0x015D,0x015C) - or CheckDeadUni12("c2",0x0161,0x0160) - or CheckDeadUni12("c6",0x1E63,0x1A62))) - if (LangSTastatur = 1) - if (GetKeyState("CapsLock","T") xor (Ebene = 1)) - SendUnicodeChar(0x017F) ; langes s - else - OutputChar("s","S") - else - OutputChar("s","S") - else if (Ebene = 3) - send {blind}? - else if (Ebene = 4) - Send ¿ - else if (Ebene = 5) - SendUnicodeChar(0x03C3) ;sigma - else if (Ebene = 6) - SendUnicodeChar(0x03A3) ; Sigma + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x015B,0x015A) + or CheckDeadUni12("a3",0x015F,0x015E) + or CheckDeadUni12("a4",0x1E61,0x1E60) + or CheckDeadUni12("c1",0x015D,0x015C) + or CheckDeadUni12("c2",0x0161,0x0160) + or CheckDeadUni12("c6",0x1E63,0x1A62))) + if (Ebene = 1) + { + if LangSTastatur + if (GetKeyState("CapsLock","T")) + send {blind}s + else + SendUnicodeChar(0x017F) ;langes S + else + send {blind}s + if (PriorDeadKey = "comp") + CompKey := "s" + } + else if (Ebene = 2) + { + if LangSTastatur + if (GetKeyState("CapsLock","T")) + SendUnicodeChar(0x017F) ;langes S + else + send {blind}S + else + send {blind}S + if (PriorDeadKey = "comp") + CompKey := "S" + } + else if (Ebene = 3) + send {blind}? + else if (Ebene = 4) + Send ¿ + else if (Ebene = 5) + SendUnicodeChar(0x03C3) ;sigma + else if (Ebene = 6) + SendUnicodeChar(0x03A3) ; Sigma return neo_n: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x0144,0x0143) - or CheckDeadUni12("a3",0x0146,0x0145) - or CheckDeadUni12("a4",0x1E45,0x1E44) - or CheckDeadUni12("c2",0x0148,0x0147) - or CheckDeadUni12("t1",0x00F1,0x00D1))) - OutputChar("n","N") - else if (Ebene = 3) - send {blind}( ; ) - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2074) - or CheckDeadUni("c5",0x2084))) - Send {blind}{NumPad4} - else if (Ebene = 5) - SendUnicodeChar(0x03BD) ; nu - else if (Ebene = 6) - SendUnicodeChar(0x2115) ; N (natürliche Zahlen) + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x0144,0x0143) + or CheckDeadUni12("a3",0x0146,0x0145) + or CheckDeadUni12("a4",0x1E45,0x1E44) + or CheckDeadUni12("c2",0x0148,0x0147) + or CheckDeadUni12("t1",0x00F1,0x00D1))) + OutputChar("n","N") + else if (Ebene = 3) + send {blind}( ; ) + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2074) + or CheckDeadUni("c5",0x2084))) + Send {blind}{NumPad4} + else if (Ebene = 5) + SendUnicodeChar(0x03BD) ; nu + else if (Ebene = 6) + SendUnicodeChar(0x2115) ; N (natürliche Zahlen) return neo_r: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x0155,0x0154) - or CheckDeadUni12("a3",0x0157,0x0156) - or CheckDeadUni12("a4",0x0E59,0x0E58) - or CheckDeadUni12("c2",0x0159,0x0158) - or CheckDeadUni12("c6",0x1E5B,0x1E5A) - or CheckCompAsc12("o","®","®") - or CheckCompAsc12("O","®","®"))) - OutputChar("r","R") - else if (Ebene = 3) ;( - send {blind}) - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2075) - or CheckDeadUni("c5",0x2085))) - Send {blind}{NumPad5} - else if (Ebene = 5) - SendUnicodeChar(0x03F1) ; rho symbol (varrho) - else if (Ebene = 6) - SendUnicodeChar(0x211D) ; R (reelle Zahlen) + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x0155,0x0154) + or CheckDeadUni12("a3",0x0157,0x0156) + or CheckDeadUni12("a4",0x0E59,0x0E58) + or CheckDeadUni12("c2",0x0159,0x0158) + or CheckDeadUni12("c6",0x1E5B,0x1E5A) + or CheckCompAsc12("o","®","®") + or CheckCompAsc12("O","®","®"))) + OutputChar("r","R") + else if (Ebene = 3) ;( + send {blind}) + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2075) + or CheckDeadUni("c5",0x2085))) + Send {blind}{NumPad5} + else if (Ebene = 5) + SendUnicodeChar(0x03F1) ; rho symbol (varrho) + else if (Ebene = 6) + SendUnicodeChar(0x211D) ; R (reelle Zahlen) return neo_t: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a3",0x0163,0x0162) - or CheckDeadUni12("a4",0x1E6B,0x1E6A) - or CheckDeadUni12("c2",0x0165,0x0164) - or CheckDeadUni12("c5",0x0167,0x0166) - or CheckDeadUni12("c6",0x1E6D,0x1E6C))) - OutputChar("t","T") - else if (Ebene = 3) - send {blind}- ; Bis - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2076) - or CheckDeadUni("c5",0x2086))) - Send {blind}{NumPad6} - else if (Ebene = 5) - SendUnicodeChar(0x03C4) ; tau - else if (Ebene = 6) - SendUnicodeChar(0x2202 ) ; partielle Ableitung + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a3",0x0163,0x0162) + or CheckDeadUni12("a4",0x1E6B,0x1E6A) + or CheckDeadUni12("c2",0x0165,0x0164) + or CheckDeadUni12("c5",0x0167,0x0166) + or CheckDeadUni12("c6",0x1E6D,0x1E6C))) + OutputChar("t","T") + else if (Ebene = 3) + send {blind}- ; Bis + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2076) + or CheckDeadUni("c5",0x2086))) + Send {blind}{NumPad6} + else if (Ebene = 5) + SendUnicodeChar(0x03C4) ; tau + else if (Ebene = 6) + SendUnicodeChar(0x2202 ) ; partielle Ableitung return neo_d: @@ -904,719 +918,710 @@ neo_d: return neo_y: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x00FD,0x00DD) - or CheckDeadUni12("c1",0x0177,0x0176) - or CheckDeadAsc12("t3","ÿ",Ÿ))) - OutputChar("y","Y") - else if (Ebene = 3) - send {blind}@ - else if (Ebene = 4) - Send {blind}. - else if (Ebene = 5) - SendUnicodeChar(0x03C5) ; upsilon - else if (Ebene = 6) - SendUnicodeChar(0x2207) ; nabla + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x00FD,0x00DD) + or CheckDeadUni12("c1",0x0177,0x0176) + or CheckDeadAsc12("t3","ÿ",Ÿ))) + OutputChar("y","Y") + else if (Ebene = 3) + send {blind}@ + else if (Ebene = 4) + Send {blind}. + else if (Ebene = 5) + SendUnicodeChar(0x03C5) ; upsilon + else if (Ebene = 6) + SendUnicodeChar(0x2207) ; nabla return /* - ------------------------------------------------------ - Reihe 4 - ------------------------------------------------------ + + Reihe 4 + */ neo_ü: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x01D8,0x01D7) - or CheckDeadUni12("a2",0x01DC,0x01DB) - or CheckDeadUni12("c2",0x01DA,0x01D9) - or CheckDeadUni12("t2",0x01D6,0x01D5))) - OutputChar("ü","Ü") - else if (Ebene = 3) - send {blind}{#} - else if (Ebene = 4) - Send {blind}{Esc} - else if (Ebene = 5) - { - DeadKey := PriorDeadKey - CompKey := PriorCompKey - } ; leer - else if (Ebene = 6) - SendUnicodeChar(0x221D) ; proportional + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x01D8,0x01D7) + or CheckDeadUni12("a2",0x01DC,0x01DB) + or CheckDeadUni12("c2",0x01DA,0x01D9) + or CheckDeadUni12("t2",0x01D6,0x01D5))) + OutputChar("ü","Ü") + else if (Ebene = 3) + send {#} + else if (Ebene = 4) + Send {blind}{Esc} + else if (Ebene = 5) + { + DeadKey := PriorDeadKey + CompKey := PriorCompKey + } ; leer + else if (Ebene = 6) + SendUnicodeChar(0x221D) ; proportional return neo_ö: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("t2",0x022B,0x022A))) - OutputChar("ö","Ö") - else if (Ebene = 3) - send {blind}$ - else if (Ebene = 4) - send {blind}{Tab} - else if (Ebene = 5) - { - DeadKey := PriorDeadKey - CompKey := PriorCompKey - } ; leer - else if (Ebene = 6) - SendUnicodeChar(0x2111) ; Fraktur I + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("t2",0x022B,0x022A))) + OutputChar("ö","Ö") + else if (Ebene = 3) + send {blind}$ + else if (Ebene = 4) + send {blind}{Tab} + else if (Ebene = 5) + { + DeadKey := PriorDeadKey + CompKey := PriorCompKey + } ; leer + else if (Ebene = 6) + SendUnicodeChar(0x2111) ; Fraktur I return neo_ä: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("t2",0x01DF,0x01DE))) - OutputChar("ä","Ä") - else if (Ebene = 3) - send {blind}| - else if (Ebene = 4) - Send {blind}{PgDn} ; Next - else if (Ebene = 5) - SendUnicodeChar(0x03B7) ; eta - else if (Ebene = 6) - SendUnicodeChar(0x211C) ; altes R + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("t2",0x01DF,0x01DE))) + OutputChar("ä","Ä") + else if (Ebene = 3) + send {blind}| + else if (Ebene = 4) + Send {blind}{PgDn} ; Next + else if (Ebene = 5) + SendUnicodeChar(0x03B7) ; eta + else if (Ebene = 6) + SendUnicodeChar(0x211C) ; altes R return neo_p: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a4",0x1E57,0x1E56))) - OutputChar("p","P") - else if ((Ebene = 3) and !(CheckDeadUni("t1",0x2248))) - send {blind}~ - else if (Ebene = 4) - Send {blind}{Enter} - else if (Ebene = 5) - SendUnicodeChar(0x03C0) ;pi - else if (Ebene = 6) - SendUnicodeChar(0x03A0) ; Pi + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a4",0x1E57,0x1E56))) + OutputChar("p","P") + else if ((Ebene = 3) and !(CheckDeadUni("t1",0x2248))) + send {blind}~ + else if (Ebene = 4) + Send {blind}{Enter} + else if (Ebene = 5) + SendUnicodeChar(0x03C0) ;pi + else if (Ebene = 6) + SendUnicodeChar(0x03A0) ; Pi return neo_z: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a1",0x017A,0x0179) - or CheckDeadUni12("a4",0x017C,0x017B) - or CheckDeadUni12("c2",0x017E,0x017D) - or CheckDeadUni12("c6",0x1E93,0x1E92))) - OutputChar("z","Z") - else if (Ebene = 3) - send ``{space} ; untot - else if (Ebene = 4) - { - DeadKey := PriorDeadKey - CompKey := PriorCompKey - } ; leer - else if (Ebene = 5) - SendUnicodeChar(0x03B6) ;zeta - else if (Ebene = 6) - SendUnicodeChar(0x2124) ; Z (ganze Zahlen) + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a1",0x017A,0x0179) + or CheckDeadUni12("a4",0x017C,0x017B) + or CheckDeadUni12("c2",0x017E,0x017D) + or CheckDeadUni12("c6",0x1E93,0x1E92))) + OutputChar("z","Z") + else if (Ebene = 3) + send ``{space} ; untot + else if (Ebene = 4) + { + DeadKey := PriorDeadKey + CompKey := PriorCompKey + } ; leer + else if (Ebene = 5) + SendUnicodeChar(0x03B6) ;zeta + else if (Ebene = 6) + SendUnicodeChar(0x2124) ; Z (ganze Zahlen) return neo_b: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a4",0x1E03,0x1E02))) - OutputChar("b","B") - else if (Ebene = 3) - send {blind}{+} - else if (Ebene = 4) - send {blind}: - else if (Ebene = 5) - SendUnicodeChar(0x03B2) ; beta - else if (Ebene = 6) - SendUnicodeChar(0x21D2) ; Doppel-Pfeil rechts + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a4",0x1E03,0x1E02))) + OutputChar("b","B") + else if (Ebene = 3) + send {blind}{+} + else if (Ebene = 4) + send {blind}: + else if (Ebene = 5) + SendUnicodeChar(0x03B2) ; beta + else if (Ebene = 6) + SendUnicodeChar(0x21D2) ; Doppel-Pfeil rechts return neo_m: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("a4",0x1E41,0x1E40) - or CheckDeadUni12("c6",0x1E43,0x1E42) - or CheckCompUni12("t",0x2122,0x2122) ; TM - or CheckCompUni12("T",0x2122,0x2122) ; TM - or CheckCompUni12("s",0x2120,0x2120) ; SM - or CheckCompUni12("S",0x2120,0x2120))) ; SM - - OutputChar("m","M") - else if (Ebene = 3) - send {blind}`% - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B9) - or CheckDeadUni("c5",0x2081))) - Send {blind}{NumPad1} - else if (Ebene = 5) - SendUnicodeChar(0x03BC) ; griechisch mu, micro wäre 0x00B5 - else if (Ebene = 6) - SendUnicodeChar(0x21D4) ; doppelter Doppelpfeil (genau dann wenn) + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("a4",0x1E41,0x1E40) + or CheckDeadUni12("c6",0x1E43,0x1E42) + or CheckCompUni12("t",0x2122,0x2122) ; TM + or CheckCompUni12("T",0x2122,0x2122) ; TM + or CheckCompUni12("s",0x2120,0x2120) ; SM + or CheckCompUni12("S",0x2120,0x2120))) ; SM + + OutputChar("m","M") + else if (Ebene = 3) + send {blind}`% + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B9) + or CheckDeadUni("c5",0x2081))) + Send {blind}{NumPad1} + else if (Ebene = 5) + SendUnicodeChar(0x03BC) ; griechisch mu, micro wäre 0x00B5 + else if (Ebene = 6) + SendUnicodeChar(0x21D4) ; doppelter Doppelpfeil (genau dann wenn) return neo_komma: - EbeneAktualisieren() - if (Ebene = 1) - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down},{Shift up} - else - send {blind}, - else if (Ebene = 2) - SendUnicodeChar(0x22EE) ; vertikale ellipse - else if (Ebene = 3) - send {blind}" - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B2) - or CheckDeadUni("c5",0x2082))) - Send {blind}{NumPad2} - else if (Ebene = 5) - SendUnicodeChar(0x03C1) ; rho - else if (Ebene = 6) - SendUnicodeChar(0x21D0) ; Doppelpfeil links + EbeneAktualisieren() + if (Ebene = 1) + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down},{Shift up} + else + send {blind}, + else if (Ebene = 2) + SendUnicodeChar(0x22EE) ; vertikale ellipse + else if (Ebene = 3) + send {blind}" + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B2) + or CheckDeadUni("c5",0x2082))) + Send {blind}{NumPad2} + else if (Ebene = 5) + SendUnicodeChar(0x03C1) ; rho + else if (Ebene = 6) + SendUnicodeChar(0x21D0) ; Doppelpfeil links return neo_punkt: - EbeneAktualisieren() - if (Ebene = 1) - if (GetKeyState("CapsLock","T")) - send {blind}{Shift down}.{Shift up} - else - send {blind}. - else if (Ebene = 2) - SendUnicodeChar(0x2026) ; ellipse - else if (Ebene = 3) - send {blind}' - else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B3) - or CheckDeadUni("c5",0x2083))) - Send {blind}{NumPad3} - else if (Ebene = 5) - SendUnicodeChar(0x03D1) ; theta symbol (vartheta) - else if (Ebene = 6) - SendUnicodeChar(0x0398) ; Theta + EbeneAktualisieren() + if (Ebene = 1) + if (GetKeyState("CapsLock","T")) + send {blind}{Shift down}.{Shift up} + else + send {blind}. + else if (Ebene = 2) + SendUnicodeChar(0x2026) ; ellipse + else if (Ebene = 3) + send {blind}' + else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B3) + or CheckDeadUni("c5",0x2083))) + Send {blind}{NumPad3} + else if (Ebene = 5) + SendUnicodeChar(0x03D1) ; theta symbol (vartheta) + else if (Ebene = 6) + SendUnicodeChar(0x0398) ; Theta return neo_j: - EbeneAktualisieren() - if (Ebene12 and !(CheckDeadUni12("c1",0x0135,0x0134) - or CheckDeadUni12("c2",0x01F0,"") - or CheckCompUni12("i",0x0133,"") ; ij - or CheckCompUni12("I","",0x0132) ; IJ - or CheckCompUni12("l",0x01C9,"") ; lj - or CheckCompUni12("L",0x01C8,0x01C7) ; Lj/LJ - or CheckCompUni12("n",0x01CC,"") ; nj - or CheckCompUni12("N",0x01CB,0x01CA))) ; Nj/NJ - OutputChar("j","J") - else if (Ebene = 3) - send {blind}`; - else if (Ebene = 4) - Send {blind}`; - else if (Ebene = 5) - SendUnicodeChar(0x03B8) ; theta - else if (Ebene = 6) - SendUnicodeChar(0x2261) ; identisch + EbeneAktualisieren() + if (Ebene12 and !(CheckDeadUni12("c1",0x0135,0x0134) + or CheckDeadUni12("c2",0x01F0,"") + or CheckCompUni12("i",0x0133,"") ; ij + or CheckCompUni12("I","",0x0132) ; IJ + or CheckCompUni12("l",0x01C9,"") ; lj + or CheckCompUni12("L",0x01C8,0x01C7) ; Lj/LJ + or CheckCompUni12("n",0x01CC,"") ; nj + or CheckCompUni12("N",0x01CB,0x01CA))) ; Nj/NJ + OutputChar("j","J") + else if (Ebene = 3) + send {blind}`; + else if (Ebene = 4) + Send {blind}`; + else if (Ebene = 5) + SendUnicodeChar(0x03B8) ; theta + else if (Ebene = 6) + SendUnicodeChar(0x2261) ; identisch return /* - ------------------------------------------------------ - Numpad - ------------------------------------------------------ - folgende Tasten verhalten sich bei ein- und ausgeschaltetem - NumLock gleich: + Numpad + + + folgende Tasten verhalten sich bei ein- und ausgeschaltetem + NumLock gleich: */ neo_NumpadDiv: - EbeneAktualisieren() - if ((Ebene = 1) or (Ebene = 2)) - send {blind}{NumpadDiv} - else if (Ebene = 3) - send {blind}÷ - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2215) ; slash + EbeneAktualisieren() + if ((Ebene = 1) or (Ebene = 2)) + send {blind}{NumpadDiv} + else if (Ebene = 3) + send {blind}÷ + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2215) ; slash return neo_NumpadMult: - EbeneAktualisieren() - if ((Ebene = 1) or (Ebene = 2)) - send {blind}{NumpadMult} - else if (Ebene = 3) - send {blind}× - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x22C5) ; cdot + EbeneAktualisieren() + if ((Ebene = 1) or (Ebene = 2)) + send {blind}{NumpadMult} + else if (Ebene = 3) + send {blind}× + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x22C5) ; cdot return neo_NumpadSub: - EbeneAktualisieren() - if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207B) - or CheckDeadUni("c5",0x208B))) - send {blind}{NumpadSub} - else if (Ebene = 3) - SendUnicodeChar(0x2212) ; echtes minus + EbeneAktualisieren() + if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207B) + or CheckDeadUni("c5",0x208B))) + send {blind}{NumpadSub} + else if (Ebene = 3) + SendUnicodeChar(0x2212) ; echtes minus return neo_NumpadAdd: - EbeneAktualisieren() - if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207A) - or CheckDeadUni("c5",0x208A))) - send {blind}{NumpadAdd} - else if (Ebene = 3) - send {blind}± - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2213) ; -+ + EbeneAktualisieren() + if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207A) + or CheckDeadUni("c5",0x208A))) + send {blind}{NumpadAdd} + else if (Ebene = 3) + send {blind}± + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2213) ; -+ return neo_NumpadEnter: - EbeneAktualisieren() - if ((Ebene = 1) or (Ebene = 2)) - send {blind}{NumpadEnter} - else if (Ebene = 3) - SendUnicodeChar(0x2260) ; neq - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2248) ; approx + EbeneAktualisieren() + if ((Ebene = 1) or (Ebene = 2)) + send {blind}{NumpadEnter} + else if (Ebene = 3) + SendUnicodeChar(0x2260) ; neq + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2248) ; approx return /* - folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock - unterschiedlich + folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock + unterschiedlich */ neo_Numpad7: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadHome} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadHome}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if (Ebene = 1) - send {blind}{Numpad7} - else - send {blind){Shift up}{Numpad7}{Shift down} - - if (PriorDeadKey = "comp") - CompKey := "Num_7" - } - else if (Ebene = 3) - SendUnicodeChar(0x2195) ; Hoch-Runter-Pfeil - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x226A) ; ll + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadHome} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadHome}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if (Ebene = 1) + send {blind}{Numpad7} + else + send {blind){Shift up}{Numpad7}{Shift down} + + if (PriorDeadKey = "comp") + CompKey := "Num_7" + } + else if (Ebene = 3) + SendUnicodeChar(0x2195) ; Hoch-Runter-Pfeil + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x226A) ; ll return neo_Numpad8: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadUp} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadUp}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x215B) ; 1/8 - or CheckCompUni("1",0x215B) ; 1/8 - or CheckCompUni("Num_3",0x215C) ; 3/8 - or CheckCompUni("3",0x215C) ; 3/8 - or CheckCompUni("Num_5",0x215D) ; 3/8 - or CheckCompUni("5",0x215D) ; 5/8 - or CheckCompUni("Num_7",0x215E) ; 7/8 - or CheckCompUni("7",0x215E)) ; 7/8 - if (Ebene = 1) - send {blind}{Numpad8} - else - send {blind){Shift up}{Numpad8}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadUp} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadUp}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x215B) ; 1/8 + or CheckCompUni("1",0x215B) ; 1/8 + or CheckCompUni("Num_3",0x215C) ; 3/8 + or CheckCompUni("3",0x215C) ; 3/8 + or CheckCompUni("Num_5",0x215D) ; 3/8 + or CheckCompUni("5",0x215D) ; 5/8 + or CheckCompUni("Num_7",0x215E) ; 7/8 + or CheckCompUni("7",0x215E)) ; 7/8 + if (Ebene = 1) + send {blind}{Numpad8} + else + send {blind){Shift up}{Numpad8}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_8" - } - else if (Ebene = 3) - SendUnicodeChar(0x2191) ; uparrow - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2229) ; intersection + if (PriorDeadKey = "comp") + CompKey := "Num_8" + } + else if (Ebene = 3) + SendUnicodeChar(0x2191) ; uparrow + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2229) ; intersection return neo_Numpad9: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadPgUp} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadPgUp}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if (Ebene = 1) - send {blind}{Numpad9} - else - send {blind){Shift up}{Numpad9}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadPgUp} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadPgUp}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if (Ebene = 1) + send {blind}{Numpad9} + else + send {blind){Shift up}{Numpad9}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_9" - } - else if (Ebene = 3) - SendUnicodeChar(0x2297) ; Tensorprodukt ; Vektor in die Ebene zeigend - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x226B) ; gg + if (PriorDeadKey = "comp") + CompKey := "Num_9" + } + else if (Ebene = 3) + SendUnicodeChar(0x2297) ; Tensorprodukt ; Vektor in die Ebene zeigend + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x226B) ; gg return neo_Numpad4: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadLeft} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadLeft}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x00BC) ; 1/4 - or CheckCompUni("1",0x00BE) ; 1/4 - or CheckCompUni("Num_3",0x00BE) ; 3/4 - or CheckCompUni("3",0x00BE)) ; 3/4 - if (Ebene = 1) - send {blind}{Numpad4} - else - send {blind){Shift up}{Numpad4}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadLeft} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadLeft}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x00BC) ; 1/4 + or CheckCompUni("1",0x00BE) ; 1/4 + or CheckCompUni("Num_3",0x00BE) ; 3/4 + or CheckCompUni("3",0x00BE)) ; 3/4 + if (Ebene = 1) + send {blind}{Numpad4} + else + send {blind){Shift up}{Numpad4}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_4" - } - else if (Ebene = 3) - SendUnicodeChar(0x2190) ; leftarrow - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2282) ; subset of + if (PriorDeadKey = "comp") + CompKey := "Num_4" + } + else if (Ebene = 3) + SendUnicodeChar(0x2190) ; leftarrow + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2282) ; subset of return neo_Numpad5: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadClear} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadClear}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x2155) ; 1/5 - or CheckCompUni("1",0x2155) ; 1/5 - or CheckCompUni("Num_2",0x2156) ; 2/5 - or CheckCompUni("2",0x2156) ; 2/5 - or CheckCompUni("Num_3",0x2157) ; 3/5 - or CheckCompUni("3",0x2157) ; 3/5 - or CheckCompUni("Num_4",0x2158) ; 4/5 - or CheckCompUni("4",0x2158)) ; 4/5 - if (Ebene = 1) - send {blind}{Numpad5} - else - send {blind){Shift up}{Numpad5}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadClear} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadClear}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x2155) ; 1/5 + or CheckCompUni("1",0x2155) ; 1/5 + or CheckCompUni("Num_2",0x2156) ; 2/5 + or CheckCompUni("2",0x2156) ; 2/5 + or CheckCompUni("Num_3",0x2157) ; 3/5 + or CheckCompUni("3",0x2157) ; 3/5 + or CheckCompUni("Num_4",0x2158) ; 4/5 + or CheckCompUni("4",0x2158)) ; 4/5 + if (Ebene = 1) + send {blind}{Numpad5} + else + send {blind){Shift up}{Numpad5}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_5" - } - else if (Ebene = 3) - SendUnicodeChar(0x221E) ; INFINITY - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x220B) ; enthält das Element + if (PriorDeadKey = "comp") + CompKey := "Num_5" + } + else if (Ebene = 3) + SendUnicodeChar(0x221E) ; INFINITY + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x220B) ; enthält das Element return neo_Numpad6: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadRight} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadRight}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x2159) ; 1/6 - or CheckCompUni("1",0x2159) ; 1/6 - or CheckCompUni("Num_5",0x215A) ; 5/6 - or CheckCompUni("5",0x215A)) ; 5/6 - if (Ebene = 1) - send {blind}{Numpad6} - else - send {blind){Shift up}{Numpad6}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadRight} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadRight}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x2159) ; 1/6 + or CheckCompUni("1",0x2159) ; 1/6 + or CheckCompUni("Num_5",0x215A) ; 5/6 + or CheckCompUni("5",0x215A)) ; 5/6 + if (Ebene = 1) + send {blind}{Numpad6} + else + send {blind){Shift up}{Numpad6}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_6" - } - else if (Ebene = 3) - SendUnicodeChar(0x2192) ; rightarrow - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2283) ; superset of + if (PriorDeadKey = "comp") + CompKey := "Num_6" + } + else if (Ebene = 3) + SendUnicodeChar(0x2192) ; rightarrow + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2283) ; superset of return neo_Numpad1: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadEnd} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadEnd}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if (Ebene = 1) - send {blind}{Numpad1} - else - send {blind){Shift up}{Numpad1}{Shift down} - - if (PriorDeadKey = "comp") - CompKey := "Num_1" - } - else if (Ebene = 3) - SendUnicodeChar(0x2194) ; Links-Rechts-Pfeil - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2264) ; leq + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadEnd} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadEnd}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if (Ebene = 1) + send {blind}{Numpad1} + else + send {blind){Shift up}{Numpad1}{Shift down} + + if (PriorDeadKey = "comp") + CompKey := "Num_1" + } + else if (Ebene = 3) + SendUnicodeChar(0x2194) ; Links-Rechts-Pfeil + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2264) ; leq return neo_Numpad2: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadDown} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadDown}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x00BD) ; 1/2 - or CheckCompUni("1",0x00BD)) ; 1/2 - if (Ebene = 1) - send {blind}{Numpad2} - else - send {blind){Shift up}{Numpad2}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadDown} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadDown}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x00BD) ; 1/2 + or CheckCompUni("1",0x00BD)) ; 1/2 + if (Ebene = 1) + send {blind}{Numpad2} + else + send {blind){Shift up}{Numpad2}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_2" - } - else if (Ebene = 3) - SendUnicodeChar(0x2193) ; downarrow - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x222A) ; vereinigt + if (PriorDeadKey = "comp") + CompKey := "Num_2" + } + else if (Ebene = 3) + SendUnicodeChar(0x2193) ; downarrow + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x222A) ; vereinigt return neo_Numpad3: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadPgDn} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadPgDn}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if !(CheckCompUni("Num_1",0x2153) ; 1/3 - or CheckCompUni("1",0x2154) ; 1/3 - or CheckCompUni("Num_2",0x2154) ; 2/3 - or CheckCompUni("2",0x2154)) ; 2/3 - if (Ebene = 1) - send {blind}{Numpad3} - else - send {blind){Shift up}{Numpad3}{Shift down} + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadPgDn} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadPgDn}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if !(CheckCompUni("Num_1",0x2153) ; 1/3 + or CheckCompUni("1",0x2154) ; 1/3 + or CheckCompUni("Num_2",0x2154) ; 2/3 + or CheckCompUni("2",0x2154)) ; 2/3 + if (Ebene = 1) + send {blind}{Numpad3} + else + send {blind){Shift up}{Numpad3}{Shift down} - if (PriorDeadKey = "comp") - CompKey := "Num_3" - } - else if (Ebene = 3) - SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON - else if ((Ebene = 4) or (Ebene = 5)) - SendUnicodeChar(0x2265) ; geq + if (PriorDeadKey = "comp") + CompKey := "Num_3" + } + else if (Ebene = 3) + SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON + else if ((Ebene = 4) or (Ebene = 5)) + SendUnicodeChar(0x2265) ; geq return neo_Numpad0: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadIns} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadIns}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - { - if (Ebene = 1) - send {blind}{Numpad0} - else - send {blind){Shift up}{Numpad0}{Shift down} - - if (PriorDeadKey = "comp") - CompKey := "Num_0" - } - else if (Ebene = 3) - send {blind}`% - else if ((Ebene = 4) or (Ebene = 5)) - send ‰ + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadIns} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadIns}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + { + if (Ebene = 1) + send {blind}{Numpad0} + else + send {blind){Shift up}{Numpad0}{Shift down} + + if (PriorDeadKey = "comp") + CompKey := "Num_0" + } + else if (Ebene = 3) + send {blind}`% + else if ((Ebene = 4) or (Ebene = 5)) + send ‰ return neo_NumpadDot: - EbeneAktualisieren() - if ((Ebene = 1) and (NumLock = 0)) - send {blind}{NumpadDel} - else if ((Ebene = 2) and (NumLock = 1)) - send {blind}{Shift up}{NumpadDel}{Shift down} - else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) - if (Ebene = 1) - send {blind}{NumpadDot} - else - send {blind){Shift up}{NumpadDot}{Shift down} - else if (Ebene = 3) - send {blind}. - else if ((Ebene = 4) or (Ebene = 5)) - send `, + EbeneAktualisieren() + if ((Ebene = 1) and (NumLock = 0)) + send {blind}{NumpadDel} + else if ((Ebene = 2) and (NumLock = 1)) + send {blind}{Shift up}{NumpadDel}{Shift down} + else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0))) + if (Ebene = 1) + send {blind}{NumpadDot} + else + send {blind){Shift up}{NumpadDot}{Shift down} + else if (Ebene = 3) + send {blind}. + else if ((Ebene = 4) or (Ebene = 5)) + send `, return /* - ------------------------------------------------------ - Sondertasten - ------------------------------------------------------ + + Sondertasten + */ *space:: - if ((einHandNeo)) - spacepressed := 1 - else - goto neo_SpaceUp + if ((einHandNeo)) + spacepressed := 1 + else + goto neo_SpaceUp return *space up:: - if ((einHandNeo)) - { - if ((keypressed)) - { - keypressed := 0 - spacepressed := 0 - } - else - { - goto neo_SpaceUp - } - } - else - { } ;do nothing -return + if ((einHandNeo)) + { + if ((keypressed)) + { + keypressed := 0 + spacepressed := 0 + } + else + { + goto neo_SpaceUp + } + } + else + { } ;do nothing +return neo_SpaceUp: - EbeneAktualisieren() - if ((Ebene = 1) and !(CheckComp3Uni("r_1",0x2170) ; römisch i - or CheckComp3Uni("R_1",0x2160))) ; römisch I - Send {blind}{Space} - else if ((Ebene = 2) or (Ebene = 3)) - Send {blind}{Space} - else if (Ebene = 4) - if (PriorDeadKey = "c1") ; circumflex - BSSendUnicodeChar(0x2070) - else if (PriorDeadKey = "c5") ; toter - - BSSendUnicodeChar(0x2080) - else - Send {blind}{NumPad0} - else if (Ebene = 5) - SendUnicodeChar(0x00A0) ; geschütztes Leerzeichen - else if (Ebene = 6) - SendUnicodeChar(0x202F) ; schmales Leerzeichen - DeadKey := "" CompKey := "" - spacepressed := 0 - keypressed := 0 + EbeneAktualisieren() + if ((Ebene = 1) and !(CheckComp3Uni("r_1",0x2170) ; römisch i + or CheckComp3Uni("R_1",0x2160))) ; römisch I + Send {blind}{Space} + else if ((Ebene = 2) or (Ebene = 3)) + Send {blind}{Space} + else if (Ebene = 4 and !(CheckDeadUni("c1",0x2070) + or CheckDeadUni("c5",0x2080))) + Send {blind}{NumPad0} + else if (Ebene = 5) + SendUnicodeChar(0x00A0) ; geschütztes Leerzeichen + else if (Ebene = 6) + SendUnicodeChar(0x202F) ; schmales Leerzeichen + DeadKey := "" CompKey := "" + spacepressed := 0 + keypressed := 0 return /* - Folgende Tasten sind nur aufgeführt, um PriorDeadKey zu leeren. - Irgendwie sieht das noch nicht schön aus. Vielleicht lässt sich dieses - Problem irgendwie eleganter lösen... - - Nachtrag: - Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert, - bis eine allgemeinere Lösung gefunden wurde. + Folgende Tasten sind nur aufgeführt, um PriorDeadKey zu leeren. + Irgendwie sieht das noch nicht schön aus. Vielleicht lässt sich dieses + Problem irgendwie eleganter lösen... + + Nachtrag: + Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert, + bis eine allgemeinere Lösung gefunden wurde. */ *Enter:: - if (not(lernModus) or lernModus_std_Return) - { - send {Blind}{Enter} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Return) + { + send {Blind}{Enter} + DeadKey := "" CompKey := "" + } return *Backspace:: - if (not(lernModus) or lernModus_std_Backspace) - { - send {Blind}{Backspace} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Backspace) + { + send {Blind}{Backspace} + DeadKey := "" CompKey := "" + } return *Del:: - if (not(lernModus) or lernModus_std_Entf) - send {Blind}{Del} + if (not(lernModus) or lernModus_std_Entf) + send {Blind}{Del} return *Ins:: - if (not(lernModus) or lernModus_std_Einf) - send {Blind}{Ins} + if (not(lernModus) or lernModus_std_Einf) + send {Blind}{Ins} return - - - /* Auf Mod3+Tab liegt Compose. */ neo_tab: - if (IsMod3Pressed()) ;# - { - #Include *i %a_scriptdir%\ComposeLaunch.ahk - #Include *i %a_scriptdir%\Source\ComposeLaunch.ahk - DeadKey := "comp" - CompKey := "" - } - else - { - send {blind}{Tab} - DeadKey := "" - CompKey := "" - } + if (IsMod3Pressed()) ;# + { + DeadKey := "comp" + CompKey := "" + } + else + { + send {blind}{Tab} + DeadKey := "" + CompKey := "" + } return *Home:: - if (not(lernModus) or lernModus_std_Pos1) - { - send {Blind}{Home} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Pos1) + { + send {Blind}{Home} + DeadKey := "" CompKey := "" + } return *End:: - if (not(lernModus) or lernModus_std_Ende) - { - send {Blind}{End} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Ende) + { + send {Blind}{End} + DeadKey := "" CompKey := "" + } return *PgUp:: - if (not(lernModus) or lernModus_std_PgUp) - { - send {Blind}{PgUp} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_PgUp) + { + send {Blind}{PgUp} + DeadKey := "" CompKey := "" + } return *PgDn:: - if (not(lernModus) or lernModus_std_PgDn) - { - send {Blind}{PgDn} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_PgDn) + { + send {Blind}{PgDn} + DeadKey := "" CompKey := "" + } return *Up:: - if (not(lernModus) or lernModus_std_Hoch) - { - send {Blind}{Up} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Hoch) + { + send {Blind}{Up} + DeadKey := "" CompKey := "" + } return *Down:: - if (not(lernModus) or lernModus_std_Runter) - { - send {Blind}{Down} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Runter) + { + send {Blind}{Down} + DeadKey := "" CompKey := "" + } return *Left:: - if (not(lernModus) or lernModus_std_Links) - { - send {Blind}{Left} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Links) + { + send {Blind}{Left} + DeadKey := "" CompKey := "" + } return *Right:: - if (not(lernModus) or lernModus_std_Rechts) - { - send {Blind}{Right} - DeadKey := "" CompKey := "" - } + if (not(lernModus) or lernModus_std_Rechts) + { + send {Blind}{Right} + DeadKey := "" CompKey := "" + } return diff --git a/windows/autohotkey/Source/Methods-Layers.ahk b/windows/autohotkey/Source/Methods-Layers.ahk index 40a0bbc..4c4de7f 100644 --- a/windows/autohotkey/Source/Methods-Layers.ahk +++ b/windows/autohotkey/Source/Methods-Layers.ahk @@ -22,7 +22,7 @@ VKA0SC02A & VKA1SC136:: ; LShift, dann RShift ; *VKA1SC136:: ; *VKA0SC02A:: if (GetKeyState("VKA1SC136", "P") and GetKeyState("VKA0SC02A", "P")) - send {blind}{capslock} + send {blind}{CapsLock} return diff --git a/windows/autohotkey/Source/Methods-Other.ahk b/windows/autohotkey/Source/Methods-Other.ahk index 86983c6..e80d2e4 100644 --- a/windows/autohotkey/Source/Methods-Other.ahk +++ b/windows/autohotkey/Source/Methods-Other.ahk @@ -1,7 +1,5 @@ /* - ------------------------------------------------------ - Funktionen - ------------------------------------------------------ + Funktionen */ /* @@ -19,6 +17,8 @@ EbeneAktualisieren() DeadKey := "" CompKey := "" Ebene12 := 0 + Ebene7 := 0 + Ebene8 := 0 Modstate := IsShiftPressed() . IsMod3Pressed() . IsMod4Pressed() if (ahkTreiberKombi) @@ -40,9 +40,15 @@ EbeneAktualisieren() else if (Modstate = "011") Ebene = 6 ; Ebene 6: Mod3+Mod4 else if (Modstate = "101") + { Ebene = 4 ; Ebene 7: Shift+Mod4 impliziert Ebene 4 + Ebene7 = 1 + } else if (Modstate = "111") + { Ebene = 6 ; Ebene 8: Shift+Mod3+Mod4 impliziert Ebene 6 + Ebene8 = 1 + } Ebene12 := ((Ebene = 1) or (Ebene = 2)) @@ -53,7 +59,6 @@ EbeneAktualisieren() } - IsShiftPressed() { return GetKeyState("Shift","P") @@ -149,8 +154,6 @@ EncodeInteger(ref, val) DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val) } -DeadSilence = 0 - deadAsc(val) { global @@ -256,8 +259,6 @@ CheckDeadUni12(d,val1,val2) return 0 } -DeadCompose = 0 - compAsc(val) { global @@ -417,28 +418,4 @@ outputChar(val1,val2) CompKey := c } -;Tote/Untote Tasten -*F9:: - if (isMod4pressed()) - DeadSilence := not(DeadSilence) - else - send {blind}{F9} -return - -;Tote/Untote Compose -*F10:: - if (isMod4pressed()) - DeadCompose := not(DeadCompose) - else - send {blind}{F10} -return - -;Lang-s-Tastatur: -*F11:: - if (isMod4pressed()) - LangSTastatur := not(LangSTastatur) ; schaltet die Lang-s-Tastatur ein und aus - else - send {blind}{F11} -return - diff --git a/windows/autohotkey/Source/Warning.ahk b/windows/autohotkey/Source/Warning.ahk index 6401006..6148298 100644 --- a/windows/autohotkey/Source/Warning.ahk +++ b/windows/autohotkey/Source/Warning.ahk @@ -31,7 +31,7 @@ in der Datei README.txt! /* ******************************************* Das war die letzte WARNUNG, ich hoffe nur dass -sie wirklich wissen was sie hier tun wollen ... +Sie wirklich wissen was Sie hier tun wollen ... ******************************************* */ -- cgit v1.2.3