From e4e8a21acc3695683da146777d5382aea9624995 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 12 Nov 2010 15:32:09 +0200 Subject: extension to TfpgStyle. functions to return widget border sizes. --- src/corelib/fpg_main.pas | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) 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 } -- cgit v1.2.3-70-g09d2