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:   end;
  end;
  
  procedure TfpgBaseTextEdit.CopyToClipboard;
  begin
    if not FSelected then
      Exit;
  