anchor.diff:  begin
     inherited;
     identifierToD2Syn;
  +  fCanShowHint := false;
     fDDocWin.Hide;
     fCallTipWin.Hide;
   end;
  
positive.code: begin
    fDDocWin.Hide;
    fCallTipWin.Hide;
    fMayHint := ((Y > 10) or (Y < -10)) and ((X > 10) or (X < -10));
    fMousePos := PixelsToRowColumn(Point(X,Y));
    inherited;
    if ssLeft in Shift then
      identifierToD2Syn;
  end;
  
negative.code:     fCallTipWin: TCEEditorHintWindow;
      fDDocWin: TCEEditorHintWindow;
      fIdleTimer: TIdleTimer;
      fCanShowHint: boolean;
      fOldMousePos: TPoint;
      function getMouseStart: Integer;
      procedure changeNotify(Sender: TObject);
      procedure identifierToD2Syn;
  