anchor.diff:  
       FSelectionEnd := -1;
       FSelectionStart := -1;
  -
  -    // clear display of selection
  -    { TODO -oGraeme : Draw must not be called here }
  -//    Draw( StartLine, EndLine );
  -
       Canvas.SetClipRect(OldClip);
    end;
   
     FSelectionEnd := -1;
     FSelectionStart := -1;
  +  Repaint;
   end;
   
   Function TRichTextView.GetTextEnd: longint;
  
positive.code: Procedure TRichTextView.SelectAll;
  begin
    ClearSelection;
    SelectionStart := FLayout.GetCharIndex( FText );
    SelectionEnd := FLayout.GetTextEnd;
  end;
  
  (*
  
negative.code:   FDefaultMenu.OnShow := @DefaultMenuPopup;
  
    FSelectAllMI := FDefaultMenu.AddMenuItem('Select &All', '', @SelectAllMIClick);
    FSelectAllMI.Enabled := False;  // TODO: implement me
    FCopyMI := FDefaultMenu.AddMenuItem('&Copy', '', @CopyMIClick);
    FCopyMI.Enabled := False;  // TODO: implement me
    FDefaultMenu.AddMenuItem('-', '', nil);
    FRefreshMI := FDefaultMenu.AddMenuItem('&Refresh', '', @RefreshMIClick);
    FDefaultMenu.AddMenuItem('-', '', nil);
  