anchor.diff:  
     Adjust;
     RePaint;
  +
  +  if prevval <> Text then
  +    DoOnChange;
   end;
   
   procedure TfpgBaseEdit.DefaultPopupCut(Sender: TObject);
  
positive.code:     FSelOffset := 0;
      FSelStart := FCursorPos;
    end;
  end;
  
  procedure TfpgBaseEdit.DoCopy;
  
negative.code:   FSelStart  := FCursorPos;
    Adjust;
    Repaint;
    if prevval <> Text then
      DoOnChange;
  end;
  
  procedure TfpgBaseEdit.SetAutoSelect(const AValue: Boolean);
  