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 :-(
$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;