anchor.diff:      constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
       function    SelectionText: string;
  +    function    GetClientRect: TfpgRect; override;
       procedure   SelectAll;
       procedure   Clear;
       procedure   ClearSelection;
       procedure   CopyToClipboard;
       procedure   CutToClipboard;
  -    function    GetClientRect: TfpgRect; override;
  +    procedure   InsertAtCursorPos(const AText: TfpgString);
       procedure   PasteFromClipboard;
       property    Font: TfpgFont read FFont;
       property    SideMargin: integer read FSideMargin write SetSideMargin default 3;
  
positive.code:     // function    PointToCharPos(x, y: integer): integer;
      procedure   DeleteSelection;
      procedure   DoCopy;
      procedure   DoPaste;
      procedure   SetAutoSelect(const AValue: Boolean);
      procedure   SetBorderStyle(const AValue: TfpgEditBorderStyle);
      procedure   SetHideSelection(const AValue: Boolean);
  
negative.code: 
  procedure TfpgBaseEdit.PasteFromClipboard;
  begin
    DoPaste(fpgClipboard.Text);
  end;
  
  { TfpgBaseTextEdit }
  