anchor.diff:  constructor TCESynMemo.Create(aOwner: TComponent);
   begin
     inherited;
  +  //
  +  fDefaultFontSize := 10;
  +  SetDefaultKeystrokes; // not called in inherited if owner = nil !
  +  //
  +  ShowHint :=false;
     InitHintWins;
  -  self.ShowHint:=false;
  -  SetDefaultKeystrokes; // not called in inherited if owner = nil !
  -  fDefaultFontSize := 10;
  -  fIdleTimer := TIdleTimer.Create(self);
  -  fIdleTimer.OnTimer := @EditorIdle;
  +  fHintTimer := TIdleTimer.Create(self);
  +  fHintTimer.OnTimer := @HintTimerEvent;
  +  //
     Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
     Gutter.LineNumberPart.MarkupInfo.Foreground := clGray;
     Gutter.SeparatorPart.LineOffset := 1;
  
positive.code:     begin
        fCallTipWin.FontSize := Font.Size;
  	  	fCallTipWin.HintRect := fCallTipWin.CalcHintRect(0, str, nil);
        fCallTipWin.OffsetHintRect(point(CaretXPix, CaretYPix), Font.Size);
  			fCallTipWin.ActivateHint(str);
      end;
    end else fCallTipWin.Hide;
  
negative.code: end;
  
  procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
  var
    dX, dY: Integer;
  begin
    fDDocWin.Hide;
    fCallTipWin.Hide;
    inherited;
    dx := X - fOldMousePos.x;
    dy := Y - fOldMousePos.y;
    fCanShowHint:=false;
    if (shift = []) then if
      ((dx < 0) and (dx > -5) or (dx > 0) and (dx < 5)) or
        ((dy < 0) and (dy > -5) or (dy > 0) and (dy < 5)) then
          fCanShowHint:=true;
    fOldMousePos := Point(X, Y);
    fMousePos := PixelsToRowColumn(fOldMousePos);
    if ssLeft in Shift then
  