|
|
|
|
| 求助:使用perl/tk控件HList中如何设定某一行的颜色或字体 |
|
|
|
[Original]
[Print]
[Top]
|
my $h = $p3_row1->Scrolled
(qw/HList
-header 1
-columns 3
-width 70
-height 20/
)->grid(qw/-sticky nsew/);
$h->headerCreate(0,-text=>'Layer');
$h->headerCreate(1,-text=>'Type');
$h->headerCreate(2,-text=>'Mirror');
for (2..47) {
$h->add($_);
$h->itemCreate($_,0,-text=> $_.'lay-sigp');
$h->itemCreate($_,1,-text=>'inner');
if ($_%2 != 0) {
$h->itemCreate($_,2,-text=>'yes');
} else {
$h->itemCreate($_,2,-text=>'no');
}
}
想设置“yes”栏的颜色为其他颜色,请教哪位高人相助?
|
|
|
[Original]
[Print]
[Top]
|
|
|