FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-23 14:46:24 +00:00
Code Issues Releases Wiki Activity

02_RSS.pm: filled textbox

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7636 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-01-20 13:03:33 +00:00
parent bcf106ee2c
commit 8326b4c7d1
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/02_RSS.pm
View File

@ -338,7 +338,7 @@ RSS_itemText {
sub sub
RSS_itemTextBox { RSS_itemTextBox {
my ($S,$x,$y,$boxwidth,$text,%params)= @_; my ($S,$x,$y,$boxwidth,$bgcolor,$text,%params)= @_;
return unless(defined($text)); return unless(defined($text));
if($params{useTextWrap}) { if($params{useTextWrap}) {
@ -350,7 +350,12 @@ RSS_itemTextBox {
); );
$wrapbox->set_font($params{font}, $params{pt}); $wrapbox->set_font($params{font}, $params{pt});
$wrapbox->set(align => $params{thalign}, width => $boxwidth); $wrapbox->set(align => $params{thalign}, width => $boxwidth);
my ($left, $top, $right, $bottom) = $wrapbox->draw($x, $y); my ($left, $top, $right, $bottom);
($left, $top, $right, $bottom) = $wrapbox->draw($x, $y);
if(defined($bgcolor)) {
$S->filledRectangle($left,$top,$right,$bottom,RSS_color($S,$bgcolor));
($left, $top, $right, $bottom) = $wrapbox->draw($x, $y);
}
return $bottom; return $bottom;
} else { } else {
RSS_itemText($S,$x,$y,$text,%params); RSS_itemText($S,$x,$y,$text,%params);
@ -507,7 +512,7 @@ RSS_evalLayout($$@) {
$params{y}= 0; $params{y}= 0;
my ($x,$y,$x1,$y1,$x2,$y2,$scale,$boxwidth,$text,$imgtype,$srctype,$arg,$format); my ($x,$y,$x1,$y1,$x2,$y2,$scale,$bgcolor,$boxwidth,$text,$imgtype,$srctype,$arg,$format);
my $cont= ""; my $cont= "";
foreach my $line (@layout) { foreach my $line (@layout) {
@ -585,11 +590,12 @@ RSS_evalLayout($$@) {
#Debug "$name: ($x,$y) $txt"; #Debug "$name: ($x,$y) $txt";
RSS_itemText($S,$x,$y,$txt,%params); RSS_itemText($S,$x,$y,$txt,%params);
} elsif($cmd eq "textbox") { } elsif($cmd eq "textbox") {
($x,$y,$boxwidth,$text)= split("[ \t]+", $def, 4); ($x,$y,$boxwidth,$bgcolor,$text)= split("[ \t]+", $def, 5);
($x,$y)= RSS_xy($S, $x,$y,%params); ($x,$y)= RSS_xy($S, $x,$y,%params);
$bgcolor = ($bgcolor ne "") ? AnalyzePerlCommand(undef,$bgcolor) : undef;
my $txt= AnalyzePerlCommand(undef, $text); my $txt= AnalyzePerlCommand(undef, $text);
#Debug "$name: ($x,$y) $txt"; #Debug "$name: ($x,$y) $txt";
$y= RSS_itemTextBox($S,$x,$y,$boxwidth,$txt,%params); $y= RSS_itemTextBox($S,$x,$y,$boxwidth,$bgcolor,$txt,%params);
$params{x} = $x; $params{x} = $x;
$params{y} = $y; $params{y} = $y;
} elsif($cmd eq "line") { } elsif($cmd eq "line") {