diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index 4db371bd4..fdef66bcb 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -84,7 +84,7 @@ sub InfoPanel_Initialize($) {
$hash->{DefFn} = "btIP_Define";
$hash->{UndefFn} = "btIP_Undef";
#$hash->{AttrFn} = "btIP_Attr";
- $hash->{AttrList} = "autoreread:1,0 bgcenter:1,0 bgcolor bgdir refresh size title tmin";
+ $hash->{AttrList} = "autoreread:1,0 bgcenter:1,0 bgcolor bgdir bgopacity refresh size title tmin";
$hash->{SetFn} = "btIP_Set";
$hash->{NotifyFn} = "btIP_Notify";
return undef;
@@ -446,10 +446,11 @@ sub btIP_itemText {
}
sub btIP_itemTextBox {
- my ($id,$x,$y,$boxwidth,$boxheight,$text,%params)= @_;
+ my ($id,$x,$y,$boxwidth,$boxheight,$text,$link,%params)= @_;
return unless(defined($text));
$id = ($id eq '-') ? createUniqueId() : $id;
my $color = substr($params{rgb},0,6);
+ $link =~ s/"//g;
my ($d,$output);
if(defined($params{boxcolor})) {
@@ -465,13 +466,16 @@ sub btIP_itemTextBox {
$output = "";
}
- $d = "
\n".
- "
\n$text\n
\n".
- "
\n";
+ $d = "\n";
$defs{$params{name}}{fhem}{div} .= $d;
@@ -605,22 +609,23 @@ sub btIP_returnSVG($) {
}
my ($width,$height)= split(/x/, AttrVal($name,"size","800x600"));
- my $bgcolor = AttrVal($name,'bgcolor','000000');
+ my $bgcolor = AttrVal($name,'bgcolor','000000');
my $output = "";
our $svg = "";
eval {
- $svg = "\n/g;
- $svg .= btIP_itemTextBox($id,$x,$y,$boxwidth,$boxheight,$txt,%params);
+ $svg .= btIP_itemTextBox($id,$x,$y,$boxwidth,$boxheight,$txt,$link,%params);
$params{xx} = $x;
$params{yy} = $y + $boxheight;
}
@@ -1045,28 +1052,6 @@ sub btIP_splitRequest($) {
# HTML Stuff
#
-sub btIP_returnPNG($) {
- my ($name) = @_;
- my ($svgdata, $rsvg, $pngImg);
-
- $svgdata = btIP_returnSVG($name);
-
- eval {
- require Image::LibRSVG;
- $rsvg = new Image::LibRSVG();
- $rsvg->loadImageFromString($svgdata);
- $pngImg = $rsvg->getImageBitmap();
- };
- Log3($FW_wname,1,"InfoPanel: Cannot create png image") if($@ or !defined($pngImg) or ($pngImg eq ""));
- return $pngImg if $pngImg;
- return undef;
-}
-
-####################
-#
-# HTML Stuff
-#
-
sub btIP_returnHTML($) {
my ($name) = @_;
@@ -1219,8 +1204,9 @@ Please read
Layout definition
- area <id> <x1> <y1> <x2> <y2> <link>
+ area <id> <x1> <y1> <x2> <y2> <{link}>
create a responsive area which will call a link when clicked.
@@ -1246,7 +1232,7 @@ Please read
- rgb <rgb[a]>
+ rgb <{rgb[a]}>
define rgba value (hex digits!) used for text, lines, circles, ellipses
@@ -1406,7 +1392,7 @@ Please read