Added bcimagebutton.pas patch by riad02

bug: hover state is not lost when modal show on the button.

bcimagebutton.pas

@@ -1016,6 +1016,8 @@ begin
 end;
 
 procedure TBCCustomImageButton.DoMouseUp;
+var
+  Ctrl : TControl;
 begin
   FFade.Mode := fmFadeIn;
 
@@ -1024,6 +1026,12 @@ begin
   else
     FFade.Step := 255;
 
+  Ctrl := Application.GetControlAtMouse;
+  if Ctrl = Self then
+    DoMouseEnter
+  else
+    DoMouseLeave;
+
   inherited DoMouseUp;
 end;