Opened by master at 2005-10-10 13:48
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Ist echt zum verzweiflen..
Wie verkleinere ich am besten ein Bild von ca. 200x200 zu
100x50 so, dass man es in einem Label anzeigen kann??
Hat denn das hier noch nie jemand gemacht? ein Bild eingepasst? Hier ein paar misslungene Versuche :-(
ps. copy bzw. subsample von TK::Photo ist leider ungeeignet.
Misslungene Versuche :-(
Wie verkleinere ich am besten ein Bild von ca. 200x200 zu
100x50 so, dass man es in einem Label anzeigen kann??
Hat denn das hier noch nie jemand gemacht? ein Bild eingepasst? Hier ein paar misslungene Versuche :-(
ps. copy bzw. subsample von TK::Photo ist leider ungeeignet.
Misslungene Versuche :-(
Code: (dl
)
1
2
3
4
5
6
7
$img = Imager->new;
$img->read(file=>'gfx/logo.bmp') or die "Fehler",$img->errstr;
$img->write(type=>'raw', data=>\$data) or die $img->errstr;
#$bild = $mw->Photo(-data => $data);
$Label14->configure(-image=>$data);
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;