anchor.diff:    case CheckClipboardKey(keycode, shiftstate) of
       ckCopy:
         begin
  -        DoCopy;
  +        CopyToClipboard;
         end;
   
       ckPaste:
  
positive.code:     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;
  
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);
  