anchor.diff:  procedure TCESynMemo.SetVisible(Value: Boolean);
   begin
     inherited;
  -  if Value then setFocus;
  +  if Value then
  +    setFocus
  +  else begin
  +    fDDocWin.Hide;
  +    fCallTipWin.Hide;
  +  end;
   end;
   
   procedure TCESynMemo.InitHintWins;
  
positive.code:   result += fMousePos.x;
  end;
  
  procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
  var
    dX, dY: Integer;
  
negative.code:     procedure HintTimerEvent(sender: TObject);
      procedure InitHintWins;
    protected
      procedure MouseLeave; override;
      procedure SetVisible(Value: Boolean); override;
      procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
      procedure UTF8KeyPress(var Key: TUTF8Char); override;
  