in reply to Re^4: Cursor at end of Richedit control
in thread Cursor at end of Richedit control

Did you try the code above?

This is what I meant by minimal, working test app. I just cribed it out of that old program that used a RichEdit control. Supply it with a filename on the command line and it will:

  1. Creates a main window containing a RichEdit control and both scrolbars.
  2. Load the file.
  3. Move the insertion point to the end of that file.
  4. And scroll the window to show the last 10 line above the insertion point.
  5. Sets the focus to the RichEdit control and displays the window.

It should be easy enough to add the relevant bits to your existing app.

#! perl -slw use strict; use Win32::GUI; my $main = Win32::GUI::Window->new( -width => 800, -height => 600, -name => 'Main', ); my $re = $main->AddRichEdit( -width => $main->ScaleWidth, -height => $main->ScaleHeight, -hscroll => 1, -vscroll => 1, ); $re->Load( $ARGV[ 0 ]||die( 'No file' ), 1 ); $re->SetSel( ( $re->TextLength() ) x 2 ); $re->Scroll( 'bottom' ); $re->Scroll( -10 ); $re->SetFocus; $main->Show(); Win32::GUI::Dialog(); exit; sub Main_Resize { $re->Resize( $main->ScaleWidth, $main->ScaleHeight ); }

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."