Mise en page dans TableMatrix

Bonjour,

J'utilise en ce momment TableMatrix pour visualiser des tableaux. C'est très complet, mais également assez compliqué.
Il y a certaines commandes qui doivents exister mais que je ne trouve pas:

- Comment ne visualiser que quelques chiffres après la virgule sans modifier le tableau de données?
- Rendre certaines cellules non selectionnables. Le (très utile) tuto de djibril montre un tableau avec cette option, mais je ne comprend pas quelle partie du code correspond à cela.
- Choisir les couleurs des cellules selectionnées. (J'ai essayé -invertselected=>1 et -invertselected=>'on' dans les param généraux du tableau, mais cela semble sans effets.)
- Peut-on récupérer la valeur d'une cellule sans passer par le tableau $variable d'entrée?
- Taille de la colonne automatique selon ce qui a dedans (AutoFit ou qqc comme ça).
- Empêcher le redimensionnement de certaines lignes/colonnes.

Voilà, pas tout est particulièrement important, mais c'est toutes les choses auxquelles je pouvait penser (jusqu'à maintenant).

Bonjour,

Sans un code quelconque de ta part, on ne sait pas si tu as vraiment cherché ;) !

Je ne sais pas quel genre de code utiliser, c'est pour ça que je demande!

j'ai un tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

use Tk; use Tk::TableMatrix;   $fenetre_principlale = MainWindow->new; my $arrayVar = {}; for my $row ( 0 .. 7 ) { for my $col ( 0 .. 7 ) { $tableau_bd->{"$row,$col"} = $col+1.5487542158765235*$row; } } my $tableau = $top->Scrolled( 'TableMatrix', -variable => $arrayVar, );

---

Je cherche quelque chose du type:

Code:

---

$tableau->configure(-nb_chiffre_affiche=>3, -peut_etre_selectionne=>0, -peut_etre_redimensionne=>0, -colWidth=>'automatic', bg_quand_selectionne=>'blue')

---

Citation:

---

Envoyé par clmin

- Comment ne visualiser que quelques chiffres après la virgule sans modifier le tableau de données?

---

Cela n'a rien avoir avec le module Tk::TableMatrix. C'est à toi de traiter ta chaine directement avec les fonction de Perl. Un indice, utilise sprintf.

Citation:

---

Envoyé par clmin

- Rendre certaines cellules non selectionnables. Le (très utile) tuto de djibril montre un tableau avec cette option, mais je ne comprend pas quelle partie du code correspond à cela.

---

Il faut créer un tag qui aura la propriété non modifiable., puis tu l'appliques aux cellules que tu souhaites

Citation:

---

Envoyé par clmin

- Choisir les couleurs des cellules selectionnées. (J'ai essayé -invertselected=>1 et -invertselected=>'on' dans les param généraux du tableau, mais cela semble sans effets.)

---

Il y a deux tag spéciaux pour cela (sel et active) qui s'appliqueront à toutes les cellules du tableau.

Citation:

---

Envoyé par clmin

- Peut-on récupérer la valeur d'une cellule sans passer par le tableau $variable d'entrée?

---

Oui, via la méthode get et les indices des cellules, d'autres méthodes en fonction de ce que tu fais.

Citation:

---

Envoyé par clmin

- Taille de la colonne automatique selon ce qui a dedans (AutoFit ou qqc comme ça).

---

Non, je ne pense pas qu'il y ait une sorte d'autofit.

Citation:

---

Envoyé par clmin

- Empêcher le redimensionnement de certaines lignes/colonnes.

---

Non, mais tu peux donner une largeur ou hauteur de ton choix à chaque ligne et colonne

Voici un code d'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

#!/usr/bin/perl use warnings; use strict; use Tk; use Tk::TableMatrix;   my $fenetre_principale = MainWindow->new; my $arrayVar = {}; for my $row ( 0 .. 7 ) { for my $col ( 0 .. 7 ) {   # Arrondit des nombres #$arrayVar->{"$row,$col"} = sprintf '%.2f', $col+1.5487542158765235*$row; $arrayVar->{"$row,$col"} = $col + 1.5487542158765235 * $row; } } my $tableau = $fenetre_principale->Scrolled( 'TableMatrix', -variable => $arrayVar, -selectmode => 'extended', );   $tableau->tagConfigure( 'non-modifiable', -bg => 'red', -state => 'disabled', );   # La cellule 3,3 est désactivée, non éditable $tableau->tagCell( 'non-modifiable', "3,3" );   # Les cellules actives auront une couleur green $tableau->tagConfigure( 'active', -background => 'green' );   # Les cellules sélectionnées auront une couleur brown $tableau->tagConfigure( 'sel', -background => 'brown' );   # J'affiche la valeur de la cellule 4,2 print 'Cellule 4,2 : ', $tableau->get('4,2'), "\n";   # Je mets le colonne 2 à une largeur de 50 pixels $tableau->colWidth( 1, 50 );   $tableau->pack( -expand => 1, -fill => 'both' );   MainLoop;

---

Merci beaucoup!
Dommage pour l'autofit, mais j'ai fais qqc en fonction du nombre de caractères max ds la colonne. Pas parfait, mais ça marche plutôt bien.
Merci encore!