diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:51:57 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:51:57 +0200 |
| commit | 3eaddef06377e20bf3d351efe4f813087dcd1d86 (patch) | |
| tree | 356030392ae9f8dbb203b234640189630ceca506 | |
| parent | 9c59ca04c9b959198c59557d47b01d9e2c26c51d (diff) | |
| download | fpGUI-3eaddef06377e20bf3d351efe4f813087dcd1d86.tar.xz | |
Introduced a new overloaded method TfpgStyle.DrawButtonFace()
| -rw-r--r-- | src/corelib/fpg_main.pas | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index 78269273..c8ab8e2f 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -203,9 +203,10 @@ type MenuDisabledFont: TfpgFont; constructor Create; virtual; destructor Destroy; override; - procedure DrawButtonFace(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; AFlags: TFButtonFlags); virtual; + procedure DrawButtonFace(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; AFlags: TFButtonFlags); virtual; overload; procedure DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); virtual; procedure DrawControlFrame(ACanvas: TfpgCanvas; r: TfpgRect); virtual; + procedure DrawButtonFace(ACanvas: TfpgCanvas; r: TfpgRect; AFlags: TFButtonFlags); overload; procedure DrawBevel(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; ARaised: Boolean = True); virtual; procedure DrawDirectionArrow(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; direction: TArrowDirection); virtual; procedure DrawString(ACanvas: TfpgCanvas; x, y: TfpgCoord; AText: string; AEnabled: boolean = True); virtual; @@ -2122,6 +2123,12 @@ begin ACanvas.DrawLine(r.Right-1, r.Bottom-1, r.Left, r.Bottom-1); // bottom end; +procedure TfpgStyle.DrawButtonFace(ACanvas: TfpgCanvas; r: TfpgRect; + AFlags: TFButtonFlags); +begin + DrawButtonFace(ACanvas, r.Left, r.Top, r.Width, r.Height, AFlags); +end; + procedure TfpgStyle.DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); var r: TfpgRect; |