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