anchor.diff:    if not FSelected then
       Exit;
     fpgClipboard.Text := GetSelectedText;
  +end;
  +
  +procedure TfpgBaseTextEdit.PasteFromClipboard;
  +begin
  +  if FSelected then
  +    DeleteSelection;
  +  InsertTextAtPos(fpgClipboard.Text, CaretPos.X, CaretPos.Y);
   end;
   
   procedure TfpgBaseTextEdit.HandleMouseScroll(x, y: integer; shiftstate: TShiftState;
  
positive.code:   Invalidate;
  end;
  
  procedure TfpgBaseTextEdit.ScrollTo(X, Y: Integer);
  begin
    SetVPos(Y div FChrH);
  
negative.code:     function    GetWordAtPos(const X, Y: Integer; out XBegin: Integer): TfpgString;
      procedure   GetRowColAtPos(const X, Y: Integer; out Row, Col: Integer);
      procedure   Clear;
      procedure   InsertTextAtPos(S: TfpgString; Col, Row: Integer);
      procedure   ScrollTo(X, Y: Integer);
      procedure   GotoLine(ALine: integer);
      procedure   CopyToClipboard;
      procedure   PasteFromClipboard;
      procedure   DeleteSelection;
      function    GetSelectedText: TfpgString;
      procedure   SaveToFile(const AFileName: TfpgString);
  