Thread TK-Hlist Eintrag einfärben (6 answers)
Opened by Kean at 2010-12-10 11:39

Kean
 2011-01-06 16:40
#144136 #144136
User since
2004-08-18
463 articles
BenutzerIn

user image
So habs mal minimiert nachgebaut. Hier der Quellcode:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
use strict;
use warnings;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
use Tk::HdrResizeButton;


my $mw = MainWindow->new();

my $table_hl = $mw->Scrolled( "HList",
                                 -header => 1,
                                 -columns => 2,
                                 -scrollbars => 'ose',
                                 -width => 70,
                                 -selectbackground => '#539FFD',
                                 -selectmode => 'extended',
                               )->pack();
                                           

$table_hl->header('create', 0, -text => "1");
$table_hl->header('create', 1, -text => "2");                                      


$table_hl->add(1);
$table_hl->itemCreate(1, 0, -text => "Schriftart 123");
$table_hl->itemCreate(1, 1, -text => "Scrhiftart 123");

my $style = $table_hl->ItemStyle( 'text',
                                                   -stylename => 'red',
                           -foreground => 'red',
                           -selectforeground => 'red',
                           );
                                                 
$table_hl->add(2);
$table_hl->itemCreate(2, 0, -text => "Schriftart 123", -style => 'red');
$table_hl->itemCreate(2, 1, -text => "Scrhiftart 123", -style => $style);

MainLoop;


Ich habe es auf WindowsXP getestet und bei mir ist die zweite Zeile eindeutig fett geschrieben.

View full thread TK-Hlist Eintrag einfärben