FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

contrib/InfoPanel: update

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7761 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-01-28 18:48:20 +00:00
parent 159c31c36b
commit a2338591ba
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/contrib/InfoPanel/55_InfoPanel.pm
View File

@ -13,6 +13,7 @@ use warnings;
use MIME::Base64;
use Image::Info qw(image_info dim);
#use Data::Dumper;
use feature qw/switch/;
use vars qw(%data);
@ -399,9 +400,10 @@ sub btIP_itemTextBox {
}
$d = "<div id=\"text_$id\" style=\"position:absolute; top:".$y."px; left:".$x."px; ".
"width:".$boxwidth."px; height:".$boxheight."px; z-index:2\" >\n".
"width:".$boxwidth."px; height:".$boxheight."px; text-overflow:ellipsis; z-index:2\" >\n".
"<p style=\"font-family:$params{font}; font-size:$params{pt}; color:#$color; ".
"margin-top:0px; text-align:justify; ".
"width:".$boxwidth."px; height:".$boxheight."px; ".
"margin-top:0px; text-align:$params{tbalign}; text-overflow:ellipsis; ".
"\">\n$text\n</p>\n".
"</div>\n";
@ -564,6 +566,8 @@ sub btIP_evalLayout($$@) {
my ($width,$height)= split(/x/, AttrVal($name,"size","800x600"));
my @layout= split("\n", $layout);
my %h4params;
my %params;
$params{name}= $name;
$params{width}= $width;
@ -578,6 +582,7 @@ sub btIP_evalLayout($$@) {
$params{ivalign} = 'top';
$params{thalign} = 'start';
$params{tvalign} = 'auto';
$params{tbalign} = 'left';
$params{linespace} = 0;
$params{boxcolor} = undef;
$params{padding} = 0;
@ -620,6 +625,12 @@ sub btIP_evalLayout($$@) {
eval {
given($cmd) {
when("push") {
}
when("pop") {
}
when("area") {
($id,$x1,$y1,$x2,$y2,$arg)= split("[ \t]+", $def, 6);
($x1,$y1)= btIP_xy($x1,$y1,%params);
@ -772,6 +783,10 @@ sub btIP_evalLayout($$@) {
$params{yy} = $y + $boxheight;
}
when("textboxalign") {
$params{tbalign} = $def;
}
when("time") {
($id,$x,$y)= split("[ \t]+", $def, 3);
($x,$y)= btIP_xy($x,$y,%params);
@ -780,8 +795,6 @@ sub btIP_evalLayout($$@) {
$svg .= btIP_itemTime($id,$x,$y,%params);
}
when('@include') {}
default {
if($cmd ~~ @cmd_halign) {
my $d = AnalyzePerlCommand(undef, $def);