anchor.diff:    FTextOffset := 0;
   
     Adjust;
  -  RePaint;
   
     if prevval <> Text then
       DoOnChange;
  +
  +  RePaint;
   end;
   
   procedure TfpgBaseEdit.SetSideMargin(const AValue: integer);
  
positive.code:   FCursorPos := FCursorPos + UTF8Length(s);
    FSelStart  := FCursorPos;
    Adjust;
    Repaint;
    if prevval <> Text then
      DoOnChange;
  end;
  
  procedure TfpgBaseEdit.SetAutoSelect(const AValue: Boolean);
  
negative.code:     end;
    end;  { if }
  
    if not consumed then
      inherited HandleKeyPress(keycode, shiftstate, consumed);
  
    if hasChanged then
      DoOnChange;
  
    if consumed then
      RePaint;
  end;
  
  procedure TfpgBaseEdit.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
  