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 !


SommaireTous les widgetsZone de dessin (Canvas) (2)
précédent sommaire suivant
 

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

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

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


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

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 © 2019 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.