diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-03 09:26:42 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-03 09:26:42 +0200 |
| commit | 448948bd2e36b843bc254617ec77469ddd717a68 (patch) | |
| tree | c8ac8ff6f8df174440c7e18a2303d617b80a32a4 /src | |
| parent | 119d4ae9856cc7932bf9742c12d977250c632e66 (diff) | |
| download | fpGUI-448948bd2e36b843bc254617ec77469ddd717a68.tar.xz | |
new overloaded version of TfpgStyle.DrawControlFrame()
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_main.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index f4ce9656..5209861d 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -205,6 +205,7 @@ type destructor Destroy; override; procedure DrawButtonFace(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; AFlags: TFButtonFlags); virtual; procedure DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); virtual; + procedure DrawControlFrame(ACanvas: TfpgCanvas; r: TfpgRect); virtual; 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; @@ -2127,6 +2128,11 @@ begin ACanvas.DrawLine(r.Right-1, r.Bottom-1, r.Left+1, r.Bottom-1); // bottom (inner) end; +procedure TfpgStyle.DrawControlFrame(ACanvas: TfpgCanvas; r: TfpgRect); +begin + DrawControlFrame(ACanvas, r.Left, r.Top, r.Width, r.Height); +end; + procedure TfpgStyle.DrawBevel(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; ARaised: Boolean); var r: TfpgRect; |