Buttons & Styles now support hover effect on standard buttons too.

Before we only had the mouse hover effect on Flat buttons. But now the
Style can enable hover support for normal buttons too. Important for
Win7 and MacOSX like themes.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index f90e6b4c..89c5da1d 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -214,6 +214,7 @@ type
     procedure   DrawButtonFace(ACanvas: TfpgCanvas; r: TfpgRect; AFlags: TfpgButtonFlags); overload;
     function    GetButtonBorders: TRect; virtual;
     function    GetButtonShift: TPoint; virtual;
+    function    HasButtonHoverEffect: boolean; virtual;
     { Menus }
     procedure   DrawMenuBar(ACanvas: TfpgCanvas; r: TfpgRect; ABackgroundColor: TfpgColor); virtual;
     procedure   DrawMenuRow(ACanvas: TfpgCanvas; r: TfpgRect; AFlags: TfpgMenuItemFlags); virtual;
@@ -2340,6 +2341,11 @@ begin
   Result := Point(1, 1);
 end;
 
+function TfpgStyle.HasButtonHoverEffect: boolean;
+begin
+  Result := False;
+end;
+
 function TfpgStyle.GetControlFrameBorders: TRect;
 begin
   Result := Rect(2, 2, 2, 2);