anchor.diff:  
   procedure TfmMain.FrameOnChangeCaretPos(Sender: TObject);
   begin
  -  if FTreeClick then exit;
  +  if FCodetreeDblClicking then exit;
     TimerEdCaret.Enabled:= false;
     TimerEdCaret.Enabled:= true;
   end;
  
positive.code:     true
      );
    DoFocusEditor;
    FTreeClick:= false;
  end;
  
  procedure TfmMain.DoTreeGetSyntaxRange(ANode: TTreeNode; out APosBegin, APosEnd: TPoint);
  
negative.code: begin
    DoTreeGetSyntaxRange(CodeTree.Tree.Selected, PntBegin, PntEnd);
  
    FCodetreeDblClicking:= true;
    CurrentEditor.DoGotoPos(
      PntBegin,
      Point(-1, -1),
  