anchor.diff:    end;
   end;
   
  +procedure TfpgBaseTextEdit.DoCopy;
  +begin
  +  if not FSelected then
  +    Exit;
  +  fpgClipboard.Text := GetSelectedText;
  +end;
  +
   procedure TfpgBaseTextEdit.HandleMouseScroll(x, y: integer; shiftstate: TShiftState;
       delta: smallint);
   var
  
positive.code:   case CheckClipboardKey(keycode, shiftstate) of
      ckCopy:
        begin
  //        DoCopy;
        end;
  
      ckPaste:
  
negative.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;
  