anchor.diff:      end;
     end;  { if }
   
  -  if consumed then
  -    RePaint
  -  else
  +  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);
  
positive.code:   FTextOffset := 0;
  
    Adjust;
    RePaint;
  
    if prevval <> Text then
      DoOnChange;
  end;
  
  procedure TfpgBaseEdit.SetSideMargin(const AValue: integer);
  
negative.code:   FCursorPos := FCursorPos + UTF8Length(s);
    FSelStart  := FCursorPos;
    Adjust;
    if prevval <> Text then
      DoOnChange;
    Repaint;
  end;
  
  procedure TfpgBaseEdit.SetAutoSelect(const AValue: Boolean);
  