anchor.diff:      function    mousewheelacceleration(const avalue: double): double;
       function    mousewheelacceleration(const avalue: integer): integer;
       function    FindReplaceProc(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward, ReplaceMode: Boolean; var ReplaceText: Boolean): Boolean;
  -    procedure   DoCopy;
     protected
       { -- internal events -- }
       procedure   HandleShow; override;
  
positive.code:   end;
  end;
  
  procedure TfpgBaseTextEdit.DoCopy;
  begin
    if not FSelected then
      Exit;
  
negative.code:     procedure   Clear;
      procedure   ScrollTo(X, Y: Integer);
      procedure   GotoLine(ALine: integer);
      procedure   CopyToClipboard;
      procedure   DeleteSelection;
      function    GetSelectedText: TfpgString;
      procedure   SaveToFile(const AFileName: TfpgString);
  