At 15:51 2003-10-13, [EMAIL PROTECTED] wrote:
My next question would be, does anyone know how I can set it so that if the
line contains the word Failed in it, it will be highlighted? There doesnt
seem to be any documentation on ListView::Item, which is what I thought I
would use. Any insight would be greatly appreciated.
I'm not aware that it's supported. I would suggest using a RichText control
instead. It supports color on selected parts of the text.
The following is an extract from Perl Oaiss of how to do it.
=head2 podAddLine($line, $heading)
Add the $line to the end of the POD text box, using the
$heading level of emphasis.
$heading -- 0 == text, 1 == H1, 2 == H2
Return 1 on success, else 0.
=cut
sub podAddLine { my $self = shift;
my ($line, $heading) = @_;
my @aFont = (
-height => $self->rhConfig()->{podFontSize},
-name => $self->rhConfig()->{podFontName},
);
my %hOn = (
1 => [-color => 0x000000, -bold => 1, @aFont],
2 => [-color => 0x000000, -bold => 1, @aFont],
0 => [-color => 0x000000, -bold => 0, @aFont],
);
my $rePOD = $self->winMain()->rePOD();
$rePOD->Select(999999,999999); #Stolen from the PM chatterbox
$rePOD->SetCharFormat(@{$hOn{$heading}});
$rePOD->ReplaceSel("$line\n",1);
return(1);
}
/J
-------- ------ ---- --- -- -- -- - - - - -
Johan Lindström Sourcerer @ Boss Casinos [EMAIL PROTECTED]
Latest bookmark: "Cockeyed.com Always bring your camera"
http://www.cockeyed.com/
dmoz (1 of 12): /Society/Holidays/Halloween/Pumpkins/ 13
