From e18805dcac65f02df6787a4537c396eebc71440a Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Mon, 13 Dec 2010 09:59:52 +0000
Subject: • Endlich kann man die Größe der Bildschirmtastatur ändern. Leider
 flackert’s ein wenig während der Größenänderung, sonst aber nicht.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@2356 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/keyhooks.ahk       |  5 +++++
 windows/neo-vars/src/source/screenkeyboard.ahk | 22 +++++++++++++++++++---
 2 files changed, 24 insertions(+), 3 deletions(-)

(limited to 'windows')

diff --git a/windows/neo-vars/src/source/keyhooks.ahk b/windows/neo-vars/src/source/keyhooks.ahk
index ff4d71b..56a2435 100644
--- a/windows/neo-vars/src/source/keyhooks.ahk
+++ b/windows/neo-vars/src/source/keyhooks.ahk
@@ -22,3 +22,8 @@ GuiClose:
   else
     Gui, Destroy
 return
+
+GuiSize:
+  if (GuiCurrent!="")
+    %GuiCurrent%OnSize()
+return
diff --git a/windows/neo-vars/src/source/screenkeyboard.ahk b/windows/neo-vars/src/source/screenkeyboard.ahk
index 54fe8fb..55a6925 100644
--- a/windows/neo-vars/src/source/screenkeyboard.ahk
+++ b/windows/neo-vars/src/source/screenkeyboard.ahk
@@ -125,7 +125,9 @@ GuiAddKey(key,x,y) {
   global
   x:=x-4
   y:=y-10
-  Gui, Add, Text, x%x% y%y% w38 h38 Center 0x200 hwndGuiKey%key% BackgroundTrans
+  GuiPosx%key% := x
+  GuiPosy%key% := y
+  Gui, Add, Text, x%x% y%y% w38 h38 Center 0x200 vGuiKey%key% hwndGuiKey%key% BackgroundTrans
   GuiKeyList := GuiKeyList . key . ","
 }
 
@@ -145,6 +147,20 @@ BSTOnClose() {
   CharProc__BST0()
 }
 
+BSTOnSize() {
+  global
+  Gui, Show, % "y" . yposition . " w" . A_GuiWidth . " h" . A_GuiWidth*199/729 . " NoActivate", Neo-Bildschirmtastatur
+  GuiControl,,Picture0, % "*w" . A_GuiWidth . " *h-1 " . ResourceFolder . "\ebene0.png"
+  Gui, Font, % "s" . A_GuiWidth*12/729 . " bold", % UniFontName
+  loop,parse,GuiKeyList,`,
+  {
+    GuiPhysKey := A_LoopField
+    GuiControl,Font,GuiKey%GuiPhysKey%
+    GuiControl,Move,GuiKey%GuiPhysKey%, % "x" . GuiPosx%GuiPhysKey%*A_GuiWidth/729 . " y" . GuiPosy%GuiPhysKey%*A_GuiWidth/729 . " w" . 38*A_GuiWidth/729 . " h" . 38*A_GuiWidth/729
+  }
+  GuiControl,MoveDraw,Picture0
+}
+
 CharProc__BST0() {
   global
   GuiCurrent := ""
@@ -186,7 +202,7 @@ CharProc__BST1() {
   SysGet, WorkArea, MonitorWorkArea
   yPosition := WorkAreaBottom - 230
   Gui, Color, FFFFFF
-  Gui, Add, Picture,AltSubmit x0   y0          vPicture0, % ResourceFolder . "\ebene0.png"
+  Gui, Add, Picture,AltSubmit x0   y0  vPicture0, % ResourceFolder . "\ebene0.png"
   Gui, Font, s12 bold, %UniFontName%
   GuiKeyList := ""
   GuiAddKeyS("029",6,9)
@@ -271,7 +287,7 @@ CharProc__BST1() {
 
   GuiAddKeySN("052",601,168)
   GuiAddKeySN("053",658,168)
-  Gui, +AlwaysOnTop +ToolWindow
+  Gui, +AlwaysOnTop +ToolWindow +Resize -MaximizeBox
   Gui, Show, y%yposition% w729 h199 NoActivate, Neo-Bildschirmtastatur
   BSTUpdate()
   BSTalwaysOnTop := 1
-- 
cgit v1.2.3