From: Jaime T. <js...@ho...> - 2005-08-21 22:37:05
|
I have this AddRichEdit: $MW->{Console} = $MW->{MW}->AddRichEdit( -name => $Panels[$i], -pos => [0,100], -size => [550,180], -vscroll => 1, -hscroll => 1, -autohscroll => 1, -autovscroll => 0, -multiline => 1, -readonly => 1, -font => $fonts{SMALL}, ); for (my $i = 0l $i < 10000; $i++ ) { $MW->{Console}->Select(99999,99999); #lines to perform the next instructions? $MW->{Console}->SetCharFormat (-color=> [255,0,0], ); $MW->{Consolel}->ReplaceSel("$i\r\n", 1); } After running it, there are indeed 10,000 lines of text on the AddRichEdit window. If I were to run it indefinitely, would I end up with a window of several trillion lines? My question is: how do I limit the AddRichEdit window to 500 or so lines? I tried this within the loop to trim off excess lines: my $total = $MW->{Console}->GetLineCount(); if ($total > 500) { $MW->{Console}->Select( 0,$total); $MW->{Console}->ReplaceSel('',1); } Though it work, it however does not "appear" as intended. How do you limit the number of lines anyways and make it smoothly too? I already tried LimiteText but the way I see it, this does not make any difference; the loop is already in the thousands and there were as many lines on the windows - LimiteText did not work. Thanks. Jaime _________________________________________________________________ Express yourself instantly with MSN Messenger! Download today it's FREE! http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/ |