Delay of events detection dependent of "MouseDown" position

Question

Let's say we have a Rectangle with color which depends of CurrentValue["MouseOver"]:

Deploy@Framed@Graphics[
       Dynamic @ {If[CurrentValue["MouseOver"], Red, Green], Rectangle[]}
       , ImagePadding -> 10]

• With cursor over the Rectangle[] the color switches to Red as expected,
• also if one put the "MouseDown" and drag it around it is still Red,
• however if you put the "MouseDown" outside the rectangle, on the padded area, and drag it to the rectangle it will not switch the color till "MouseUp".

Is there any way to avoid such behaviour in general?

I can create some workarounds for particular situations but I'm looking for a general solution. I was thinking about EventHandler's PassEvents options but it seems it is a deeper problem (I've failed with this approach :)).

---

It looks like the problem is the "MouseDown" event is blocking some functions, for example:

• Dynamic@CurrentValue["ControlKey"] is not working while the mouse button is down.
• I've faced it before with MouseAppearance: Problem MouseAppearance updating while “MouseDown”

Answer 1

Original (incorrect) answer

When you press in the white area and drag into the green square, you begin a selection just like when you select objects for copy-paste operations. The workaround I propose is to prevent the selection process to begin in the first place.

First way: Create the cell with the option Selectable -> False

CellPrint@Cell[BoxData[ToBoxes@
  Deploy@Framed@Graphics[
   Dynamic@{If[CurrentValue["MouseOver"], Red, Green], 
     Rectangle[]}, ImagePadding -> 10]
  ], Selectable -> False]

Second way: If the cell is already created, press Ctrl+Shift+E and edit the cell options to include Selectable -> False, press Ctrl+Shift+E again.

Update

The following code should produce the result you want:

CellPrint@Cell[BoxData[ToBoxes@
  Framed@Graphics[
    Dynamic@{If[CurrentValue["MouseOver"], Red, Green], 
      Rectangle[]}, ImagePadding -> 10]
  ], Selectable -> False]