Déplacer un canvas

Bonjour,

j'aimerai faire un programme qui me permette de déplacer des formes dans un canvas. J'ai fait ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use Tk ;
 
$x1 = 0;
$y1 = 0;
$x2 = 100;
$y2 = 100;
 
sub Bas {
	$y1 += 1 if $y1 < 400 && $y2 < 400;
	$y2 += 1 if $y2 < 400 && $y1 < 400;
	print "$y1, $y2\n";
	$rec = $caneva -> create ( 'rectangle', "$x1","$y1","$x2","$y2", -fill => 'blue' );
}
 
$fenetre = MainWindow -> new ;
$caneva = $fenetre -> Canvas ( -width => 400 , -height => 400 ,-background => 'white') ;
$rec = $caneva -> create ( 'rectangle', "$x1","$y1","$x2","$y2", -fill => 'blue' );
$caneva -> pack ( ) ;
$fenetre -> bind ('<Key>', \&Bas);
 
MainLoop ;

mais le problème c'est que il y a toujours la trace du précédent carré donc je voudrais savoir si quelqu'un savait comment faire.

Merci

Salut,

Pour déplacer les éléments d'un canvas (les rectangles, cercles, etc ...), on utilise la méthode coords ou move.

Ex:

Code:

$canvas->coords("Marqueur ou Id", x, y (ou x1, y1, x2, y2) );

ou

Code:

$canvas->move("Marqueur ou Id", x, y); => deplace la figure de x et y

Une bonne façon aussi de créer les canvas est de passer par Scrolled et si tu souhaite faire du bind dessus, utilise plutôt

Code:

$canvas->Tk::bind(...);

Je te met un script exemple :

Code:

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
57
58
59
60
#!/usr/bin/perl
use warnings;
use strict;
use Tk;    # Appel du module Tk
use utf8;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Canvas Tk ",
    -background => "white",
);
 
my ($x1, $y1, $x2, $y2) = (0, 0, 100, 100);
 
my $MessageAccueil
    = "Bonjour tout le monde\n\nWelcome dans le monde magnifique de Perl/Tk\n\n";
 
# Affichage d'un texte
my $LabelAccueil = $fenetre->Label(
    -text       => $MessageAccueil,
    -background => "white",
)->pack();
 
# Affichage d'un bouton pour fermer la fenêtre
my $bouton = $fenetre->Button(
    -text    => "Fermez la fenêtre",
    -command => sub { exit; },
)->pack();
 
 
my $Canvas = $fenetre->Scrolled("Canvas",
  -width => 400 , 
  -height => 400 ,
  -background => "#CDDCEC",
  -scrollbars => "osoe",
)->pack;
my $RealCanvas = $Canvas->Subwidget("canvas");
 
 
 
my $IDRectangle = $Canvas->create ( 'rectangle', $x1,$y1,$x2,$y2, -fill => 'red' );
print "ID rectangle : $IDRectangle\n";
$RealCanvas-> Tk::bind("<Button-1>", \&Bas);
 
#CentrerWidget($fenetre);
 
MainLoop();    # Obligatoire
 
sub Bas {
	$y1 += 1 if $y1 < 400 && $y2 < 400;
	$y2 += 1 if $y2 < 400 && $y1 < 400;
  print "Bouger rectangle ( $x1,$y1,$x2,$y2)\n";
 
	$Canvas->coords ( $IDRectangle, $x1,$y1,$x2,$y2 );
	#$Canvas->move ( $IDRectangle, 0,1 );
}
 
 
MainLoop ;

La faq sera bientôt complétée

en fait j'ai utiliser la fonction delete sur le rectangle