[perl-win32-gui-users] RichEdit colors reseting

[Sky Blueshoes]

I have a RichEdit widget in which I use as a display to my program. I 
created a sub in which I call whenever I want to display something:

sub display {
   my @input = @_;
   for (0..$#input) {
       $display->Select(1e9, 1e9);
       $display->ReplaceSel("$input[$_]\r\n");
   }
}
Ok, now I have two problems...

First, I'll use $display->SetCharFormat( -bold => 1, -color => 
"#0000FF"); to change the color of the line I want to display, but it 
immediately changes back after just one line. Do I have to set this 
before every line I want Blue? If you look at my sub I would like to use 
it like this: &display('First line of text', 'second line...', 'etc');
In this example only the first line would be blue

The second problem I am having is with the scrolling...I have a status 
bar widget underneath this RichEdit widget, instead of the text 
scrolling up like I would like it to, it just pushes the status bar down 
and never even shows a scroll bar. How do I fix this?


Thanks in advance,


Sky Blueshoes