98_Hyperion: devStateIcon with dim value for mode rgb

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@12060 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
deespe 2016-08-22 21:57:52 +00:00
parent a0ed08b527
commit e4385492fc

View File

@ -17,6 +17,8 @@ use Color;
use JSON; use JSON;
use SetExtensions; use SetExtensions;
sub Hyperion_Call($$$){};
my %Hyperion_sets = my %Hyperion_sets =
( (
"adjustRed" => "textField", "adjustRed" => "textField",
@ -806,10 +808,12 @@ sub Hyperion_devStateIcon($;$)
return undef if (!$hash); return undef if (!$hash);
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $rgb = ReadingsVal($name,"rgb",""); my $rgb = ReadingsVal($name,"rgb","");
my $dim = ReadingsVal($name,"dim",10);
my $ico = (int($dim / 10) * 10 < 10) ? 10 : int($dim / 10) * 10;
return ".*:off:toggle" if (Value($name) eq "off"); return ".*:off:toggle" if (Value($name) eq "off");
return ".*:light_exclamation" if (Value($name) eq "ERROR"); return ".*:light_exclamation" if (Value($name) eq "ERROR");
return ".*:light_question" if (Value($name) eq "Initialized"); return ".*:light_question" if (Value($name) eq "Initialized");
return ".*:on@#".$rgb.":toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "rgb"); return ".*:light_light_dim_$ico@#".$rgb.":toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "rgb");
return ".*:light_led_stripe_rgb@#FFFF00:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "effect"); return ".*:light_led_stripe_rgb@#FFFF00:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "effect");
return ".*:it_television@#0000FF:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "clearall"); return ".*:it_television@#0000FF:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "clearall");
} }