FAQ Perl/TkConsultez toutes les FAQ

Nombre d'auteurs : 3, nombre de questions : 86, dernière mise à jour : 24 mai 2013 Ajouter une question

Bienvenue sur la FAQ Perl/Tk. Cette FAQ a pour vocation de vous enseigner ou de vous faire revoir les notions de Perl/Tk. N'hésitez pas à utiliser le moteur de recherche.

Vous souhaitez participer à l'amélioration de cette FAQ, n'hésitez pas !! Commentez

Bonne lecture !

Sommaire →Tous les widgets →Zone de dessin (Canvas) (2)

Comment créer un canevas pour dessiner ?
Comment créer un canevas avec une couleur de fond dégradée ?

Comment créer un canevas pour dessiner ?

Pour dessiner, vous devez créer un widget Canvas, de préférence avec un scrollbar au cas où le dessin serait de grande taille.

Code perl :

Sélectionner tout

1
2
3
4
5
6
7
8
9
# Scrolled, puis Canvas 
my $scrolled_canvas = $widget->Scrolled( 
  'Canvas', 
  -borderwidth => 1, 
  -scrollbars  => 'osoe', 
  -background  => 'white', 
); 
  
my $canvas = $scrolled_canvas>Subwidget('canvas');

Ensuite, vous n'avez plus qu'à utiliser $canvas pour dessiner.

Mis à jour le 17 décembre 2008 djibril

Tk::Canvas

Comment créer un canevas avec une couleur de fond dégradée ?

Il est possible de créer un widget Canvas avec une couleur de fond dégradée. Pour ce faire, utilisez le widget Tk::Canvas::GradientColor. Ce module contient des méthodes permettant de réaliser différents types de dégradés.
Voici deux exemples :

Code perl :

Sélectionner tout

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
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
use Tk::Canvas::GradientColor; 
  
my $mw = new MainWindow( 
  -title      => 'Tk::Canvas::GradientColor', 
  -background => 'white', 
); 
  
my $canvas = $mw->GradientColor( 
  -width  => 200, 
  -height => 200, 
)->pack(qw/ -fill both -expand 1 /); 
  
# Change type 
$canvas->set_gradientcolor( 
  -start => 50, 
  -end   => 100, 
  -type  => 'mirror_vertical' 
); 
  
MainLoop;

Code perl :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
use Tk::Canvas::GradientColor; 
  
my $mw = new MainWindow( 
  -title      => 'Tk::Canvas::GradientColor', 
  -background => 'white', 
); 
  
my $canvas = $mw->GradientColor( 
  -width  => 200, 
  -height => 200, 
)->pack(qw/ -fill both -expand 1 /); 
  
# Change type 
$canvas->set_gradientcolor( 
  -start_color => '#C87997', 
  -end_color   => '#FFF697', 
); 
  
MainLoop;

Mis à jour le 28 juin 2010 djibril

Tk::Canvas::GradientColor

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.