anchor.diff:  begin
     //if Assigned(fOnMouseUp) then OnMouseUp(Self); { Unused }
     if (csDown in State) then begin
  +    State := State - [csDown];
       if ((Button = mbLeft)or(Button = mbRight)) and Assigned(fOnClickEither) then OnClickEither(Self, Button)
       else
       if (Button = mbLeft) and Assigned(fOnClick) then OnClick(Self)
  
positive.code: procedure TKMControlsCollection.MouseUp(X,Y:Integer; Shift:TShiftState; Button:TMouseButton);
  begin
    CtrlUp := HitControl(X,Y);
    if CtrlUp <> nil then CtrlUp.MouseUp(X,Y,Shift,Button);
    CtrlDown := nil; //Release iif it's still Down
  end;
  
  
  
negative.code: begin
    Inherited;
    CtrlPaintCount := 0;
    fCtrlDown  := nil;
    fCtrlFocus := nil;
    fCtrlOver  := nil;
    fCtrlUp    := nil;
    if fRenderUI <> nil then
      fRenderUI := TRenderUI.Create;
  end;
  