anchor.diff:    fControlIndex := -1;
     AutoFocusable := True;
     HandleMouseWheelByDefault := True;
  +  fLastClickPos := KMPOINT_ZERO;
   
     if aParent <> nil then
       fID := aParent.fMasterControl.GetNextCtrlID
  
positive.code:   else
    begin
      if (Button = mbLeft) and Assigned(fOnDoubleClick) then
        fTimeOfLastClick := TimeGet;
  
      if Assigned(fOnClickShift) then
        fOnClickShift(Self, Shift)
  
negative.code:     fClickHoldHandled: Boolean;
      fTimeOfLastMouseDown: Cardinal;
      fLastMouseDownButton: TMouseButton;
      fLastClickPos: TKMPoint;
  
      fOnClick: TNotifyEvent;
      fOnClickShift: TNotifyEventShift;
  