diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm index a3042cab2..a1d6b7436 100644 --- a/fhem/FHEM/55_InfoPanel.pm +++ b/fhem/FHEM/55_InfoPanel.pm @@ -532,37 +532,6 @@ sub btIP_itemTextBox { return $output; } -sub btIP_itemTicker { -# btIP_itemTicker($id,$x,$y,$width,$speed,$text,%params); - my ($id,$x,$y,$width,$speed,$text,%params)= @_; - return unless(defined($text)); - $id = ($id eq '-') ? createUniqueId() : $id; - $speed = ($speed) ? $speed : AttrVal($params{name},'refresh',60); - my $end = $x+$width; - my ($r,$g,$b,$a) = btIP_color($params{rgb}); - - my $output = "\n"; - $output .= "\n". -# "$text\n". -# "\n". - "\n$text\n". - "". - "". - ""; -# my $animate = ""; -# return btIP_itemText("${id}_text",$x,$y,"$text\n$animate",%params); - - return $output; -} - sub btIP_itemTime { my ($id,$x,$y,%params)= @_; $id = ($id eq '-') ? createUniqueId() : $id; @@ -1030,15 +999,6 @@ sub btIP_evalLayout($$@) { } } - when("ticker") { - ($id,$x,$y,$width,$arg,$text)= split("[ \t]+", $def, 6); - ($x,$y)= btIP_xy($x,$y,%params); - $params{xx} = $x; - $params{yy} = $y; - $text= AnalyzePerlCommand(undef, $text); - $svg .= btIP_itemTicker($id,$x,$y,$width,$arg,$text,%params); - } - when("time") { ($id,$x,$y)= split("[ \t]+", $def, 3); ($x,$y)= btIP_xy($x,$y,%params); diff --git a/fhem/contrib/InfoPanel/demo.layout b/fhem/contrib/InfoPanel/demo.layout index 14cba061d..5b9d76b7e 100644 --- a/fhem/contrib/InfoPanel/demo.layout +++ b/fhem/contrib/InfoPanel/demo.layout @@ -272,13 +272,4 @@ textboxalign justify # textbox - 210 50 180 50 "http://www.fhem.de" "Ich bin eine Textbox und wenn man mich anklickt geht es direkt zu www.fhem.de" - -# ticker -# Format: ticker -# - -pt 20 -rgb "FF0000FF" -ticker - 10 100 180 0 "Ich bin ein Ticker" - #