Leser: 1
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
my $c1 = $scr->Canvas(
-background => "#FF8000",
-borderwidth => 0,
-relief => "flat",
);
$c1->place( -x => 0, -y => 0, -height => $image_height, -width => $image_width);
$c1->createText(int($image_width/2), int($image_height/2), -text => 'Diese ist ein Textbeispiel',
-font => "{MS Sans Serif} 14 {bold}");
-fill => 'white'
2 Einträge, 1 Seite |