Zerschossene Lang-s-Tastatur wiederhergestellt

Esc(4) setzt Tastatur zurück
Variablen Ebene7 und Ebene8 zum Abfragen eingeführt
#(2L)-Bug behoben
Korrektur gelesen

git-svn-id: https://svn.neo-layout.org@746 b9310e46-f624-0410-8ea1-cfbb3a30dc96

1 files changed, 93 insertions, 75 deletions

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