[Tk] Itemstyle editieren (Graphische Oberflächen)

[thread]18468[/thread]

[Tk] Itemstyle editieren

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+2 replies

Kean

2013-07-25 12:23

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich erzeuge am Anfang meines Scriptes verschiedene Itemstyle Vorlagen, welche ich dann in meinem Script einsetze.

Gibt es die Möglichkeit ein Itemstyle Objekt zu kopieren und zu verändern?

Hintergrund ist dass ich diese Itemstyles in einer HList nutze und hier jeder zweiten Zeile eine andere Hintergrundfarbe gebe, so brauche ich bisher alle Styles zweifach (pro Hintergrundfarbe). Einfacher wäre es ein Style zu kopieren und in der Kopie die Hintergrundfarbe auszutauschen.

Oder ist es möglich bei der Zuweisung -style => $Stylevorlage1, noch zusätzliche Argumente mit zu geben, welche die vorhandenen übersteuern?

styx-cc

2013-07-25 22:41

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Ich rate einfach mal, wenn es nicht hinhaut, waere ein wenig Code deinerseits nicht verkehrt.

Code (perl): (dl )

1
2

my $red_style  = $hlist -> ItemStyle('text', -background => "red");
$red_style->configure(-background => 'yellow');

MfG

Edit: Bzw.:

Code (perl): (dl )

my @values = qw /test testtest2 test3 testtest4 test5 testtest6 test7 testtest8/;

my $blue_style = $hlist -> ItemStyle('text', -background => "lightblue");
my $red_style  = $hlist -> ItemStyle('text', -background => "red");

#$red_style->configure(-background => 'yellow');

$hlist -> itemCreate($i, 0, -text => $values[$j], -style => ($i % 2) ? $blue_style : $red_style);

my $j = 0;

for (my $i=0; $i <= ($#values/2); $i++) {

  $hlist -> add($i);
  $hlist -> itemCreate($i, 0, -text => $values[$j], -style => ($i % 2) ? $blue_style : $red_style); 
  $j++;

  $hlist -> itemCreate($i, 1, -text => $values[$j], -style => ($i % 2) ? $blue_style : $red_style); 
  $j++;
}

Last edited: 2013-07-25 22:44:27 +0200 (CEST)

Pörl.

View all threads created 2013-07-25 12:23.