Opened by esskar at 2006-04-17 04:18
User since
2005-08-29
222 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-29
222 Artikel
BenutzerIn
Ich weiß nicht genau was du mit pre load meinst, aber ich würde einfach einen Tk::Tiler benutzen.
Dann kannst du mit $Tiler->manage(), innerhalb einer foreach-Schleife, Labels hinzufügen, welche deine Bilder enthalten, die du in einem Array, das du mit opendir(), readdir(), closedir() gefüllt hast, speicherst.
JPEG-Bilder lade ich folgendermaßen, und ich bekomme keine Fehlermeldung, es geht nichts schief:
MfG. Matze
Dann kannst du mit $Tiler->manage(), innerhalb einer foreach-Schleife, Labels hinzufügen, welche deine Bilder enthalten, die du in einem Array, das du mit opendir(), readdir(), closedir() gefüllt hast, speicherst.
JPEG-Bilder lade ich folgendermaßen, und ich bekomme keine Fehlermeldung, es geht nichts schief:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
#
use strict;
use Tk;
use Tk::JPEG;
my $mw = tkinit();
my $photo = $mw->Photo(-file => "test.jpg");
my $label = $mw->Label(-image => $photo)->pack();
MainLoop;
MfG. Matze
Mit freundlichen Grüßen: Matze