diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:54:00 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:54:00 +0200 |
| commit | 3cdffc1188b2a50472224e679ffe7bb438d0dcc2 (patch) | |
| tree | 2e1cfc0ba61c195b5795f362c6b7ca03f6877bc5 | |
| parent | 3eaddef06377e20bf3d351efe4f813087dcd1d86 (diff) | |
| download | fpGUI-3cdffc1188b2a50472224e679ffe7bb438d0dcc2.tar.xz | |
marked various methods with overload.
I know in FPC mode objfpc it is not strictly needed, but lets keep to the
Object Pascal language standards for now.
| -rw-r--r-- | src/corelib/fpg_main.pas | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index c8ab8e2f..a6f6b0cc 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -176,18 +176,18 @@ type destructor Destroy; override; // As soon as TfpgStyle has moved out of CoreLib, these must go! - procedure DrawButtonFace(x, y, w, h: TfpgCoord; AFlags: TFButtonFlags); - procedure DrawButtonFace(r: TfpgRect; AFlags: TFButtonFlags); - procedure DrawControlFrame(x, y, w, h: TfpgCoord); - procedure DrawControlFrame(r: TfpgRect); - procedure DrawBevel(x, y, w, h: TfpgCoord; ARaised: Boolean = True); - procedure DrawBevel(r: TfpgRect; ARaised: Boolean = True); - procedure DrawDirectionArrow(x, y, w, h: TfpgCoord; direction: TArrowDirection); - procedure DrawDirectionArrow(r: TfpgRect; direction: TArrowDirection); + procedure DrawButtonFace(x, y, w, h: TfpgCoord; AFlags: TFButtonFlags); overload; + procedure DrawButtonFace(r: TfpgRect; AFlags: TFButtonFlags); overload; + procedure DrawControlFrame(x, y, w, h: TfpgCoord); overload; + procedure DrawControlFrame(r: TfpgRect); overload; + procedure DrawBevel(x, y, w, h: TfpgCoord; ARaised: Boolean = True); overload; + procedure DrawBevel(r: TfpgRect; ARaised: Boolean = True); overload; + procedure DrawDirectionArrow(x, y, w, h: TfpgCoord; direction: TArrowDirection); overload; + procedure DrawDirectionArrow(r: TfpgRect; direction: TArrowDirection); overload; procedure DrawFocusRect(r: TfpgRect); - function DrawText(x, y, w, h: TfpgCoord; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; - function DrawText(x, y: TfpgCoord; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; - function DrawText(r: TfpgRect; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; + function DrawText(x, y, w, h: TfpgCoord; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; overload; + function DrawText(x, y: TfpgCoord; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; overload; + function DrawText(r: TfpgRect; const AText: TfpgString; AFlags: TFTextFlags = TextFlagsDflt; ALineSpace: integer = 2): integer; overload; end; @@ -204,9 +204,9 @@ type constructor Create; virtual; destructor Destroy; override; 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 DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); virtual; overload; + procedure DrawControlFrame(ACanvas: TfpgCanvas; r: TfpgRect); 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; |