anchor.diff:    fControlIndex := -1;
     AutoFocusable := True;
     HandleMouseWheelByDefault := True;
  +  fLastClickPos := KMPOINT_ZERO;
   
     if aParent <> nil then
       fID := aParent.fMasterControl.GetNextCtrlID
  
positive.code:   //because we would not like to delay Click just to make sure it is single.
    //On the ther hand it does no harm to call Click first
    if (Button = mbLeft)
    and Assigned(fOnDoubleClick)
    and (GetTimeSince(fTimeOfLastClick) <= GetDoubleClickTime) then
    begin
      fTimeOfLastClick := 0;
      fOnDoubleClick(Self);
  
negative.code:   else
    begin
      if (Button = mbLeft) and Assigned(fOnDoubleClick) then
      begin
        fTimeOfLastClick := TimeGet;
        fLastClickPos := KMPoint(X,Y);
      end;
  
      if Assigned(fOnClickShift) then
        fOnClickShift(Self, Shift)
  