From: <leo...@us...> - 2003-10-13 13:52:53
|
I would like to thank everyone for their suggestions on the File Monitoring script i'm working on. The File::Tail::select call worked great, once I set the time to a reasonable level. 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. Thanks. Len. |
From: Johan L. <jo...@ba...> - 2003-10-13 14:09:32
|
At 15:51 2003-10-13, leo...@us... 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 jo...@ba... Latest bookmark: "Cockeyed.com Always bring your camera" http://www.cockeyed.com/ dmoz (1 of 12): /Society/Holidays/Halloween/Pumpkins/ 13 |