Thread Mit Canvas auf ein Bild zeichnen? (4 answers)
Opened by Mathias at 2006-05-30 23:46

Mathias
 2006-05-30 23:46
#45497 #45497
User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]
Hi erstma ^^

ich hab folgendes problem ich will mit Canvas auf ein bild zeichnen
so ne sprechblase soll es ma werden ^^, allerdings setzt sich das canvas immer untenran und ich bin nun am überlegen
ob es möglich ist es auf das bild zu setzen : /

soweit bin ich ma habe auch scho bissel rummversucht habs aber nicht hinbekommen

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
use strict;
use warnings;
use Tk::JPEG;
use Tk;
use File::Basename;

####Verzeichnis Get

my $kill = basename $0;
$_ = "$0";
s/$kill//g;

my $verz = "$_";

####pics

my $pic1 = "me.jpg";


my $mw = MainWindow->new();
my $pic =$mw->Frame();

#mal dreist kopiert ^^ ausem tutorial (vergebung bitte)
my $say = $pic->Canvas()->pack();


$say->createLine( 25, 175, 325, 175,
                -arrow => 'last',
               );
$say->createText( 15, 175,
                -fill  => 'blue',
                -text  => 'X',
               );
$say->createLine(175, 325, 175,  25,
                -arrow => 'last',
               );
$say->createText(175,  15,
                -fill  => 'red',
                -text => 'Y',
               );



my $datei = "$verz$pic1";

my $photo = $pic->Photo(-file => "$datei");

         $pic->Label(-image => $photo)->pack();


$pic->pack();




MainLoop;
greets =)

View full thread Mit Canvas auf ein Bild zeichnen?