ItemStyles bei Tk::HList kombinieren (Graphische Oberflächen)

[thread]19076[/thread]

ItemStyles bei Tk::HList kombinieren

Tags: perl5 GUI Tk Tk::HList Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
Gast Schnuck

2014-05-06 14:28

Hallo,

Ich nutze eine HList um Daten übersichtlich darzustellen.
Jede Spalte und jede Zeile bekommt dabei noch verschiedene Style-Eigenschaften verpasst.
Ich verwende verschiedene Fonts, verschiedene Textausrichtungen, verschiedene Vordergrund- und Hintergrundfarben.
Um jetzt jede Zelle mit dem richtigen Style darstellen zu können müsste ich alle denkbaren Kombis aus Fonts, Farben (Text/Hintergrund) und Ausrichtungen jeweils als eigenen Style definieren.

Einfacher wäre es doch zunächst für eine Spalte eine Textausrichtung zu definieren und dann nur bei Bedarf mit einer anderen Vordergrungfarbe zu überschreiben.

Geht so etwas?

Also ich will praktisch Folgendes:

$hlist->itemConfigure($id, 1, -style, $fontstyle);

if ( $blabla )
{ $hlist->itemConfigure($id, 1, -style, $color); } # additional style
Last edited: 2014-05-06 14:48:21 +0200 (CEST)
- +3 replies
- Kean
  
  2014-05-07 10:20
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  Hallo Schnuck,
  
  ich hatte mal ein ähnliches Problem.
  Generell kann man mit $style->configure( -background => "yellow" ); einzelne Attribute verändern. Problem dabei ist, dass sich (so war es zumindest bei mir) dann nicht nur die neu erzeugten Items so darstellen, sondern alle mit diesem Style erzeugten Items geändert wurden.
  
  Dieses Problem zu umgehen, habe ich wie folgt gelöst:
  
  Code (perl): (dl )
  
  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
  
  use strict; use warnings; use Tk; use Tk::ItemStyle; use Tk::Hlist; my $mw = MainWindow->new(); my $table = $mw->Scrolled( "HList", -header => 1, -columns => 1, )->pack(); $table->header('create', 0, -text => 'Text'); for (my $cnt = 0; $cnt < 5; $cnt++) { $table->add($cnt); $table->itemCreate($cnt, 0, -text => $cnt, -style => $mw->ItemStyle('text', -background => "lightblue")); if ( $cnt % 2 == 0 ) { $table->itemCget($cnt, 0, -style)->configure( -background => "yellow" ); } } MainLoop;
  - Gast Schnuck
    
    2014-05-07 11:42
    
    Hallo Kean,
    
    OK, Du verwendest also pro Zelle einen anonymen Style, den Du dir natürlich einzeln wiederholen kannst und dann entsprechend auch einzeln verändern kannst.
    
    Ich verwende einige vordefinierte Styles und wenn ich mir die dann wiederhole per itemCget verändere ich immer alle Zellen in allen Spalten.
    
    Das ist aber schon einmal eine Idee. Danke.
    
    Ich müsste praktisch nur noch eine Kopie des wiedergeholten Style definieren. Dahin experimentiere ich jetzt mal.
    
    Grüße
    Last edited: 2014-05-07 11:47:23 +0200 (CEST)
  - Gast Schnuck
    
    2014-05-07 14:42
    
    Hallo Kean,
    
    OK, Du verwendest also pro Zelle einen anonymen Style, den Du dir natürlich einzeln wiederholen kannst und dann entsprechend auch einzeln verändern kannst.
    
    Ich verwende einige vordefinierte Styles und wenn ich mir die dann wiederhole per itemCget verändere ich immer alle Zellen in allen Spalten.
    
    Das ist aber schon einmal eine Idee. Danke.
    
    Ich müsste praktisch nur noch eine Kopie des wiedergeholten Style definieren. Dahin experimentiere ich jetzt mal.
    
    Danke nochmal, Kean.
    Ich mache jetzt Folgendes:
    
    Ich definiere für jede Zelle (jede Spalte in jeder Zeile) einen eigenen Style:
    
    $hlist->itemConfigure($x, $y, -style, $style{"$x/$y"});
    
    Dadurch hole ich mir dann per itemCget später den individuellen Style wieder und kann ihn einzeln anders konfigurieren:
    
    $hlist->itemCget($x, $y, -style)
    ->configure( -foreground, ...., -background, ... );
    
    Läuft!
    Last edited: 2014-05-07 14:46:18 +0200 (CEST)

View all threads created 2014-05-06 14:28.