summaryrefslogtreecommitdiffstats
path: root/windows/neo-vars/src/source/tray.ahk
diff options
context:
space:
mode:
authormösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-05-12 19:31:19 +0000
committermösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-05-12 19:31:19 +0000
commit87b89eb7f9db5d720ff18669a89290b76c8d26c7 (patch)
tree950fd3cebbf72949589162afd12b83dce25f66ea /windows/neo-vars/src/source/tray.ahk
parent0884b26a70080e4b2351fe48642e501fb034a0c1 (diff)
Aufräumarbeiten: Ein paar Gosub-Style-Unterprogramme in Funktionen umgewandelt. Dadurch unnötig gewordene Quelldateien entfernt.
git-svn-id: https://svn.neo-layout.org@1839 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to 'windows/neo-vars/src/source/tray.ahk')
-rw-r--r--windows/neo-vars/src/source/tray.ahk117
1 files changed, 98 insertions, 19 deletions
diff --git a/windows/neo-vars/src/source/tray.ahk b/windows/neo-vars/src/source/tray.ahk
index db9186c..3eb327c 100644
--- a/windows/neo-vars/src/source/tray.ahk
+++ b/windows/neo-vars/src/source/tray.ahk
@@ -1,20 +1,99 @@
-menu,tray,icon,%ResourceFolder%\neo_enabled.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,tray,add,Hilfe,:helpmenu
-menu,tray,add
-menu,tray,add,%disable%,togglesuspend
-menu,tray,add
-menu,tray,add,Bearbeiten,edit
-menu,tray,add,Neu Laden,reload
-menu,tray,add
-menu,tray,add,Nicht im Systray anzeigen,hide
-menu,tray,add,%name% beenden, exitprogram
-menu,tray,default,%disable%
-menu,tray,tip,%name%
+TrayAktivieren() {
+ global
+ menu,tray,icon,%ResourceFolder%\neo_enabled.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,tray,add,Hilfe,:helpmenu
+ menu,tray,add
+ menu,tray,add,%disable%,togglesuspend
+ menu,tray,add
+ menu,tray,add,Bearbeiten,edit
+ menu,tray,add,Neu Laden,reload
+ menu,tray,add
+ menu,tray,add,Nicht im Systray anzeigen,hide
+ menu,tray,add,%name% beenden, exitprogram
+ menu,tray,default,%disable%
+ menu,tray,tip,%name%
+ return
+
+help:
+ Run, %A_WinDir%\hh mk:@MSITStore:autohotkey.chm
+return
+
+togglesuspend:
+ Traytogglesuspend()
+return
+
+about:
+ msgbox, 64, %name% Ergonomische Tastaturbelegung,
+ (
+ %name%
+ `nDas Neo-Layout ersetzt das übliche deutsche
+ Tastaturlayout mit der Alternative Neo,
+ beschrieben auf http://neo-layout.org/.
+ `nDazu sind keine Administratorrechte nötig.
+ `nWenn Autohotkey aktiviert ist, werden alle Tastendrucke
+ abgefangen und statt dessen eine Übersetzung weitergeschickt.
+ `nDies geschieht transparent für den Anwender,
+ es muss nichts installiert werden.
+ `nDie Zeichenübersetzung kann leicht über das Icon im
+ Systemtray deaktiviert werden. `n
+ )
+return
+
+neo:
+ run http://neo-layout.org/
+return
+
+autohotkey:
+ run http://autohotkey.com/
+return
+
+open:
+ ListLines ; shows the Autohotkey window
+return
+
+edit:
+ edit
+return
+
+reload:
+ Reload
+return
+
+hide:
+ menu, tray, noicon
+return
+
+exitprogram:
+ SetNumLockState, %SavedNumLockState%
+ exitapp
+return
+
+}
+
+Traytogglesuspend() {
+ global
+ if A_IsSuspended {
+ menu, tray, rename, %enable%, %disable%
+ menu, tray, tip, %name%
+ menu, tray, icon, %ResourceFolder%\neo_enabled.ico,,1
+ SaveNumLockState()
+ SetNumLockState Off
+ suspend, off ; Schaltet Suspend aus -> NEO
+ } else {
+ menu, tray, rename, %disable%, %enable%
+ menu, tray, tip, %name% : Deaktiviert
+ menu, tray, icon, %ResourceFolder%\neo_disabled.ico,,1
+ SetNumLockState, %SavedNumLockState%
+ suspend, on ; Schaltet Suspend ein -> QWERTZ
+ }
+}
+
+TrayAktivieren()