OnPaint event of TPaintBox control

[Nicolò Blunda 3]

Maybe I'm just poor familiar with FMX graphics, but I don't understand why the TPaintBox control's OnPaint event fires when all other controls on the Form gain or lose focus.

[Typer2 0]

Not 100% sure, but some bugs might be the cause:

 

1) TControl.DoGetUpdateRect

There is no check for an empty R (TRectF) and that affects Result := UnionRect(Result, R);

 

2) TControl.GetUpdateRect

Some like TStyledEditContent.DoGetUpdateRect do return a rect starting at (0, 0).