From 93a30817cfaecb858fa72a5836f5bc40f6649b50 Mon Sep 17 00:00:00 2001 From: mösi Date: Sun, 13 Sep 2009 21:34:35 +0000 Subject: Support-Funktion ED12 für einfachere Belegungsanpassungen eingefügt. Darüber hinaus die Parameter für ED1 und ED1S der Nomenklatur angepasst. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@2086 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/neo-vars/src/source/keydefinitions.ahk | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) (limited to 'windows/neo-vars/src') diff --git a/windows/neo-vars/src/source/keydefinitions.ahk b/windows/neo-vars/src/source/keydefinitions.ahk index 197dd04..80f869c 100644 --- a/windows/neo-vars/src/source/keydefinitions.ahk +++ b/windows/neo-vars/src/source/keydefinitions.ahk @@ -211,14 +211,31 @@ EDS(scpos,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a="",e8a="") { ED(vksc%scpos%,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a,e8a) } -ED1(pos,e1) { - ED(pos,0,e1,e1,e1,e1,e1,e1) +ED1(pos,e1a) { + ED(pos,0,e1a,e1a,e1a,e1a,e1a,e1a) } -ED1S(scpos,e1) { - EDS(scpos,0,e1,e1,e1,e1,e1,e1) +ED1S(scpos,e1a) { + EDS(scpos,0,e1a,e1a,e1a,e1a,e1a,e1a) } +ED12(scpos,caps,e1a,e2a) { + global + pos := vksc%scpos% + e1 := EncodeUniComposeA(e1a) + e2 := EncodeUniComposeA(e2a) + if (caps == 0) { + NOC%pos% := 1 + UNSH%e1% := 0 + } else { + NOC%pos% := 0 + UNSH%e1% := 1 ; unshift wenn caps lock + Shift? + } + SetKeyPos("CP1" . pos, e1) + SetKeyPos("CP2" . pos, e2) +} + + Comp := "" ; RegisterAndHookSC -- cgit v1.2.3