extension to TfpgStyle. functions to return widget border sizes.

1 files changed, 18 insertions, 0 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index 96c68506..1c2f813a 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -213,6 +213,9 @@ type
     procedure   DrawMenuItem(ACanvas: TfpgCanvas; r: TfpgRect; AFlags: TfpgMenuItemFlags; AText: TfpgString); virtual;
     procedure   DrawMenuItemSeparator(ACanvas: TfpgCanvas; r: TfpgRect); virtual;
     procedure   DrawMenuItemImage(ACanvas: TfpgCanvas; x, y: TfpgCoord; r: TfpgRect; AFlags: TfpgMenuItemFlags); virtual;
+    function    GetButtonBorders: TRect; virtual;
+    function    GetControlFrameBorders: TRect; virtual;
+    function    GetSeparatorSize: integer; virtual;
   end;
   
 
@@ -2299,6 +2302,21 @@ begin
   end;
 end;
 
+function TfpgStyle.GetButtonBorders: TRect;
+begin
+  Result := Rect(5, 5, 5, 5);
+end;
+
+function TfpgStyle.GetControlFrameBorders: TRect;
+begin
+  Result := Rect(2, 2, 2, 2);
+end;
+
+function TfpgStyle.GetSeparatorSize: integer;
+begin
+  Result := 2;
+end;
+
 
 { TfpgCaret }