anchor.diff:    if fileExists(fTempFileName) then
       sysutils.DeleteFile(fTempFileName);
     inherited;
  +end;
  +
  +procedure TCESynMemo.setDefaultFontSize(aValue: Integer);
  +var
  +  old: Integer;
  +begin
  +  old := Font.Size;
  +  if aValue < 5 then aValue := 5;
  +  fDefaultFontSize:= aValue;
  +  if Font.Size = old then
  +    Font.Size := fDefaultFontSize;
   end;
   
   procedure TCESynMemo.setFocus;
  
positive.code:     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
      procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
      procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
    public
      constructor Create(aOwner: TComponent); override;
      destructor destroy; override;
  
negative.code: begin
    inherited;
    SetDefaultKeystrokes; // not called in inherited if owner = nil !
    fDefaultFontSize := 10;
    Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
    Gutter.LineNumberPart.MarkupInfo.Foreground := clGray;
    Gutter.SeparatorPart.LineOffset := 1;
  