From 40b0741196ff3864fe0f4e1a7631a90999af77fe Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 14 May 2015 13:13:53 +0000
Subject: [PATCH] fhemweb.js: add keyboard-input to slider (Forum #37156)

git-svn-id: https://svn.fhem.de/fhem/trunk@8577 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/www/pgm2/fhemweb.js | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/fhem/www/pgm2/fhemweb.js b/fhem/www/pgm2/fhemweb.js
index 52e235cbf..df51884d8 100644
--- a/fhem/www/pgm2/fhemweb.js
+++ b/fhem/www/pgm2/fhemweb.js
@@ -711,7 +711,7 @@ FW_createSlider(elName, devName, vArr, currVal, set, params, cmd)
   if(currVal < min || currVal > max)
     currVal = min;
 
-  var newEl = $('<div style="display:inline-block">').get(0);
+  var newEl = $('<div style="display:inline-block" tabindex="0">').get(0);
   var slider = $('<div class="slider" id="slider.'+devName+'">').get(0);
   $(newEl).append(slider);
 
@@ -734,6 +734,20 @@ FW_createSlider(elName, devName, vArr, currVal, set, params, cmd)
       slider.nextSibling.setAttribute('value', currVal);
   }
 
+  $(newEl).keydown(function(e){
+    if(e.keyCode == 37) currVal -= stp;
+    if(e.keyCode == 39) currVal += stp;
+    if(currVal < min) currVal = min;
+    if(currVal > max) currVal = max;
+    offX = (currVal-min)*maxX/(max-min);
+    sh.innerHTML = currVal;
+    sh.setAttribute('style', 'left:'+offX+'px;');
+    if(cmd)
+      cmd(currVal);
+    if(elName)
+      slider.nextSibling.setAttribute('value', currVal);
+  });
+
   function
   touchFn(e, fn)
   {