anchor.diff:              // scroll text
               if FVScrollBar.Visible and (CaretPos.Y > FTopLine+FVisLines-2) then
                 FVScrollBar.LineDown;
  -              if FSelected then
  +            if FSelected then
               begin
                 FSelected := False;
                 Exit;
  
positive.code: procedure TfpgBaseTextEdit.DeleteSelection;
  begin
    { TODO : Implement DeleteSelection }
  end;
  
  procedure TfpgBaseTextEdit.SaveToFile(const AFileName: TfpgString);
  
negative.code: 
    Invalidate;
    {$IFDEF gDEBUG}
    SendMethodExit('TfpgBaseTextEdit.HandleKeyPress')
    {$ENDIF}
  end;
  
  procedure TfpgBaseTextEdit.HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean);
  var
    SLine: TfpgString;
    Fill: Integer;
  